ggplot中facet_wrap的X轴标签无法旋转或隐藏问题求助

• 核心问题：你的代码存在语法错误——facet_wrap(~ VIC_RACE)这行末尾没加+号，导致后续的theme_bw()和theme()设置根本没被纳入绘图流程，所以不管调整angle还是用element_blank()都不会生效。
• 附加优化：就算补上+号，仅设置angle=45可能还是会出现标签拥挤截断的情况，建议给element_text()加上hjust=1参数让标签右对齐；要是想直接隐藏X轴标签，把element_text(...)替换成element_blank()即可。

修复后的完整代码：

library(tidyverse)
# 先加载数据（假设你已通过read_csv等方式将数据读取到data对象中）
# data <- read_csv("NYPD_Shooting_Incident_Data__Historic_.csv")

data %>%
  drop_na(VIC_SEX, VIC_RACE, BORO) %>% # 过滤关键字段空值，避免绘图报错
  ggplot(aes(x = BORO)) +
  geom_bar(aes(fill = BORO), show.legend = FALSE) +
  facet_wrap(~ VIC_RACE) + # 必须补上+号，连接后续绘图设置
  theme_bw() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1) # 倾斜标签并右对齐，解决拥挤问题
    # 若要完全隐藏X轴标签，替换为：axis.text.x = element_blank()
  ) +
  labs(
    title = "按受害者种族划分的各行政区枪击事件数量",
    x = "行政区",
    y = "枪击事件数量"
  )

额外小技巧：如果部分种族类别样本量极少，分面后会显得零散，可以用fct_lump()合并少见类别，让图表更整洁：

data %>%
  drop_na(VIC_SEX, VIC_RACE, BORO) %>%
  mutate(VIC_RACE = fct_lump(VIC_RACE, n = 5)) # 仅保留前5个最常见的种族类别
  # 后续接上上述ggplot绘图代码即可

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