# 创建一个示例数据集 data <- data.frame(x = 1:5, y = c(1, 3, 2, 4, 5)) # 创建ggplot2绘图对象 p <- ggplot(data, aes(x, y)) # 添加散点图 p <- p + geom_point() # 添加不同线条类型的线 p <- p + geom_line(linetype = "solid", color = "blue") # 实线 p <- p + geom_line(linetype = "dashed", color = "red") # 虚线 p <- p + geom_line(linetype = "dotted", color = "green") # 点线 p <- p + geom_line(linetype = "dotdash", color = "purple") # 点划线 p <- p + geom_line(linetype = "twodash", color = "orange") # 划点线 # 显示图形 p
# 创建一个示例数据集
x <- 1:5
y <- c(1, 3, 2, 4, 5)
# 创建一个基础的绘图对象
plot(x, y, type = "n")
# 绘制不同类型的线条
lines(x, y, linetype = 1) # 实线
lines(x, y + 1, linetype = 2) # 虚线
lines(x, y + 2, linetype = 3) # 点线
lines(x, y + 3, linetype = 4) # 点划线
lines(x, y + 4, linetype = 5) # 长短划线
lines(x, y + 5, linetype = 6) # 长虚线
lines(x, y + 6, linetype = 7) # 长点划线
lines(x, y + 7, linetype = 8) # 长短点划线
lines(x, y + 8, linetype = 9) # 长短短点划线
lines(x, y + 9, linetype = 10) # 长短短短点划线