循环创建多个ggplots

Question

我有一个数据集，该数据集具有变量周，社会经济状况（从1-5起）以及每周和每个社会经济地位的独特家庭数量。

现在，我想创建5个GGPLOTS，这是每个社会经济地位的一个图。每个情节都应显示几周来一个社会经济地位的独特家庭数量的发展。

我考虑过要使用for循环，但到目前为止，我找不到有效的解决方案。如果有人可以帮助我，那会很棒。

Answer 1

假设您的数据是df，并且您有列Week，ses和nhh。如果您只想通过SES可视化绘图，则可以使用facet_wrap（），如：

ggplot(df, aes(week, nhh)) + 
  geom_point() + 
  facet_wrap(~ses)

如果您想要绘图的数据框架，则可以执行此操作：

plots <- df %>% 
  group_by(ses) %>%
  summarize(plot = list(ggplot(NULL, aes(week, nhh)) + geom_point()))

输出：

# A tibble: 5 x 2
    ses plot  
  <int> <list>
1     1 <gg>  
2     2 <gg>  
3     3 <gg>  
4     4 <gg>  
5     5 <gg>  

如果您想要一个列表情节对象，您可以做到这一点

plots <- lapply(unique(df$ses), \(s) ggplot(df %>% filter(ses == s), aes(week,nhh)) + geom_point())
names(plots = unique(df$ses))