合并R中的特定行

Question

我只想合并我df的某些行的列值。 例如在以下df中，

  name time value
1   n1    1    10
2   n2    2    12
3    a    3     6
4    b    3    NA
5   n3    4     4

我想合并第3行和第4行，以便最终的df是，

  name time value
1   n1    1    10
2   n2    2    12
3    a    3     6
5   n3    4     4

我的方法

在尝试了不同的方法后，我选择了

df1 <- ddply(df,
             .(time), #Split by time as events "a","b" will always same time
             function(y){
               if(all(y$name %in% c("a","b"))){ #Dont combine rows without "a"|"b"
                 y<-data.frame(t(apply(y, 2, min, na.rm=T))) #adply doesn't seem to work?
                 print(y) #Added here for debugging
                 }  
               y
               }
             )

打印声明会产生正确的答案，

  name time value
1    a    3     6

但是输出df1是

  name time value
1   n1    1    10
2   n2    2    12
3    a    1     1
4   n3    4     4

我不知道1是怎么来的？

Answer 1

您为什么不能使用duplicated删除重复的time值（行）？

> dat
#   name time value
# 1   n1    1    10
# 2   n2    2    12
# 3    a    3     6
# 4    b    3    NA
# 5   n3    4     4
> dat[!duplicated(dat$time), ]
#   name time value
# 1   n1    1    10
# 2   n2    2    12
# 3    a    3     6
# 5   n3    4     4

Answer 2

问题是类型转换。 在你的apply调用， data.frame被转换成一个matrix式的character 。 当您将其转换为data.frame ， character s将转换为factor 。 然后，在组合结果时，该factor将转换为numeric 。 为了避免转换为因子，可以使用stringsAsFactors=FALSE ，您的代码将起作用。

df1 <- ddply(df,
             .(time), #Split by time as events "a","b" will always same time
             function(y){
               if(all(y$name %in% c("a","b"))){ #Dont combine rows without "a"|"b"
                 y<-data.frame(t(apply(y, 2, min, na.rm=T)), stringsAsFactors=FALSE) 
               }  
               y
             }
)

无论如何，这是一个替代解决方案，它更易于阅读，更少出错且可能更快。

require(data.table)
dt <- data.table(df)
dt[name %in% c("a","b"), `:=`(name=name[1], value=min(value, na.rm=TRUE)), by=time]
unique(dt)