如何为行添加中值？

Question

我有一个包含53列的数据框（数据）（ID列加上52个数值）。我可以添加带有以下含义的列：

data$mean <- rowMeans(data[,2:51],na.rm = TRUE) # add mean of rows

但是，我不能对中位数做同样的事情：

data$medians <- rowMedians(month.sum[,2:51],na.rm = TRUE) # add medians of rows

我安装了包含rowMedians的 matrixStats 包，但它对我不起作用。

Answer 1

您可以将任意函数应用于apply的行。使用

apply(data[,2:51],1, median, na.rm = TRUE)

阅读?apply帮助页面以获取更多信息。