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

【问题标题】：Customize x axis tick marks in likert function from HH package从 HH 包中自定义 likert 函数中的 x 轴刻度线
【发布时间】：2018-03-17 22:00:59
【问题描述】：

我想自定义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 左侧的刻度线为正数。

【问题讨论】：

标签： r plot graph lattice likert

【解决方案1】：

HHlikert 函数使用lattice 包进行绘图（特别是barchart 函数），您可以在likert 函数中使用标准lattice 格式化参数。在下面的代码中，我添加了 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))))
       )

【讨论】：