在r中的同一图上绘制多个列表(散点图)

# 创建示例数据
x1 <- c(1, 2, 3, 4, 5)
y1 <- c(2, 4, 6, 8, 10)
x2 <- c(1, 2, 3, 4, 5)
y2 <- c(3, 6, 9, 12, 15)

# 合并数据为一个数据框
data <- data.frame(x1, y1, x2, y2)

# 绘制散点图
plot(data$x1, data$y1, pch = 16, col = "red", xlab = "X", ylab = "Y", xlim = c(0, 6), ylim = c(0, 16))
points(data$x2, data$y2, pch = 16, col = "blue")
legend("topleft", legend = c("List 1", "List 2"), col = c("red", "blue"), pch = 16)

library(ggplot2)

# 创建示例数据
x1 <- c(1, 2, 3, 4, 5)
y1 <- c(2, 4, 6, 8, 10)
x2 <- c(1, 2, 3, 4, 5)
y2 <- c(3, 6, 9, 12, 15)

# 合并数据为一个数据框
data <- data.frame(x = c(x1, x2), y = c(y1, y2), group = c(rep("List 1", length(x1)), rep("List 2", length(x2))))

# 绘制散点图
ggplot(data, aes(x, y, color = group)) + geom_point() + labs(x = "X", y = "Y") + scale_color_manual(values = c("red", "blue")) + theme_minimal()