将百分比放在框中并在R的Likert模块中添加子标题

Question

使用R的likert包（更多信息：http://jason.bryer.org/likert/）创建使用ggplot2的这些图表。

以下是使用R中的likert生成图表的示例代码。

require(likert)

data(pisaitems)

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

l28 <- likert(items28)

plot(l28)

以下是我希望输出显示的示例：

首先，我想要在Likert比例的每个方框中添加百分比来表示数量，而不是像目前提供的那样在中间。我查看了github上的源代码，无法理解他是如何做到的。

其次，我想知道它可能在中间分界的每一边都有一个小标题来说'＃34;非常低/低的百分比＆＃34; ＆＃34;高/非常高的百分比＆＃34;在图表的顶部，与图的其余部分相关。

由于

Answer 1

要添加百分比，您只需将参数plot.percents设置为TRUE即可。我不知道副标题的良好解决方案，但您可以使用ggtitle包的theme和ggplot2函数。这是一个想法：

plot(l28, plot.percents = TRUE) + 
ggtitle("Percentage of Strongly disagree/Disagree  Percentage of Strongly agree/Agree") +
theme(plot.title = element_text(hjust = 0.45, size = 10))