r - 转换 R 数据框 - 应用运行中位数

Question

我需要帮助在 R 中转换以下数据框：

-----------------------------------
| ID   | x_1  | x_2  | ... | x_m  | 
|---------------------------------|
| id_1 | x_11 | x_12 | ... | x_1m |
|---------------------------------|
|              ...                |
|---------------------------------|
| id_n | x_n1 | x_n2 | ... | x_nm |
-----------------------------------

我有一个 id 列和从 n 个实验中获得的m 个测量值(x_1 - x_m) 。对于每个实验/行，我想使用运行中位数平滑 m 测量值。

有没有一种简单的方法可以在 R 中进行这种转换？

Answer 1

library(zoo)
apply( dfrm[-1], 1, rollmedian, k=5)

或者：

cbind(dfrm[1], as.dataframe( apply( dfrm[-1], 1, rollmedian, k=5) ) )

Answer 2

类似于@DWin 的答案，但使用stats ?runmed：

apply(dfrm[-1], 1, runmed, k=5)