循环，以创建多个to图。

Question

我有一个数据集，有变量周，社会经济状况(从1-5)，每个星期的独特家庭数量和每个社会经济状况。

现在，我想为每个社会经济地位创建5个to地块，一个地块。每个地块应该显示几个星期内一个社会经济地位的独特家庭数量的发展情况。

我考虑过使用for循环，但到目前为止我还没有找到一个可行的解决方案。如果有人能帮我那就太好了。

Answer 1

假设您的数据是df，并且您有week、ses和nhh列。如果您只想通过use可视化该情节，可以使用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))