r - 在R中，如何合并两组split函数的结果？

Question

我有一个数据框，其中一列有 4 组学生的成绩，另一列有问题的回答。我使用 split 函数创建箱线图，然后测试各组。我只想创建两个组(合并 2 个最低组和 2 个最高组)。 然而，我正在为此苦苦挣扎。 split 函数给出数据帧、矩阵、向量？

    df <- data.frame(
  groups = c("group 1", "group 2", "group 3", "group 4", "group 1", "group 2", "group 3", "group 4"),
  responses = c(1, 4, 5, 9, 3, 4, 6, 9)
)
splittedDF <- split(x = df$responses, f = df$groups)

这给出了这个输出:

      $`group 1`
[1] 1 3
$`group 2`
[1] 4 4
$`group 3`
[1] 5 6
$`group 4`
[1] 9 9

我想合并到这样的东西:

    $`Lowest groups`
[1] 1 3 4 4

$`Highest groups`
[1] 5 6 9 9 

你有什么想法吗？

Answer 1

我们可以先进行排列，然后在进行分割之前创建分组

library(dplyr)
df %>% 
 arrange(responses, groups) %>% 
 mutate(groups = c("Lowest groups", "Highest groups")[gl(n(), 4, n())]) %>%
 {split(.$responses, .$groups)}

-输出

$`Highest groups`
[1] 5 6 9 9

$`Lowest groups`
[1] 1 3 4 4

---

如果分割列表已经排序，

list(`Lowest groups` = unname(unlist(head(splittedDF, 2))),
    `Highest groups` = unname(unlist(tail(splittedDF, 2))))

-输出

$`Lowest groups`
[1] 1 3 4 4

$`Highest groups`
[1] 5 6 9 9

如果没有排序，则从每个列表元素中获取max值，order

i1 <- order(sapply(splittedDF, max))
splittedDF2 <- splittedDF[i1]
list(`Lowest groups` = unname(unlist(head(splittedDF2, 2))),
    `Highest groups` = unname(unlist(tail(splittedDF2, 2))))