在R中将长数据重塑为宽数据[重复]

我正在尝试重塑 R 中的一些用户数据。我有一个会话 ID 的 data.frame。每个会话都有一个 User_ID 和日期。我想使用“User_ID”变量作为我的“密钥”，但仅限于“userType”为“新访客”的观察。因此，每个“新访客”将占一行。然后将每个后续会话 ID 作为单独的变量传递。例如，如果一个用户 ID 总共有 3 个会话 ID，则总共有 6 个变量：

例如，如果这是用户的数据框：

    date <- c('2015-01-01','2015-01-02','2015-01-02','2015-01-10')
    userID <- c('100105276','100105276','100105276','100105276')
    sessionID <- c('1452632119','1452634303','1452637067','1453600979')
    userType <- c('New Visitor','Returning Visitor','Returning Visitor','Returning Visitor')
    df <- cbind(date,userID,sessionID,userType)

相反，我想返回这个：

    userID      sessionID1  date1      SessionID2  date2      SesionID3 date3
    100105276   1452632119  2015-01-01 1452634303  2015-01-02 100105276 2015-01-02

如果存在没有后续 sessionID 的任何 userID，则在变量缺少值的情况下将传递“na”值。我已经阅读了有关使用 tidyr 或 reshape2 来执行此操作的信息，但我无法让它们完全执行我正在寻找的操作。

鉴于您的数据按以下顺序排序userID and sessionID，并且每一行都是一个唯一的会话，您可以执行以下操作：

library(data.table)

# Transform data into data.frame
df <- data.table(df)
df[, id := sequence(.N), by = c("userID")] # session sequence number per user

# Spread columns
reshape(df, timevar = "id", idvar = "userID", direction = "wide")
#     userID     date.1 sessionID.1  userType.1     date.2 sessionID.2        userType.2     date.3 sessionID.3        userType.3     
#1 100105276 2015-01-01  1452632119 New Visitor 2015-01-02  1452634303 Returning Visitor 2015-01-02  1452637067 Returning Visitor

在此输出中userType也作为变量包含在内，但之后您可以随时删除它们。