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

Question

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

剩下的数字我都完成了。

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

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))