r - 将 ddply 转换为 dplyr 和 tidyr 代码(变异、联合、传播)

Question

我有以下数据集:

data <- data.frame(id = c(6,7,96,216,216,384),
               date = c("2003-03-27", "2003-03-31", "2001-08-01", "2009-05-26", "2009-05-26", "2001-04-05"),
               description = rep("code"),
               variable = rep("schedule"),
               value = c(388,45,95,390,12,10))

我正在尝试翻译一些使用 plyr 和 reshape2 的旧代码，而不是使用 dplyr 和 tidyr(旧代码需要永远运行)。

这是旧代码:

data$num <- as.numeric(0)
data1 <- ddply(data, .(id, date), transform, num = cumsum(num+1))
data2 <- within(data1, id2 <- interaction(variable, num))
data3 <- dcast(data2, id + date + description ~ id2)
data3

输出如下:

   id       date description schedule.1 schedule.2
1   6 2003-03-27        code        388         NA
2   7 2003-03-31        code         45         NA
3  96 2001-08-01        code         95         NA
4 216 2009-05-26        code        390         12
5 384 2001-04-05        code         10         NA

我的尝试并没有走多远，我使用了 group_by，然后尝试使用 num = cumsum(num+1) 来改变一个新变量，但是它只是将每一行编号为 1、2、3、4 等。

我的第二个猜测是对 id2 变量使用 unite，但这也没有用。

如有任何帮助，我们将不胜感激!

Answer 1

使用 dplyr/tidyr ，我们按“id”、“date”分组，将“num”列创建为 row_number()与 mutate , unite将两列(“变量”和“数字”)合并为一个列并使用 spread从“长”格式 reshape 为“宽”格式。

library(dplyr)
library(tidyr)
data %>% 
   group_by(id, date) %>% 
   mutate(num=row_number()) %>% 
   unite(variable1, variable, num, sep=".") %>%
   spread(variable1, value)
#    id       date description schedule.1 schedule.2
#1   6 2003-03-27        code        388         NA
#2   7 2003-03-31        code         45         NA
#3  96 2001-08-01        code         95         NA
#4 216 2009-05-26        code        390         12
#5 384 2001-04-05        code         10         NA

或者我们可以使用 dcast来自 data.table 的开发版本即 v1.9.5。通过对列进行分组来获取序列列的一个方便的函数是 getanID来自 splitstackshape .输出将是一个“data.table”。然后使用 dcast从“长”格式转换为“宽”格式。

library(data.table)#v1.9.5+
library(splitstackshape)
dcast(getanID(data, c('id', 'date')), id+date+description~ 
            paste('schedule', .id, sep="."), value.var='value')

注意:安装开发版本的说明是 here