创建抽象名称和汇总时间变量

Question

我有一个数据框，我想将其中一列转换为字母 A、B、C、D 并创建一个汇总时间：

ticket <- c('1-5444', '1-5444', '1-5444', '1-5444', '1-5444', '1-5444', '1-5445')
person <- c('John','John','Kai', 'John', 'Kai', 'Bob', 'John')
time<- c(NA, 1, 2,1, 3, 4, NA)
df <- data.frame(ticket,person,time)

我想创建一个名为z 的抽象变量，它将为person 列获取一个抽象值。例如，在John-John-Kai-John-Kai-Bob 中，基本上有三个人，因此，A-A-B-A-B-C。所以z会取对应actor的值，如下所示：

     ticket     person    time   z  ztime 
     1-5444      John     NA     A    2 
     1-5444      John     1      A    2
     1-5444      Kai      2      B    5
     1-5444      John     1      A    2
     1-5444      Kai      3      B    5
     1-5444      Bob      4      C    4
     1-5445      John     NA     A    0

然后我想计算 ztime，它告诉每个人花费的时间总和。有什么想法吗？

Answer 1

使用StringsAsFactors = TRUE（默认）创建数据框，已经创建了具有3个不同级别的变量person。您所需要的只是创建新变量：

df <- transform(df,
  z = LETTERS[person],
  ztime = by(time, person, sum, na.rm = TRUE)[person]
)

或者（根据 cmets 的要求）如果按人和票分组：

df <- transform(df,
  z = LETTERS[person],
  ztime = ave(time, ticket, person, FUN = function(x) sum(x, na.rm = TRUE))
)

Answer 2

可以分两步完成。

values <- c("C", "A", "B")
df$z <- values[df$person]
aggr = ddply(df,.(ticket,person),summarize, ztime=sum(time,na.rm=T))
df = join(df,aggr,by=c("ticket","person"),type="left")
View(df)

  ticket person time z ztime
1 1-5444   John   NA A     2
2 1-5444   John    1 A     2
3 1-5444    Kai    2 B     5
4 1-5444   John    1 A     2
5 1-5444    Kai    3 B     5
6 1-5444    Bob    4 C     4
7 1-5445   John   NA A     0

Answer 3

使其通用并自动适应不同人数：

1. 获取使用uniques()的人数
2. 生成字母列表（参见post）
3. 使用list() 创建关联列表
4. 按照上一个答案加入
5. dyplyr 聚合