R中所有列的相同操作（除法）

Question

我有一个像 Christmas 这样的数据集：

Christmas <- data_frame(month = c("1", "1", "2", "2"), 
                 NP = c(2, 3, 3, 1),
                 ND = c(4, 2, 0, 6),
                 NO = c(1, 5, 2, 4),
                 variable = c("mean", "sd", "mean", "sd"))

我想按月计算每列的 t 统计量。 我想使用的 t-statistic 公式是 t-statistic = mean/sd。 （注意：我想为所有（在这种情况下，它们只是 NP、ND 和 NO）列进行计算）。

新数据集将类似于 t_statistics：

t_statistic <- data_frame(
  month = c("1", "2"), 
  NP = c(2/3, 3),
  ND = c(4/2, 0),
  NO = c(1/5, 2/4)
  )

有什么线索吗？

Answer 1

如果我们已经创建了mean/sd 值，那么它只是first 元素除以last（因为每个组只有两行）

library(dplyr)
out <- Christmas %>% 
    group_by(month) %>% 
    summarise(across(NP:NO,  ~first(.)/last(.)))

-输出

out
# A tibble: 2 × 4
  month    NP    ND    NO
  <chr> <dbl> <dbl> <dbl>
1 1     0.667     2   0.2
2 2     3         0   0.5

-检查 OP 的输出

> identical(t_statistic, out)
[1] TRUE

---

或者如果mean/sd 没有排序

Christmas %>%
   arrange(month, variable) %>%
   group_by(month) %>%
   summarise(across(NP:NO,  ~first(.)/last(.)))