取每行两列之间的平均值

Question

我想逐行取两列的平均值。

有关数据的更多信息：我有一群参与者参加了一项研究，我想从两个不同的专栏中取得他们的分数，将它们平均，并将它们放入一个新专栏。

例如，我想要这个：

Participant #   Score A   Score B   Score C   Score D
1               30.0      32.0      48.2      39.2      
2               43.4      59.3      39.1      78.4
3               92.0      0.90      39.0      87.4

变成了这个

    Participant #   Score A   Score B   Score C   Score D   Score A + B Average
    1               30.0      32.0      48.2      39.2      31.00
    2               43.4      59.3      39.1      78.4      51.35
    3               92.0      0.90      39.0      87.4      46.45

谢谢。

Answer 1

如果需要平均值的列的名称由名为clnames的字符给出，请尝试：

clnames <- c("A","B")
dfrm$scrAM_means <- rowMeans ( dfrm[clnames] )

Answer 2

发表评论作为答案。

df$scrAB_means <- (df[["Score A"]] + df[[["Score B"]])/2

Answer 3

您还可以执行以下操作：

 data$meanAB<-(data$scoreA+data$scoreB)/2

或者w / dplyr

data<-data%>%
   group_by(participant)%>%
   mutate(meanAB=(scoreA+scoreB)/2)