dplyr: How to slice row1 of group1，row2 of group2，row3 of group3，…groupN的rowN

dplyr 是一个用于数据处理的 R 语言包，它提供了许多方便的函数来对数据进行操作。要实现你所描述的功能，即从每个分组中提取特定行，可以使用 dplyr 的 group_by() 和 filter() 函数结合使用。

以下是一个示例代码，展示如何从每个分组中提取第一行：

library(dplyr)

# 创建一个示例数据集
df <- data.frame(
  group = rep(letters[1:3], each = 4),
  value = runif(12)
)

# 使用 dplyr 提取每个分组的第1行
result <- df %>%
  group_by(group) %>%
  filter(row_number() == 1) %>%
  ungroup()

print(result)

在这个例子中，group_by(group) 将数据集按 group 列进行分组，filter(row_number() == 1) 过滤出每个分组中的第一行（row_number() 函数会为每个分组内的行分配一个唯一的序号），最后 ungroup() 取消分组。

如果你想要提取每个分组的第 N 行，可以将 row_number() == 1 中的 1 替换为 N。例如，提取每个分组的第二行：

result <- df %>%
  group_by(group) %>%
  filter(row_number() == 2) %>%
  ungroup()

print(result)

如果你想要提取每个分组的不同行，比如第一个分组的第1行，第二个分组的第2行，以此类推，你需要先创建一个与分组相对应的行号向量，然后在 filter() 中使用这个向量：

# 创建一个行号向量，对应每个分组的行号
row_numbers <- c(1, 2, 3)

# 使用 dplyr 提取每个分组的指定行
result <- df %>%
  group_by(group) %>%
  filter(row_number() %in% row_numbers) %>%
  ungroup()

print(result)

在这个例子中，row_numbers 向量定义了每个分组需要提取的行号。filter(row_number() %in% row_numbers) 将只保留那些行号在 row_numbers 向量中的行。

请注意，这些代码示例假设你的数据集已经按照某种方式进行了分组，并且每个分组至少有 N 行数据。如果某个分组没有足够的行数，那么对应的行将不会被提取。

参考链接：