Question

我有一个问卷项目回复的摘要统计数据。此外，汇总统计数据由几个小组（在这种情况下是政党）提供。我想创建一个以中性类别为中心的净堆积条形图，它是数据框中响应变量的3级（“不同意也不同意”）。

特别是，我可用的答案摘要如下所示。

  Group  Strongly Agree  Agree  Neither disagree or agree  Disagree  Strongly disagree 
  NV.A     35.1           43.8            3.69                  10.9   7.24
  OpenVLD  37.8           19.8           11.30                  17.9  13.30
  SP.A     24.5           11.1           23.50                  19.0  22.10
  Groen    18.2            5.7           35.70                  13.2  27.20
  CD&V     29.2           17.9           12.90                  20.4  19.80

只需将所有内容放在一个数据框中即可。

plot.data<-data.frame(
response =     c(rep("Strongly disagree",5),rep("Disagree",5),
               rep("Neither agree nor disagree",5), 
               rep("Agree",5),rep("Strongly agree",5)),

group = c(rep(c("SP.A","Groen","CD&V","OpenVLD","N-VA"),5)),

percentage = c(23.5,35.7,12.9,11.3,3.69,22.1,27.2,19.8,13.2,7.24,19.0,
13.2,20.4,17.9,10.9,24.5,18.2,29.2,37.8,35.1,11.1, 5.70,17.9,19.8,43.8)
)

我目前的解决方案是简单地创建一个没有居中的堆积条形图。有没有办法实现堆积条形图的居中？

library(ggplot2)

ggplot(plot.data, aes(x=group, y=percentage, fill=response)) + 
geom_bar(stat="identity") +
scale_fill_manual(values=c('#ca0020','#92c5de','#0571b0','#f7f7f7','#f4a582'))+
coord_flip()+
theme_minimal()

Answer 1

我绘制净堆积条形图的解决方案是首先将不同的响应分散到单独的列中，然后使用Likert包中的绘图函数绘制它。

int

中心净堆积条形图，其中包含摘要数据中的ggplot2

1 个答案: