R конвертировать строку в столбцы

Question

У меня есть данные, как показано ниже.

 Item.Nbr accuracy_level freq 
1 82078-002   Worst 1 
2 82078-007   Bad 1 
3 82078-007   Worst 44 
4 82078-007   <NA> 11 
5 82078-007   Good 7 

Я хочу, чтобы преобразовать столбец accuracy_level в строки, как показано ниже

Item.Nbr Worst Bad <NA> Good 
1 82078-002 1  0  0  0 
2 82078-007 44  1  11 7 

Я не знаю точно, сколько уникальных записей будут в колонке accuracy_level

Answer 1

Вы можете использовать reshape2 упаковка.

library(reshape2) 
dcast(df, Item.Nbr ~ accuracy_level, fill = 0) 
# Item.Nbr Bad Good <NA> Worst 
# 1 82078-002 0 0 0  1 
# 2 82078-007 1 7 11 44 

данных:

df <- structure(list(Item.Nbr = structure(c(1L, 2L, 2L, 2L, 2L), .Label = c("82078-002", 
"82078-007"), class = "factor"), accuracy_level = structure(c(4L, 
1L, 4L, 3L, 2L), .Label = c("Bad", "Good", "<NA>", "Worst"), class = "factor"), 
    freq = c(1L, 1L, 44L, 11L, 7L)), .Names = c("Item.Nbr", "accuracy_level", 
"freq"), class = "data.frame", row.names = c("1", "2", "3", "4", 
"5")) 

Answer 2

Решение с tidyr:

df <- read.table(header = T, text = "Item.Nbr accuracy_level freq 
1 82078-002   Worst 1 
2 82078-007   Bad 1 
3 82078-007   Worst 44 
4 82078-007   <NA> 11 
5 82078-007   Good 7") 

library(tidyr) 
df %>% spread(accuracy_level, freq, fill = 0) 
#> Item.Nbr <NA> Bad Good Worst 
#> 1 82078-002 0 0 0  1 
#> 2 82078-007 11 1 7 44 

Answer 3

Опция базы R с помощью xtabs

xtabs(freq ~ Item.Nbr + accuracy_level, df) 
#   accuracy_level 
#Item.Nbr Bad Good <NA> Worst 
# 82078-002 0 0 0  1 
# 82078-007 1 7 11 44 

или reshape от base R

res <- reshape(df, idvar='Item.Nbr', timevar='accuracy_level', direction='wide') 
res[is.na(res)] <- 0 
res