如何通过 r 中列的不同值平均分割数据帧？答案

【问题标题】：How to split dataframe equally by different values of a column in r?如何通过 r 中列的不同值平均分割数据帧？
【发布时间】：2021-08-06 15:54:35
【问题描述】：

我有一个数据框 df，我想按列中的特定值对其进行拆分/子集。包含这些值的列是列 ID。这样做的原因是因为我想为每个不同的 ID 生成折线图。我的真实数据集有很多唯一的 ID，因此如果我为同一页面中的每个 ID 生成折线图，将很难阅读它们。因此，我正在考虑将数据集拆分为较小的数据集，其中包含 5 个不同的 ID。有没有人可以提供帮助或想出更好的主意？

dput(df)
structure(list(ID = c("F1", "F1", "F1", "F1", "F1", "F1", "F1", 
"F2", "F2", "F2", "F2", "F2", "F2", "F2", "F2", "F3", "F3", "F3", 
"F3", "F3", "F3", "F3", "F3", "F3", "F4", "F4", "F4", "F4", "F4", 
"F4", "F4", "F4"), Date = c("22/6/2021", "23/6/2021", "24/6/2021", 
"25/6/2021", "26/6/2021", "27/6/2021", "28/6/2021", "22/6/2021", 
"23/6/2021", "24/6/2021", "25/6/2021", "26/6/2021", "27/6/2021", 
"28/6/2021", "29/6/2021", "22/6/2021", "23/6/2021", "24/6/2021", 
"25/6/2021", "26/6/2021", "27/6/2021", "28/6/2021", "29/6/2021", 
"30/6/2021", "22/6/2021", "23/6/2021", "24/6/2021", "25/6/2021", 
"26/6/2021", "27/6/2021", "28/6/2021", "29/6/2021"), Values = c(9.6, 
9.8, 10.2, 9.8, 9.9, 9.9, 9.9, 1.2, 1.2, 1.8, 1.5, 1.5, 1.6, 
1.4, 1.1, 3266, 3256, 7044, 6868, 6556, 3405, 3410, 3980, 5567, 
59.4, 56, 52.8, 52.4, 55.5, 54, 61, 53.6)), class = "data.frame", row.names = c(NA, 
-32L))

这些是折线图的代码行。问题是有很多不同的 ID，当我运行此代码时，所有折线图都在同一页面上，很难阅读它们。此外，由于所有内容都被挤压，因此无法显示日期。我可以将所有线条放在一张图表中，但每个 ID 的值范围都不同。

ggplot(data = df, aes(x = factor(Date), y = Values)) +       
  geom_line(aes(group = ID)) + geom_point() + 
  facet_wrap(~ID, scales = 'free')

【问题讨论】：

你需要split(df, df$ID)
该函数是正确的，但我正在研究如何放置一个参数，以便将其拆分为 5 个不同的 ID。我试过这个 `dflarge
split 应该根据 'ID' 中的唯一值返回一个列表
我了解，但我想要具有多个 ID 的较小数据集。例如。如果我有 20 个 ID，我想创建 4 个具有 5 个 ID 的数据集@akrun
您能否查看发布的解决方案。是你想要的吗

标签： r dataframe linechart

【解决方案1】：

我们可以使用%/% 对使用match 创建的序列索引执行split

library(dplyr)
library(ggplot2)
library(gridExtra)
library(purrr)
lst1 <- df %>% 
             group_split(grp =((match(ID, unique(ID)) -1) %/% 5 + 1))

现在，使用map 遍历列表并创建绘图并保存为.pdf

out <- map(lst1, ~ .x %>%
           ggplot(aes(x = factor(Date), y = Values)) +       
  geom_line(aes(group = ID)) + geom_point() + 
  facet_wrap(~ID, scales = 'free'))
ggsave(
   filename = "plots.pdf", 
   plot = marrangeGrob(out, nrow=1, ncol=1), 
   width = 15, height = 9
)

【讨论】：