如何在ggplot的facet_wrap中仅显示有数据的X轴标签？

问题描述 #

使用ggplot的facet_wrap函数绘制柱状图时，所有分面共享全部X轴标签（Method_Used），导致无对应数据的标签也会显示，图表显得杂乱。需要自动仅保留每个分面中存在数据的X轴刻度标签，无需手动指定。

原始数据与代码 #

数据框 #

df = structure(list(Method_Used = c("Animal_Borne_Acoustic", "Animal_Borne_Acoustic_Archival", "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archival_PIT", "Animal_Borne_Archival_Satellite", "Animal_Borne_Satellite", "Animal_Borne_Satellite_Archival", "Animal_Borne_Satellite_Archival", "BRUV_Acoustic", "BRUV_Acoustic", "BRUV_Acoustic_Satellite", "Controlled_Acoustic", "Controlled_Acoustic", "Controlled_Archical", "Controlled_Satellite", "Drone_Acoustic", "Stationary_Acousitc_PIT", "Stationary_Acoustic", "Stationary_Acoustic", "Stationary_Acoustic", "Stationary_Acoustic", "Stationary_Acoustic", "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", "Stationary_Acoustic_PIT", "Stationary_Acoustic_Radio", "Stationary_Acoustic_Radio_PIT", "Stationary_Archical", "Stationary_Archical", "Stationary_Archical", "Stationary_PIT", "Stationary_Radio", "Stationary_Radio_PIT", "Stationary_Satellite", "Stationary_Satellite"), Water_Type = c("Saltwater", "Saltwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Freshwater", "Brackish", "Freshwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Freshwater", "Freshwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", "Freshwater", "Freshwater", "Freshwater", "Saltwater", "Saltwater"), Taxa = c("Reptilia", "Chondrichthyes", "Phocidae", "Cetacea", "Chondrichthyes", "Mollusca", "Phocidae", "Reptilia", "Teleostei", "Reptilia", "Reptilia", "Chondrichthyes", "Chondrichthyes", "Phocidae", "Chondrichthyes", "Teleostei", "Chondrichthyes", "Chondrostei", "Teleostei", "Cetacea", "Phocidae", "Chondrichthyes", "Teleostei", "Teleostei", "Teleostei", "Chondrichthyes", "Decapoda", "Teleostei", "Chondrichthyes", "Decapoda", "Gastropoda", "Teleostei", "Teleostei", "Teleostei", "Teleostei", "Gastropoda", "Reptilia", "Teleostei", "Teleostei", "Teleostei", "Teleostei", "Cetacea", "Phocidae"), total_count = c(1L, 1L, 1L, 7L, 6L, 1L, 2L, 5L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 5L, 1L, 1L, 1L, 1L, 2L, 4L, 1L, 1L, 12L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -43L))

原始绘图代码 #

Taxa_Plot = ggplot(
  data = df,
  aes(x = Method_Used, y = total_count)) +
  geom_col() +
  theme_classic() +
  facet_wrap(~Water_Type) +
  theme( 
    axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
    axis.text.y = element_text(size = 15)
  )
    
Taxa_Plot

解决方案 #

方法1：使用ggh4x包的facet_wrap2（推荐） #

ggh4x是ggplot2的扩展包，提供了更灵活的分面控制，其中facet_wrap2支持自由刻度，能自动为每个分面仅显示存在数据的X轴标签。

1. 安装并加载包：

install.packages("ggh4x")
library(ggh4x)

2. 修改绘图代码，替换facet_wrap为facet_wrap2并设置scales = "free_x"：

Taxa_Plot = ggplot(
  data = df,
  aes(x = Method_Used, y = total_count)) +
  geom_col() +
  theme_classic() +
  # 使用facet_wrap2并开启X轴自由刻度
  facet_wrap2(~Water_Type, scales = "free_x") +
  theme( 
    axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
    axis.text.y = element_text(size = 15)
  )
    
Taxa_Plot

方法2：拆分数据后逐个绘图拼接（手动实现） #

如果不想额外安装包，可以将数据按Water_Type拆分，逐个绘制子图，再用patchwork包拼接：

1. 安装并加载patchwork：

install.packages("patchwork")
library(patchwork)

2. 拆分数据并绘图：

# 拆分数据为列表
df_list = split(df, df$Water_Type)

# 逐个绘制子图
plot_list = lapply(df_list, function(sub_df) {
  ggplot(sub_df, aes(x = Method_Used, y = total_count)) +
    geom_col() +
    theme_classic() +
    labs(title = unique(sub_df$Water_Type)) +
    theme( 
      axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
      axis.text.y = element_text(size = 15)
    )
})

# 拼接所有子图
wrap_plots(plot_list)

效果说明 #

两种方法都能实现：每个分面的X轴仅显示当前分面中存在数据的Method_Used标签，避免无意义标签导致的图表杂乱，且无需手动指定每个分面的标签内容。

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