R 线上散点图ggplot

示例数据：

set.seed(245)
cond <- rep( c("control","treatment"), each=10)
xval <- round(10+ rnorm(20), 1)
yval <- round(10+ rnorm(20), 1)
df <- data.frame(cond, xval, yval)
df$xval[cond=="treatment"] <- df$xval[cond=="treatment"] + 1.5

set.seed（245）
我希望我正确地理解了你的意思。对于
geom_线
，您可以使用数据的“处理”
子集
，对于
geom_点
，您可以使用“控制”
子集

分组后，只有一个“条件”用于
geom_线
（“治疗”），一个“条件”用于
geom_点
（“控制”）。因此，我分别删除了“cond”和
颜色
、
线型
和
形状
之间的
aes映射。您可能希望将这些美学设置为所需的值。同样，此解决方案中不需要
组

ggplot(data = subset(df, cond == "treatment"), aes(x = xval, y = yval)) +
  geom_line() +
  geom_point(data = subset(df, cond == "control"))


更新在OP的评论之后，“现在，如果我的数据实际上有三个“条件”，其中两个条件将绘制为直线，另一个是散点图，该怎么办？”

#一些数据
种子集（123）
cond这是我正在研究的同一个解决方案！但事实上，我认为OP的解决方案是非常好的。我喜欢在她身上很容易将颜色和形状映射到
cond
approach@AndrewMacDonald，这是我有点不确定的部分（即地图颜色和形状）。对于
geom\u线
和
geom\u点
只有一个“cond”。因此，我不太明白映射“cond”的意义，而是设置它们。但我可能错了……）@亨里克，谢谢你的解决方案。现在，如果我的数据实际上有三个“条件”，其中两个条件将被绘制为直线，另一个是散点图。我想我可能只是把它加进去，例如：哎哟-太快按回车键，（…cond==“治疗”&==“后治疗”），aes…）@亨里克，是的！非常感谢。谢谢你的想法！我把你的答案提高了等级并批准了。
ggplot(data = subset(df, cond == "treatment"), aes(x = xval, y = yval)) +
  geom_line() +
  geom_point(data = subset(df, cond == "control"))

# some data
set.seed(123)
cond <- rep( c("contr","treat", "post-treat"), each = 10)
xval <- rnorm(30)
yval <- rnorm(30)
df <- data.frame(cond, xval, yval)

# plot
ggplot(data = subset(df, cond %in% c("treat", "post-treat")), aes(x = xval, y = yval)) +
         geom_line(aes(group = cond, colour = cond)) +
         geom_point(data = subset(df, cond == "contr"))