从HH包中自定义Likert函数中的x轴刻度线

Question

我想自定义R中HH包的likert函数输出的x轴刻度标记。 包装手册中的MWE：

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格式参数{1}}功能。在下面的代码中，我添加了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))))
       )