R ggplot2重复测量的平行点图

我想尝试使用ggplot2在R中重新创建这个重复测量的图形。我不太关心p值文本

作为一个数据集，我正在使用robustbase包中的癫痫数据集。该数据集有一个基线测量“Base4”和两个治疗的四个治疗后测量（相当于链接图像中的组号）

有什么想法吗

编辑： 由于请求了代码和尝试，我现在的位置是：

library(robustbase)

help(epilepsy)

attach(epilepsy)

names(epilepsy)

table(Trt)

epil<-melt(epilepsy[,c(1,11,2,3,4,5,8)], id=c("ID", "Trt"))

ggplot(epil, aes(x=variable, y=value))+geom_dotplot(binaxis="y", binwidth = .5,stackdir = "centerwhole")

库（robustbase）
帮助（癫痫）
附（癫痫）
姓名（癫痫）
表（Trt）
epil看起来你想要的是

epil[epil$variable == "Base4", "dot.group"] <- "before"
epil[epil$variable != "Base4", "dot.group"] <- "after"
ggplot(epil, aes(x=dot.group, y=value))+geom_path(aes(color = variable, group = factor(ID)))+geom_dotplot(binaxis="y", binwidth = .5,stackdir = "centerwhole")

epil[epil$variable==“Base4”，“dot.group”]看起来您想要的是

epil[epil$variable == "Base4", "dot.group"] <- "before"
epil[epil$variable != "Base4", "dot.group"] <- "after"
ggplot(epil, aes(x=dot.group, y=value))+geom_path(aes(color = variable, group = factor(ID)))+geom_dotplot(binaxis="y", binwidth = .5,stackdir = "centerwhole")

epil[epil$variable==“Base4”，“dot.group”]您尝试了什么吗？这看起来真的太忙了，很可能失去了意义。虽然我相信这在ggplot2中是可能的，但我想知道是否采用不同的方法可能更好。也许是分组分面。几个有意义的图可能比单个复杂图更强大。在任何情况下，示例和尝试的代码都是帮助的先决条件。已进行更改。示例和尝试的代码现在存在。您尝试了什么吗？这看起来确实太忙，并且可能失去了意义。虽然我相信这在ggplot2中是可能的，但我想知道是否采用不同的方法可能更好。也许是分组分面。几个有意义的图可能比单个复杂图更强大。在任何情况下，示例和尝试的代码都是帮助的先决条件。已进行更改。示例和尝试的代码现在存在。啊，是的。似乎就是这样。虽然我希望线条的颜色与治疗方案/安慰剂相关。根据你的建议，我选择了以下内容：ggplot（epil，aes（x=变量，y=值+1））+geom_路径（aes（color=Trt，group=factor（ID））+geom_点图（binaxis=“y”，binwidth=.1，stackdir=“centerfull”）+scale_y_连续（trans=log2_trans（））啊，很好。我在尝试根据“after”组中的“variable”给线条上色，但没能让它干净地工作。啊，是的。似乎就是这样。虽然我希望线条的颜色与治疗方案/安慰剂相关。根据你的建议，我选择了以下内容：ggplot（epil，aes（x=变量，y=值+1））+geom_路径（aes（color=Trt，group=factor（ID））+geom_点图（binaxis=“y”，binwidth=.1，stackdir=“centerfull”）+scale_y_连续（trans=log2_trans（））啊，很好。我在尝试根据“after”组中的“variable”给行上色，但无法让它干净地工作。