Грязный результат, используя изменение формы в R

Question

Я не знаю почему, но я получаю грязный результат, используя функцию изменения формы, я уже пробовал с другими ответами, но я не знаю, почему мое решение не работает

df <- data.frame(design = c("house", "house", "car","car", "plane","plane"),
                    who = c("creator1", "creator2", "creator1", "creator2", 
                            "creator1", "creator2"),
                    how_many = c(3, 6, 1, 7, 8, 2))

Я пыталсяс

tidyr::spread(data = df, value=design , key = who)

У меня есть следующие результаты:

how_many creator1 creator2
1        1      car     <NA>
2        2     <NA>    plane
3        3    house     <NA>
4        6     <NA>    house
5        7     <NA>      car
6        8    plane     <NA>

Я хочу создать фрейм данных в этом формате:

  Design creator1 creator2
  house  3        6
  car    1        7
  plane  8        2

Answer 1

На примере @Jon Spring и других проблем ОС.

• Ссылка 1
• Ссылка 2

library(dplyr)
library(tidyr)
df <- data.frame(design = c("house", "house", "car","car", 
                            "plane","plane"),
                 who = c("creator1", "creator2", "creator1", 
                         "creator2","creator1", "creator2"),
                 how_many = c(3, 6, 1, 7, 8, 2))
df

> df
  design      who how_many
1  house creator1        3
2  house creator2        6
3    car creator1        1
4    car creator2        7
5  plane creator1        8
6  plane creator2        2

df2 <- df %>% 
  tidyr::spread(who, how_many)
df2

> df2
  design creator1 creator2
1    car        1        7
2  house        3        6
3  plane        8        2