R语言中使用ggplot2按列表分面绘制条形图问题咨询

嘿，我刚看了你的代码，问题出在starwars数据集里的films列是列表类型哦！每个角色可能出现在好几部电影里，ggplot没办法直接用这种列表列来做分面，所以才会报错～ 下面我给你一步步解决这个问题：

第一步：预处理数据（关键！） #

我们需要先把列表型的films列拆成每行对应一个角色+一部电影的格式，然后统计每部电影里各个母星的角色数量：

library(dplyr)
library(ggplot2)
library(tidyr) # 用来拆分列表列的unnest函数在这个包里

# 预处理数据：拆分影片列表，统计每部影片各母星的角色数
starwars_films_homeworld <- starwars %>%
  unnest(films) %>% # 把每个角色的多部影片拆成单独行
  filter(!is.na(homeworld)) %>% # 过滤掉母星未知的角色（可选，根据需求调整）
  group_by(films, homeworld) %>% # 按影片和母星分组
  summarise(count = n(), .groups = "drop") # 统计每组的角色数量

第二步：绘制分面柱状图 #

现在数据整理好了，就可以用ggplot绘图啦，还可以调整x轴标签避免重叠：

ggplot(starwars_films_homeworld, aes(x = homeworld, y = count)) +
  geom_bar(stat = "identity", fill = "#0077b6") + # 用identity因为我们已经统计过数量了
  facet_wrap(~films) + # 现在可以正常按影片分面了
  labs(title = "每部星战影片中角色的母星分布", x = "母星", y = "角色数量") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴标签，避免重叠

小提示 #

• 如果不想过滤掉母星未知的角色，可以把filter(!is.na(homeworld))去掉，统计时NA会被当作一个单独的类别显示
• 你也可以用facet_grid(. ~ films)来把分面排成一行，或者调整分面的行数/列数，比如facet_wrap(~films, ncol = 2)

内容的提问来源于stack exchange，提问作者american_noodle