在HRT包的Likert图中左对齐y轴文本

Question

HH软件包中的李克特人物太棒了；但是，在按我的要求进行输出时遇到了很多麻烦（可能是由于y轴项目的剪切数）。特别是，我似乎无法将y值文本（“语句/问题”）向左对齐-换行的第二行右对齐。

这是示例代码（请注意，我的真实数据有4个子表，而不是2个，所以要长得多）：

likert(Question ~ . | Subtable, data=likert_data.df,
   positive.order=TRUE,
   as.percent = TRUE,
   par.strip.text=list(cex=1.0),
   ylab=NULL,
   box.ratio=2,
   box.width=0.8,
   xlim=c(-100,100),
   scales=list(x=list(at=seq(-100,100,50),
                      labels=c(seq(100,0,-50),seq(50,100,50))),
               y=list(relation="free",cex=0.7)),
   layout=c(1,2))

我尝试过的事情：

我已经使用stringr likert_data.df$Question<-str_wrap(likert_data.df$Question, width = 40, collapse="\n")包装了y轴值标签（“ statements”），但是collapse="\n"作为未使用的参数回来了。我还必须减小字体大小，以使标签不重叠。