r - 如何在 ggplot2 geom_jitter 上使分组更紧密？

Question

尝试将我在 reddit 上找到的用于政治调查的代码重新用于更小的样本量。

我正在使用 geom_jitter 创建散点图。这是我的代码:

ggplot(sae, aes(Alignment, Abortion))+
geom_jitter(aes(color = "green"), size = 4, alpha = 0.6)+
labs("Alignment", "Stance on Abortion")

这是它给出的图表:

如何使围绕“支持选择”或“支持生命”的线更加紧密地分组？我相信这张当前图表会让很多人混淆哪些观察结果是支持堕胎还是反对堕胎。

帮助解决颜色问题的加分项。

Answer 1

你有一个更大的问题。 x 轴是按字母顺序排列的，这很容易混淆，而且可能不是您想要的。此外，您可能需要同时指定 width(x 方向抖动)和 height(y 方向抖动)。

您可以使用例如

来修复顺序

sae$Alignment <- factor(sae$Alignment, levels=unique(sae$Alignment))

如下所示。

# make up some data - you have this already
set.seed(1)     # for reproducible example
sae <- data.frame(Alignment=rep(c("Left","Left Leaning","Center","Right Leaning","Right"),each=5),
                  Abortion =sample(c("Pro Choice","Pro Life","Other"),25, replace=TRUE))

# you start here...
library(ggplot2)
sae$Alignment <- factor(sae$Alignment, levels=unique(sae$Alignment))
ggplot(sae, aes(Alignment, Abortion))+
  geom_point(color = "green", size = 4, alpha = 0.6, position=position_jitter(width=0.1, height=0.1))+
  labs("Alignment", "Stance on Abortion")

另外，IMO，你可以做得更好，即。颜色:

sae$Orientation <- with(sae,ifelse(grepl("Left",Alignment),"Progressive",
                                   ifelse(grepl("Right",Alignment),"Conservative","Neutral")))
ggplot(sae, aes(x=Alignment, y=Abortion, color=Orientation))+ 
  geom_point(size = 4, alpha = 0.6, position=position_jitter(width=0.1, height=0.1))+
  labs("Alignment", "Stance on Abortion")