Как правильно использовать функцию распространения в тидыре

Как мне изменить следующую таблицу с:

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

Изменить на:

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

Я использовал следующие коды, чтобы получить первую таблицу.

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

Затем я попытался использовать команду распространения, чтобы добраться до 2-й таблицы, но я получил следующее сообщение об ошибке:

«Ошибка: все столбцы должны быть названы»

df_2 <- spread(df_1, Answer)

Ответы на вопрос(2)

Ваш ответ на вопрос