长格式数据框中，是否有一种整洁的方法可以获取每个组的jackknife平均值？

可以使用tidyverse包中的group_map函数来实现。以下是代码示例：

library(tidyverse)

# 创建示例数据框
df <- data.frame(group = rep(c("A", "B"), each = 5),
                 value = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))

# 定义函数来计算每个组的jackknife平均值
jack_mean <- function(data, indices) {
  mean(data$value[-indices])
}

# 使用group_map函数计算每个组的jackknife平均值
df %>% 
  group_by(group) %>% 
  group_map(jack_mean)

上述代码将输出一个列表，包含了每个组的jackknife平均值。