为分面ggballoonplot添加X轴标题失败求助

问题重现 #

使用ggballoonplot结合facet.by参数创建分面气泡图时，尝试通过xlab()或labs(x = ...)设置X轴标题，但生成的图表始终无法显示自定义标题。测试代码如下：

library(ggplot2)
df <- as.data.frame(HairEyeColor)
# 第一种写法
p <- ggballoonplot(df, x = "Hair", y = "Eye", size = "Freq",
                   fill = "Freq", facet.by = "Sex",
                   ggtheme = theme_bw()) +
  scale_fill_viridis_c(option = "C") +
  xlab("Group")

# 第二种写法
p2 <- ggballoonplot(df, x = "Hair", y = "Eye", size = "Freq",
                    fill = "Freq", facet.by = "Sex",
                    ggtheme = theme_bw()) +
  scale_fill_viridis_c(option = "C") +
  labs(x = "Group")

原因分析 #

ggballoonplot属于ggpubr包，当使用facet.by开启分面功能时，函数默认会隐藏X轴标题，导致常规ggplot2的标题设置方法失效。

解决方法 #

方法1：强制开启X轴标题显示 #

直接通过theme()修改轴标题的可见性，覆盖函数的默认设置：

library(ggplot2)
library(ggpubr) # 必须加载ggpubr包，ggballoonplot是该包的函数
df <- as.data.frame(HairEyeColor)

p <- ggballoonplot(df, x = "Hair", y = "Eye", size = "Freq",
                   fill = "Freq", facet.by = "Sex",
                   ggtheme = theme_bw()) +
  scale_fill_viridis_c(option = "C") +
  xlab("Group") +
  # 强制显示X轴标题
  theme(axis.title.x = element_text(visible = TRUE))

print(p)

方法2：使用ggpubr专属函数ggpar设置 #

ggpubr提供了ggpar()函数专门用于调整绘图元素，和ggpubr系列绘图函数兼容性更好：

library(ggplot2)
library(ggpubr)
df <- as.data.frame(HairEyeColor)

p <- ggballoonplot(df, x = "Hair", y = "Eye", size = "Freq",
                   fill = "Freq", facet.by = "Sex",
                   ggtheme = theme_bw()) +
  scale_fill_viridis_c(option = "C")

# 用ggpar设置X轴标题
p <- ggpar(p, xlab = "Group")
print(p)

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