如何在R的gglikert图中添加正常显示的X轴标签？

我用R语言的gglikert()函数绘制李克特图，想为X轴添加标签，但gglikert()本身没有xlab参数，尝试用xlab()添加后标签始终不显示。具体操作步骤如下：

• 加载测试数据：

library(JWileymisc)
library(ggplot2)
library(data.table)
testdat <- 
structure(list(Var = 1:4, Mean = c(1.55, 1.44, 1.33, 1.22), Low = c("D low", "C low", "B low", "A low"), High = c("D high", "C high", "B high", "A high"), SD = c(0.23, 0.365, 0.43, 0.28)),
 row.names = c(NA, -4L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x0000013a8ae885b0>)

• 创建gglikert图：

p <- gglikert("Mean", "Var", "Low", "High", data = testdat, xlim = c(1, 7), title = "My Headline") +
          theme(text = element_text(size = 14), legend.position = "none",
                plot.margin = margin(0.5, 3, 0.5 , 0.5, "cm"),
                plot.title = element_text(hjust = 0.5),
                plot.background =  element_rect(color = "black", size = 1))

• 提取绘图数据并添加标准差：

ggdata <- ggplot_build(p)$data[[1]]
ggdata$SD <- testdat$SD

• 添加误差棒和散点：

p2 <- p + geom_errorbar(aes(xmin = pmax(1, Mean - SD), xmax = pmin(5, Mean + SD)), width = 0.2, color = "black") +
          geom_point(aes(x = Mean, y = Var), color = "cornflowerblue", size = 3)

• 尝试添加X轴标签：

p2 + xlab(label = "LABELLING")

最终生成的图中X轴标签未显示，该如何解决？

问题根源在于gglikert()默认将X轴标签设置为element_blank()（即隐藏状态），直接调用xlab()无法覆盖这个默认设置，需要通过theme()强制指定X轴标签的显示样式。

方法一：在添加xlab时同步设置theme参数 #

直接在最终绘图代码中，通过theme(axis.title.x)强制开启X轴标签显示：

p2 + xlab("LABELLING") +
  theme(axis.title.x = element_text(size = 14, color = "black")) # 可根据需求调整字号、颜色等样式

方法二：提前在初始绘图对象中配置theme参数 #

在创建p对象时，就把axis.title.x的显示规则加入theme()，后续调用xlab()即可直接生效：

p <- gglikert("Mean", "Var", "Low", "High", data = testdat, xlim = c(1, 7), title = "My Headline") +
  theme(text = element_text(size = 14), 
        legend.position = "none",
        plot.margin = margin(0.5, 3, 0.5 , 0.5, "cm"),
        plot.title = element_text(hjust = 0.5),
        plot.background =  element_rect(color = "black", size = 1),
        axis.title.x = element_text(size = 14)) # 添加此行，确保X轴标签可显示

p2 <- p + geom_errorbar(aes(xmin = pmax(1, Mean - SD), xmax = pmin(5, Mean + SD)), width = 0.2, color = "black") +
  geom_point(aes(x = Mean, y = Var), color = "cornflowerblue", size = 3)

p2 + xlab("LABELLING")

两种方法都能让X轴标签正常显示。

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