Wie man die Ausbreitungsfunktion in tidyr @ richtig benut

Wie ändere ich die folgende Tabelle von:

Type    Name    Answer     n
TypeA   Apple   Yes        5
TypeA   Apple   No        10
TypeA   Apple   DK         8
TypeA   Apple   NA        20
TypeA   Orange  Yes        6
TypeA   Orange  No        11
TypeA   Orange  DK         8
TypeA   Orange  NA        23

Ändern

Type    Name    Yes   No   DK   NA  
TypeA   Apple   5     10   8    20
TypeA   Orange  6     11   8    23

Ich habe die folgenden Codes verwendet, um die erste Tabelle zu erhalten.

df_1 <- 
  df %>% 
  group_by(Type, Name, Answer) %>% 
  tally()  

Dann habe ich versucht, den Befehl spread zu verwenden, um zur 2. Tabelle zu gelangen, aber es wurde folgende Fehlermeldung angezeigt:

"Fehler: Alle Spalten müssen benannt werden"

df_2 <- spread(df_1, Answer)