[英]rollmean with dplyr and magrittr
鑒於以下數據:
set.seed(1)
data <- data.frame(o=c('a','a','a','a','b','b','b','b','c','c','c','c'), t=c(1,2,3,4,1,2,3,4,1,2,3,4), u=runif(12), v=runif(12))
data
o t u v
1 a 1 0.26550866 0.6870228
2 a 2 0.37212390 0.3841037
3 a 3 0.57285336 0.7698414
4 a 4 0.90820779 0.4976992
5 b 1 0.20168193 0.7176185
6 b 2 0.89838968 0.9919061
7 b 3 0.94467527 0.3800352
8 b 4 0.66079779 0.7774452
9 c 1 0.62911404 0.9347052
10 c 2 0.06178627 0.2121425
11 c 3 0.20597457 0.6516738
12 c 4 0.17655675 0.1255551
我想計算由 o 列定義的每組 u 的滾動平均值(包動物園)。 滾動均值的階數由 t 設置。 滾動平均值應作為新列添加到 data.frame 中。
我想使用 magrittr 和 dplyr。 我試過
data %>%
group_by(o) %>%
sort(t) %>%
select(u) %>%
rollmean(3) %>%
rbind
但這行不通。 是否可以用 magrittr 和 dplyr 來完成,還是我必須一步一步地完成? o 和 t 的值在我的真實數據中是可變的。
如何填充前兩行?
可能這有幫助:
library(dplyr)
library(zoo)
data %>%
group_by(o) %>%
mutate(rM=rollmean(u,3, na.pad=TRUE, align="right"))
如果你想對兩列都做, u
和v
fun1 <- function(x) rollmean(x, 3, na.pad=TRUE, align="right")
data %>%
group_by(o) %>%
mutate_each(funs(fun1), u, v)
更靈活的包裝器來自rowr
包。 這允許在初始數據中使用不同大小的窗口。
data %>%
group_by(o) %>%
mutate(MEANS = rollApply(u, fun=mean, window=3, align='right'))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.