按ggplot中具有躲避位置的因子进行分组

Question

让我们看看一些虚拟数据。我有各种科目，治疗和试验组合。事实上，每个主题只与特定的治疗配对（听起来很愚蠢，但它只是一个例子）。

library(ggplot2)
d = read.table(text = '
subject   treatment trial     value
1    1    1    4.5
2    2    1    3.2
3    3    1    1.2
1    1    2    4.8
2    2    2    3.5
3    3    2    1.3
1    1    3    4.2
2    2    3    2.9
3    3    3    1
4    1    1    4.3
5    2    1    3.9
6    3    1    1.1
4    1    2    4.3
5    2    2    3.1
6    3    2    1.8
4    1    3    4
5    2    3    2.6
6    3    3    1.3
', header = TRUE)
d$treatment = as.factor(d$treatment)
d$subject = as.factor(d$subject)
d$trial = as.factor(d$trial)

dodge = position_dodge(.3)
p = ggplot(d, aes(x = treatment, y = value, color = trial, label = subject)) + 
  geom_point(position = dodge) +
  scale_y_continuous(breaks = pretty_breaks(n = 10)) +
  ylim(1,5) +
  geom_text(hjust = 1.5, position = dodge, size = 3)

print(p)

我得到的情节是：

我想在同一主题之间添加一条线，这意味着我想将左上角的所有＆＃34; 4＆＃34组合成黑线。

一个简单的

geom_line(aes(group = subject), position = dodge)

但是，

不起作用，因为它在某种程度上不尊重这个位置而只是绘制一条垂直线：

我还能怎样做到这一点？

Answer 1

我认为你需要重新思考你的方法 - 躲避并不适合行。为什么不使用facetting并在x轴上明确显示试用？

ggplot(d, aes(trial, y = value)) + 
  geom_line(aes(group = subject)) +
  geom_point(aes(colour = treatment)) +
  geom_text(aes(label = subject), hjust = 1.5, size = 3)  +
  facet_wrap(~ treatment)

.....