R 在ggplot条形图中包括没有计数的列，以便与其他条形图进行比较

我有一系列的条形图，我正在用ggplot为演示创建

所提供的数据是问卷调查，有六种可能的答案（利克特量表）

数据是“窄”的，允许分组条形图显示前几年以及最近几年的结果

变量列包含问题名称（不仅仅是此处显示的名称）和值列，值列包含给出的答案

资料来源：

    Survey          Group          variable            value
1   2012            Out.patients   Understood.carer    Extremely well
2   2012            Out.patients   Understood.carer    Extremely well
3   2012            Out.patients   Understood.carer    Extremely well
4   2012            Out.patients   Understood.carer    Very well
5   2012            Out.patients   Understood.carer    Extremely well
6   2012            Out.patients   Understood.carer    Extremely well
7   2012            Out.patients   Understood.carer    Extremely well
8   2012            Out.patients   Understood.carer    Very well
9   2012            Out.patients   Understood.carer    Extremely well
10  2012            Out.patients   Understood.carer    Extremely well
11  2013            Out.patients   Understood.carer    Very well
12  2013            Out.patients   Understood.carer    Extremely well
13  2013            Out.patients   Understood.carer    Extremely well
14  2013            Out.patients   Understood.carer    Extremely well
15  2013            Out.patients   Understood.carer    Extremely well
16  2013            Out.patients   Understood.carer    Extremely well
17  2013            Out.patients   Understood.carer    Extremely well
18  2013            Out.patients   Understood.carer    Extremely well
19  2013            Out.patients   Understood.carer    Extremely well
20  2013            Out.patients   Understood.carer    Extremely well

代码：

库（“ggplot2”）
data.xml您可以使用
xlim（）
，或者使用
scale\u x\u discrete（）
，来指定x轴的域

ggplot(data.melted[which(data.melted$variable=="Understood.carer"),], aes(value, fill=Survey)) + 
geom_histogram(position="dodge", colour="black") + xlab("Score") + 
scale_fill_brewer(palette="Paired") + 
theme(axis.text.x = element_text(angle=15, hjust=1, vjust=1)) + xlim(order1)

我还建议您以
dput（）
给定的格式粘贴数据，因为从固定宽度的文本中读取数据是一件痛苦的事。
离散刻度

函数有一个参数

限制

，您可以用它定义应该显示的级别：

scale_x_discrete(name="Score", limits=levels(data.melted$value))

---

非常感谢您的及时回复：-）也感谢您的及时回复。既然影子是第一个，我已经勾选了他的答案。我该怎么发布数据呢？我应该使用代码格式将dput（data.melled）的输出从R复制到问题中，还是用其他方法？是的，就是这样。将某些内容复制到R控制台更容易：-）

scale_x_discrete(name="Score", limits=levels(data.melted$value))