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

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))