将geom_point和geom_line与ggplot2中的position_jitterdodge组合用于两个分组因子

Question

我已经根据这里的几个帖子尝试了几个建议，以及阅读ggplot2文档，但这个问题略有不同，我还没有找到解决方案。

这是一段代码，用于制作与我正在使用的数据帧类似的融化数据框：

a <- c(1,2,3,4,5,6,1,2,3,4,5,6)
b <- c("loss", "draw", "win", "draw", "loss", "win", "loss", "draw", "win", "draw", "loss", "win")
c <- c(2,3,5,4,4,5,4,4,3,5,2,4)
d <- c(rep("x", 6), rep("y", 6))
temp <- data.frame(a,b,c,d)

我想要的是创建一个点图，其中x轴为b，y轴为c，x轴上的点按d分组，它们之间的线按a分组。如果我们首先将这些点放在图表上，那就很好了：

ggplot(temp, aes(x=b, y=c, fill=d, colour=d))+
  geom_point(position=position_jitterdodge())

This is the dot plot I get, which is how I want it to look.这些点根据因子d进行颜色编码，而且它们被抖动到一侧，因此x位于左侧，y位于右侧。

现在，我想要的是根据因子a将点连接起来。 This is a mocked-up version I made in MS Paint它应该是什么样子。添加geom_line并将geom_line组设置为a应该可以工作...

ggplot(temp, aes(x=b, y=c, fill=d, colour=d))+
  geom_point(position=position_jitterdodge())+
  geom_line(aes(group=a),position=position_jitterdodge())

......但它没有出来。它创建的线条是连接正确点的正确长度，但它们甚至几乎都没有触摸它们，看起来它们随机出现在图形上。我会添加另一个屏幕截图，但还没有特权。

此外，如果我将团体美学改变为整体美学，那么：

ggplot(temp, aes(x=b, y=c, fill=d, colour=d, aes(group=a)))+
  geom_point(position=position_jitterdodge())+
  geom_line(position=position_jitterdodge())

...然后切换点，使他们处于错误的位置。而且无论如何，这些线仍然没有与点完全结合。

我也尝试在position_jitterdodge（）部分中指定width和jitter.width值，并且这些行和点仍然没有正确连接。我还阅读了ggplot2文档，几个以前的stackoverflow问题，并尝试了大多数的position_jitter，position_dodge，geom_jitter等组合，但到目前为止还没有运气。

非常感谢任何帮助。

Answer 1

您可以使用d和b：

之间的互动

p <- ggplot(temp, aes(x=interaction(d, b), y=c, fill=d, colour=d))+ theme_classic()+
    geom_point()
p + geom_line(aes(group=a),colour=1)

正确的x轴。将x转换为数字并设置新标签

p <- ggplot(temp, aes(x=as.numeric(interaction(d,b)), y=c, fill=d, colour=d))+ theme_classic()+
     geom_point()
p <- p + geom_line(aes(group=a),colour=1)
p +  scale_x_continuous(breaks = c(1.5,3.5,5.5), labels = levels(temp$b))

Answer 2

一种可能的解决方案 - 手动指定抖动值：

library(ggplot2)

a <- c(1,2,3,4,5,6,1,2,3,4,5,6)
# b <- c("loss", "draw", "win", "draw", "loss", "win", "loss", "draw", "win", "draw", "loss", "win")
b <- c(2, 1, 3, 1, 2, 3, 2, 1, 3, 1, 2, 3)
c <- c(2, 3, 5, 4, 4, 5, 4, 4, 3, 5, 2, 4)
d <- c(rep("x", 6), rep("y", 6))
temp <- data.frame(a,b,c,d)

set.seed(2016)
jitterVal <- runif(12, max = 0.25)
jitterVal <- jitterVal * ifelse(temp$d == "x", -1, +1)

ggplot(temp, aes(x = b + jitterVal, y = c, fill = d, colour = d)) +
  geom_point() +
  geom_line(aes(group = a)) +
  scale_x_continuous(breaks = c(1, 2, 3), labels = c("draw", "loss", "win")) +
  xlab(NULL) +
  expand_limits(x = c(0.5, 3.5))