使用R在Likert图中重新排序组

Question

我正在使用该jbryer/likert包绘制Likert数据.

考虑响应表,称为items-here,A等B,是列名,而不是数据的一部分:

A B C D
5 4 5 4
3 3 3 4
2 2 2 2
2 2 2 3
5 3 6 7
3 3 5 4

以下代码:

choices  = c("Very low", "Low", "Rather low", "Neither low nor high", "Rather high", "High", "Very high")
for(i in 1:ncol(items)) {
  items[,i] = factor(items[,i], levels=1:7, labels=choices, ordered=TRUE)
}

现在,我们将其转换为likert数据并绘制它,它将覆盖内置绘图函数,其中一个使用ggplot:

plot(likert(items), ordered=FALSE)

这给了我:

凉.全部订购.但是A,B等等作为条件的描述符没有意义,我想覆盖它们:

names(items) = c("LT", "ST", "SemTag", "SemTagContext")

这给了我错误的顺序:

看看ST它是怎么来的,虽然它的名字是B？我的订单得到了改变B,D,C,A.

我怎样才能使它保持秩序,返回酒吧D,C,B,A-or,与我的新组名称:SemTagContext,SemTag,ST,LT？

_{注意:上面的数据表已缩短.图中的条宽不反映这个简短的数据示例,而是我所拥有的完整数据集.但问题是一样的.}

Answer 1

我决定自己重新实现这个,正如jon所说:

# additional requirements
library(ggplot2)
library(reshape2)
library(RColorBrewer)

# create summary table
table_summary = likert(items)

# reshape results
results = melt(table_summary$results, id.vars='Item')

# reorder results
results$Item = factor(results$Item, levels=c("LT", "ST", "SemTag", "SemTagContext"))

# some defaults
ymin = 0
text.size = 3

ggplot(results, aes(y=value, x=Item, group=Item)) + 
  geom_bar(stat='identity', aes(fill=variable)) + 
  ylim(c(-5,105)) + 
  coord_flip() +
  scale_fill_manual('Response', values=brewer.pal(7, "RdYlGn"), 
              breaks=levels(results$variable), 
              labels=levels(results$variable)) +
  geom_text(data=table_summary$summary, y=ymin, aes(x=Item, 
              label=paste(round(low), '%', sep='')), 
              size=text.size, hjust=1) +
  geom_text(data=table_summary$summary, y=100, aes(x=Item,
              label=paste(round(high), '%', sep='')), 
              size=text.size, hjust=-.2) +
  ylab('Percentage') + xlab('')

这会产生正确的顺序:

Answer 2

您可以使用 group.order 参数来指定顺序。使用 names() 函数获取列的名称。

plot(likert_var, group.order=names(results))