在 r 中对行进行分组聚合和函数

Question

我是 r 的新手，我想汇总以下矩阵

  k  n    m    s
1 g 10 11.8  2.4
2 g 20 15.3  3.2
3 g 15  8.4  4.1
4 r 14  3.0  5.0
5 r 16  6.0  7.0
6 r  5  8.0 15.0

结果 ：

  k   n          s           m
1 g   15         3.233333    7.31667 
2 r   11.66667   9           4.16667

这是我的尝试：

k <- c("g", "g", "g", "r","r","r")
n <- c(10,20,15,14,16,5)
m <- c(11.8, 15.3, 8.4,3,6,8)
s <- c(2.4, 3.2, 4.1,5,7,15)

data1 <- data.frame(k,n,m,s)

data2 <- aggregate(m ~ k, FUN = function(t) ********* , data=data1) 

我在这里对 m 更感兴趣的是序列相加第一行和第二行除以 2 ( 11.8 + 15.30) / 2 然后将结果添加到第三行并除以 3 等等。 n 和 s 只是手段。

Answer 1

这是你的功能：

data2 <- aggregate(
  m ~ k,
  FUN = function(t) sum(t / factorial(length(t)) * factorial(seq_along(t) - 1)),
  data=data1)
data2
#   k        m
# 1 g 7.316667
# 2 r 4.166667

这是一个不寻常的功能，它的目的是什么？

如果你想要其他列的方法，我会使用dplyr ：

library(dplyr)
data1 %>%
  group_by(k) %>%
  summarize(
    across(c(n, s), mean),
    across(m, ~sum(. / factorial(length(.)) * factorial(seq_along(.) - 1)))
  )
# # A tibble: 2 x 4
#   k         n     s     m
#   <chr> <dbl> <dbl> <dbl>
# 1 g      15    3.23  7.32
# 2 r      11.7  9     4.17