ggplot2：将堆叠条形图居中居中

Question

我正在创建一个堆叠的条形图，其中每个条形有5个有序类别-我们将它们分别称为1、2、3、4、5。我想将每个条形以中间值（3）为中心，格式类似于奥康纳如何。 等 在这里做了。

我剩下的数字都完成了。

这是我的数据以及到目前为止的示例：

sampledata=data.frame(c(rep("category1",30),rep("category2",30),rep("category3",30)),round(runif(90,min=1,max=5)))
colnames(sampledata)=c("categories","values")

ggplot(data=sampledata,aes(x=categories,fill=factor(values)))+
  geom_bar(position="stack")+
  scale_fill_brewer(palette="RdBu",direction=-1)+
  coord_flip()

我不确定目前该措辞和搜索的确切方式还没有定论。 谢谢你的帮助！

Answer 1

让我们以不同的方式设置示例数据：

set.seed(1001)
sampledata <- data.frame(category1 = sample(factor(1:5), 30, replace = TRUE),
                         category2 = sample(factor(1:5), 30, replace = TRUE),
                         category3 = sample(factor(1:5), 30, replace = TRUE))

现在，它具有适合与likert包一起使用的形式。

library(likert)
plot(likert(sampledata))