R dcast聚合函数首先是非NA

Question

有人可以告诉我如何为dcast创建一个返回第一个非NA值的聚合函数吗？

沿着这些方向的东西（虽然示例显然不起作用）

wide<-dcast(long, usr_id ~ variable, value.var = "value", fun.aggregate = head, 1, na.rm=true)

数据可能如下所示：

set.seed(28)
long <- data.frame(
  usr_id= rep(1:2, each=4),
  variable= rep(c('M1','M2'), 4),
  value= sample(c(NA,1:2),2*4, replace=TRUE)
)

Answer 1

我们可以尝试

dcast(long, usr_id~variable, value.var="value",
   fun.aggregate= function(x) head(x[!is.na(x)], 1), fill=0)

数据

set.seed(28)
long <- data.frame(usr_id= rep(1:3, each=3),
    variable= rep(paste0("M", 1:3), 3), value= sample(c(NA, 
           1:3),9, replace=TRUE))