R Likert 包 - 更改标签级别答案

【问题标题】：R Likert package - change label levelsR Likert 包 - 更改标签级别
【发布时间】：2014-01-29 22:10:50
【问题描述】：

我正在使用Likert R 包来生成图表。我有以下最小的 R 示例：

library("likert")

group = c("One", "Two", "One", "Two", "One")
response = c(1, 2, 3, 3, 4)
df = data.frame(response)
levels = c("Strongly Disagree", "Disagree", "Neither Agree nor Disagree", "Agree", "Strongly Agree")
df$response = recode(df$response, from=c(1, 2, 3, 4, 5), to=levels)
df$response = as.factor(df$response)
df$response = factor(df$response, levels=levels)

likert_data = likert(df, grouping=group)

plot(likert_data, legend.position="right", plot.percents=FALSE, plot.percent.low=FALSE, plot.percent.high=FALSE, plot.percent.neutral=FALSE, group.order=c("One", "Two"))
+ ggtitle("Title Here")
+ theme(axis.text.y = element_text(colour="black", size="10", hjust=0))
+ theme(axis.text.x = element_text(colour="black", size="10"))

这会生成一个图表，但是，在右侧的“响应”标签中，它只列出了 5 个李克特选项中的 4 个。它缺少“非常同意”，因为它不是数据点。

~~如何强制它在标签中列出所有级别的李克特数据？~~（编辑：已解决，见评论）
如何将左侧的组标签更改为我指定的名称？

【问题讨论】：

我最终在包中找到了有问题的部分，并通过“limits”参数强制它显示。我在这里提出了一个拉取请求，但是，我认为它可能应该是传入是否删除标签的参数。 github.com/jbryer/likert/pull/25

标签： r graphing

【解决方案1】：

也许像这样作为一个开始。您必须将 fill = c(1:5) 替换为图中的颜色。

library(likert)
library(reshape)

plot.new()
plot(likert_data, legend = "", plot.percents=FALSE, plot.percent.low=FALSE, plot.percent.high=FALSE, plot.percent.neutral=FALSE, group.order=c("One", "Two"))
legend(x = .7, y = .5, fill = c(1:5), legend = levels)

【讨论】：