迭代数据帧列以计算平均值

Question

我想遍历数据框的两列，如果两列中的值都存在，则计算平均值，如果不是仅使用两列中存在的值。这是一个更大的数据集的虚拟示例！

dummy <- data.frame(
    name = c("A", "B", "C" , "D"), 
    x = c(66, 80, NA, 23), 
    y = c(56, 90, 50, NA)) 

我所要的输出是这样的：

 name x y Mean 
1 A 66 56 61 
2 B 80 90 85 
3 C NA 50 50 
4 D 23 NA 23 

Answer 1

我会用dplyr包来做到这一点。也请告诉我们你的尝试！

另外一个重复的问题可以在这里找到：R dplyr rowwise mean or min and other methods?

dummy_2 <- dummy %>% 
    rowwise() %>% 
    mutate(Mean = mean(c(x,y),na.rm=TRUE))