寻找跨越多个列的最大值（PMAX给NAS）

Question

使用reshape功能，我有一个看起来像这样的数据：

df1 

ID Score1 Score2 Score3 
1 2  3  1 
2 3  2  1 
3 2  1  NA 
4 1  NA  NA 

正如你所看到的，我的一些成绩的变量有缺失值。

我很想找到所有ID值的最大分数变量。当我尝试使用pmax(df1$Score1,df1$Score2,df1$Score3)时，我的结果向量包含NA。我不确定这是为什么，因为我知道我的Score1变量不包含任何NAs。

这是想什么我我的输出来完成：

ID MaxScore 
1 3 
2 3 
3 2 
4 1 

感谢

Answer 1

你可以在每一行上使用apply（MARGIN = 1）

apply(X = df1[,-1], MARGIN = 1, FUN = max, na.rm = TRUE) 
#[1] 3 3 2 1 

Answer 2

我们可以使用矢量pmax完成此操作

cbind(df1['ID'], MaxScore = do.call(pmax, c(df1[-1], na.rm = TRUE))) 
# ID MaxScore 
#1 1  3 
#2 2  3 
#3 3  2 
#4 4  1