更改“likert”标准文本

Question

我不知道如何更改使用likert包创建的地块上的标准文本。

为了简单起见，我将只提供示例数据，因为解决方案可能是相同的。

library(likert)

data(pisaitems) 

items28 <- pisaitems[, substr(names(pisaitems), 1, 5) == "ST24Q"] 

l28 <- likert(items28) 

plot(l28)

输出应该如下图所示，我想要更改的是“响应”和“百分比”。

​

​

希望你能帮忙！

Answer 1

欢迎来到这里！我不知道likert包，但它的函数plot似乎是基于ggplot2的，所以您可以以ggplot2的方式修改选项：

plot(l28) +
  labs(
    x = "Another lab",                          # here you manage axis
    y = "My lab"                                # also here ("inverted "because
                                                # it seems plot has coord_flip option)
  ) + guides(fill=guide_legend("My e title"))   # here you manage the title of the legend

​

​