R语言likert包：增大分面条标签字号与调整标签顺序

我刚好对likert包的绘图调整有经验，这两个需求都可以通过结合因子排序和ggplot2的主题设置轻松实现，一步步来：

一、调整分面条标签的显示顺序 #

likert图的分面顺序完全由你数据中项目变量的因子水平顺序决定，所以我们只需要先把对应列转换成因子，手动指定想要的顺序即可：

# 假设你的数据框是df，存储分面标签的列名为item
# 把levels里的文本替换成你实际的标签，按你需要的序列（比如2,1,5,3,4对应的标签）排列
df$item <- factor(df$item, levels = c("第二个标签文本", "第一个标签文本", "第五个标签文本", "第三个标签文本", "第四个标签文本"))

这样后续绘制likert图时，分面条就会严格按照你指定的levels顺序展示了。

二、增大分面条标签的字号 #

likert包的绘图函数返回的是标准ggplot2对象，所以我们可以直接用theme()函数修改分面标签的字体大小：

# 先绘制基础的likert分组图（替换成你的实际数据列）
p <- likert(items = df[, c("你的问题列1", "你的问题列2")], grouping = df$分组列)

# 调整分面标签字号，size值按需修改
plot(p) +
  theme(
    # 如果是顶部横向分面用strip.text.x，右侧纵向分面用strip.text.y
    strip.text.x = element_text(size = 14), 
    # 可选：如果需要加粗标签，加上face参数
    # strip.text.x = element_text(size = 14, face = "bold")
  )

完整示例（用likert自带数据演示） #

library(likert)
data(pisaitems)

# 1. 自定义分面标签顺序
pisaitems$item <- factor(pisaitems$item, 
                         levels = c("I read only if I have to", 
                                    "Reading is difficult for me", 
                                    "I like talking about books", 
                                    "I read only to get information", 
                                    "Reading is fun"))

# 2. 绘图并调整标签字号
p <- likert(items = pisaitems[, 1:5])
plot(p) +
  theme(strip.text.x = element_text(size = 14))

内容的提问来源于stack exchange，提问作者rise of a phoenix