是否可以在tidyr中的多列上使用传播类似dcast？

Question

我有以下的伪数据：

library(dplyr) 
library(tidyr) 
library(reshape2) 
dt <- expand.grid(Year = 1990:2014, Product=LETTERS[1:8], Country = paste0(LETTERS, "I")) %>% select(Product, Country, Year) 
dt$value <- rnorm(nrow(dt)) 

我选两个产品的国家组合

sdt <- dt %>% filter((Product == "A" & Country == "AI") | (Product == "B" & Country =="EI")) 

，我希望看到并排的值侧的每个组合。我可以dcast做到这一点：

sdt %>% dcast(Year ~ Product + Country) 

是否有可能从包装tidyr与spread做到这一点？

Answer 1

一种选择是由paste加入了“产品”和“国家”列创建一个新的“Prod_Count”，删除与select这些列，然后使用spread从tidyr“长”到“宽”重塑。

library(dplyr) 
library(tidyr) 
sdt %>% 
mutate(Prod_Count=paste(Product, Country, sep="_")) %>% 
select(-Product, -Country)%>% 
spread(Prod_Count, value)%>% 
head(2) 
# Year  A_AI  B_EI 
#1 1990 0.7878674 0.2486044 
#2 1991 0.2343285 -1.1694878 

或者，我们可以通过使用unite从tidyr（来自@甜菜根的评论）避免几个步骤和以前一样重塑。

sdt%>% 
unite(Prod_Count, Product,Country) %>% 
spread(Prod_Count, value)%>% 
head(2) 
# Year  A_AI  B_EI 
# 1 1990 0.7878674 0.2486044 
# 2 1991 0.2343285 -1.1694878