我有一个数据框:
set.seed(123)
x <- sample(10)
y <- x^2
my.df <- data.frame(x, y)
结果是这样的:
> my.df
x y
1 3 9
2 8 64
3 4 16
4 7 49
5 6 36
6 1 1
7 10 100
8 9 81
9 2 4
10 5 25
我想要的是按每 n 行对行进行分组,以计算均值,总和或5个选定行上的任何值。对于 n = 5 这样的事情:
my.df %>% group_by(5) %>% summarise(sum = sum(y), mean = mean(y))
预期输出如下:
# A tibble: 1 x 2
sum mean
<dbl> <dbl>
1 174 34.8
2 211 42.2
当然,数据帧中的行数可以是15、20、100。我仍然想每隔 n 行对数据进行分组。
我该怎么做?
答案 0 :(得分:7)
我们可以使用rep
或gl
创建分组变量
library(dplyr)
my.df %>%
group_by(grp = as.integer(gl(n(), 5, n()))) %>%
#or with rep
# group_by(grp = rep(row_number(), length.out = n(), each = 5))
summarise(sum = sum(y), mean = mean(y))
# A tibble: 2 x 3
# grp sum mean
# <int> <dbl> <dbl>
#1 1 174 34.8
#2 2 211 42.2
答案 1 :(得分:1)
另一个选择可能是:
my.df %>%
group_by(x = ceiling(row_number()/5)) %>%
summarise_all(list(sum = sum, mean = mean))
x sum mean
<dbl> <dbl> <dbl>
1 1 174 34.8
2 2 211 42.2