r - 从 HH 包中自定义 likert 函数中的 x 轴刻度线

Question

我想从包手册中自定义 R. MWE 中 HH 包的 likert 函数输出的 x 轴刻度线：

library(HH)
data("ProfChal", package = "HH")
likert(Question ~ . , data=ProfChal[EmpRows,], as.percent=TRUE,
     ylab=NULL,
     main="Is your job professionally challenging?",
     positive.order=TRUE) 

目前，x 轴刻度线的增量为 20 个单位。我想做10个单位。请注意，我仍然希望 0 左侧的刻度线为正数。

Answer 1

该HH likert函数使用lattice包进行绘图（特别是barchart函数），您可以在函数中使用标准lattice格式参数likert。在下面的代码中，我添加了xlim和scales参数来分别显示如何设置轴限制和中断。

likert(Question ~ . , data=ProfChal, as.percent=TRUE,
       ylab=NULL,
       main="Is your job professionally challenging?",
       positive.order=TRUE, 
       xlim=c(-50,100),
       scales=list(x=list(at=seq(-50,100,10),
                          labels=c(seq(50,0,-10),seq(10,100,10))))
       )