迭代數據幀列以計算平均值

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