线连接嵌套GGPLOT中同一ID的点

Question

我有一组数据来研究男女对治疗的反应。 变量：

性	时间	组	ID	变量
M	T0	控制	ID01	87.4468574183993
M	T0	治疗	ID02	61.6036264109425
M	T0	CONTROM	T0	和30
测量	时间	要么管理治疗或对照车辆	0	天
，并在每个人的	感兴趣的	控制	ID05	72.958341162652
M	T0	处理	ID06	56.7137802368961
M	T0	控制	ID07	65.8371140481904
M	T0	处理	ID08	903
M	T30	控制	ID01	84.504537214525
M	T30	处理	ID02	56.6733720363118
M	T30	控制	ID03	​
处理	T30	M	ID04	91.0738771315664
​	​	​	​	​
​	​	​	​	​
​	​	控制	ID05	76.23775213724
M	T30	处理	ID06	74.898213578538
M	T30	控制	ID07	80.9279862442054
M	T30	处理	ID08	51.5291749034077
M	T0	控制	ID11	91.9786257203668
F	T0	处理	ID12	52.1936888922937
F	T0	处理	ID08	CONTROM
F	T30	F	ID14	​
​	​	控制	ID13	83.2809177343734
T0	​	​	​	​
​	​	控制	ID15	89.8885271861218
F	T0	处理	ID16	84.3541337642819
F	T0	控制	ID17	87.5198906287551
F	T0	处理	ID18	85
F	T30	控制	ID11	53.5416435450315
F	T30	处理	ID14	61.9461603346281
F	T30	控制	ID12	63.9171704184264
F	T30	处理	ID13	​
​	​	​	​	​
​	​	​	​	​
​	​	控制	ID15	77.3780003190041
F	T30	处理	ID16	80.7108032982796
F	T30	控制	ID17	82.9249111004174
F	T30	处理	ID18	https
：	href	。	a	72.65731166029613
=	：	图	//i.sstatic	“

要生成合适的嵌套

ggplot(mydata, aes(x = Sex, y = Variable, fill = Time)) +  facet_grid(. ~ Group) +   geom_boxplot(alpha = 0.80,outlier.colour = NA) +   geom_point(aes(fill = Time), size   2, shape = 21, position = position_jitterdodge(0))

< net/q1sfx.png“ rel =” nofollow noreferrer“>

但是我喜欢要包括连接属于同一个人的点的行，类似的点（我添加了黑线作为使用图像版本的软件添加的示例）

我尝试了：

ggplot(mydata, aes(x = Sex, y = Variable, fill = Time)) +   facet_grid(. ~ Group) +   geom_boxplot(alpha = 0.80,outlier.colour = NA) +   geom_point(aes(fill = Time), size = 2, shape = 21, position = position_jitterdodge(0))+   geom_line(aes(group=interaction(ID,Sex)), size=0.3, alpha=0.8) 

但是线条未正确绘制

<< a href =“ https://i.sstatic.net/o0r9i.png” rel =“ nofollow noreferrer”>

我还研究了这个解决方案： 如何添加R？<<<<<<<<<<<<< /a>

，但我不想在我的情节中添加更多面板。 非常感谢您的任何帮助。

Answer 1

通过计算x的位置来手动躲避geom_line。

library(ggplot2)

width <- .75

mydata$x_line <- as.numeric(factor(mydata$Sex)) + 
  ifelse(mydata$Time == "t0", -1, 1) * width / 4

ggplot(mydata, aes(x = Sex, y = Variable, fill = Time)) +
  facet_grid(. ~ Group, scales = "free_x") +
  geom_boxplot(alpha = 0.80, outlier.colour = NA, position = position_dodge(width)) +
  geom_point(aes(group = Time), size = 2, shape = 21, position = position_dodge(width)) +
  geom_line(aes(x = x_line, group = ID), size = 0.3, alpha = 0.8)

实现所需结果的一种选项是， sstatic.net/luqrv.png“ alt =”“>

data

mydata <- data.frame(
  Sex = c(
    "M", "M", "M", "M", "M", "M",
    "M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M",
    "M", "M", "F", "F", "F", "F", "F", "F", "F", "F", "F",
    "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F"
  ),
  Time = c(
    "t0", "t0", "t0", "t0", "t0",
    "t0", "t0", "t0", "t0", "t0", "t30", "t30", "t30", "t30",
    "t30", "t30", "t30", "t30", "t30", "t30", "t0", "t0",
    "t0", "t0", "t0", "t0", "t0", "t0", "t0", "t0", "t30", "t30",
    "t30", "t30", "t30", "t30", "t30", "t30", "t30", "t30"
  ),
  Group = c(
    "control", "treatment",
    "control", "treatment", "control", "treatment", "control",
    "treatment", "control", "treatment", "control", "treatment",
    "control", "treatment", "control", "treatment", "control",
    "treatment", "control", "treatment", "control",
    "treatment", "control", "treatment", "control", "treatment",
    "control", "treatment", "control", "treatment", "control",
    "treatment", "control", "treatment", "control", "treatment",
    "control", "treatment", "control", "treatment"
  ),
  ID = c(
    "ID01", "ID02", "ID03", "ID04",
    "ID05", "ID06", "ID07", "ID08", "ID09", "ID10", "ID01",
    "ID02", "ID03", "ID04", "ID05", "ID06", "ID07", "ID08",
    "ID09", "ID10", "ID11", "ID12", "ID13", "ID14", "ID15",
    "ID16", "ID17", "ID18", "ID19", "ID20", "ID11", "ID12",
    "ID13", "ID14", "ID15", "ID16", "ID17", "ID18", "ID19",
    "ID20"
  ),
  Variable = c(
    87.4468574183993,
    61.6036264109425, 87.1487529366277, 50.6166256731376, 72.9583341162652,
    56.7137802368961, 65.8371140481904, 86.0453418688849,
    83.5156044340692, 68.5201310901903, 84.504537214525,
    56.6733720363118, 91.0738771315664, 94.9689620872959,
    76.23775213724, 74.8982135788538, 80.9279862442054,
    51.5291749034077, 85.7785020256415, 51.461190963164, 52.1936888922937,
    91.9786257203668, 83.2809177343734, 71.7776856268756,
    89.8885271861218, 84.3541337642819, 87.5198906287551,
    94.8092532227747, 56.6507609561086, 72.2115040174685,
    53.5416435450315, 61.9461603346281, 63.9171704184264,
    73.8425903371535, 77.3780003190041, 80.7108032982796,
    82.9249111004174, 72.6573116029613, 88.3334786165506, 50.722946121823
  )
)