如何向stat_summary线条添加其他线条以及如何在ggplot2 geom_dotplot中更改形状？

library(ggplot2)

# 创建示例数据
df <- data.frame(x = rep(1:5, 2),
                 y = c(1, 3, 2, 4, 5, 2, 4, 3, 5, 6))

# 绘制原始数据散点图和均值线条
p <- ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  stat_summary(fun = mean, geom = "line")

# 添加其他线条
df2 <- data.frame(x = 1:5,
                  y2 = c(2, 4, 3, 5, 6))
p <- p + geom_line(data = df2, aes(x = x, y = y2), color = "red")

# 显示图形
print(p)

library(ggplot2)

# 创建示例数据
df <- data.frame(x = rep(1:3, 10),
                 y = rnorm(30))

# 绘制点图并更改点的形状
p <- ggplot(df, aes(x = factor(x), y = y)) +
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.5, fill = "blue", shape = 15)

# 显示图形
print(p)