在R的ggplot2中绘制折线与散点：代码问题修复

先给出可直接运行的完整代码（包含模拟数据，实际使用时替换为你的CSV读取代码）：

# 读取CSV文件（替换为你的文件路径）
df <- read.csv("your_data.csv")

# 若未安装ggplot2请先运行：install.packages("ggplot2")
library(ggplot2)

ggplot() +
  # 绘制var_1折线
  geom_line(data = df, aes(x = x, y = var_1, color = "var_1"), linewidth = 1) +
  # 绘制var_2折线
  geom_line(data = df, aes(x = x, y = var_2, color = "var_2"), linewidth = 1) +
  # 绘制var_3散点（仅保留非空值）
  geom_point(data = subset(df, !is.na(var_3)), aes(x = x, y = var_3, color = "var_3"), size = 3) +
  # 设置坐标轴与图例标题
  labs(x = "X轴名称", y = "Y轴名称", color = "变量") +
  # 强制显示所有X轴刻度
  scale_x_continuous(breaks = df$x) +
  # 强制Y轴范围包含0.3，关闭自动扩展
  scale_y_continuous(
    limits = c(min(df[, c("var_1", "var_2", "var_3")], na.rm = TRUE), 0.3),
    expand = c(0, 0)
  ) +
  # 自定义颜色与图例样式
  scale_color_manual(
    values = c("var_1" = "#1f77b4", "var_2" = "#2ca02c", "var_3" = "#ff4b5c"),
    guide = guide_legend(
      override.aes = list(
        linetype = c("solid", "solid", "blank"),
        shape = c(NA, NA, 16)
      )
    )
  ) +
  # 简洁主题（可选）
  theme_bw()

对应问题的逐项修复说明 #

• 问题1：Y轴标签未显示
  修复：通过labs(y = "Y轴名称")明确指定Y轴标签，确保该语句在所有图层之后调用，避免被其他设置覆盖。

• 问题2：X轴刻度数值未显示
  修复：使用scale_x_continuous(breaks = df$x)强制显示所有X轴的刻度点，breaks参数可根据需求自定义刻度位置（比如breaks = seq(1, 10, 2)显示间隔刻度）。

• 问题3：图例样式混乱（所有系列同时显示折线和散点）
  修复：在scale_color_manual()的guide_legend中，通过override.aes手动覆盖每个图例条目的样式：给var_1/var_2设置linetype = "solid"+shape = NA（隐藏散点），给var_3设置linetype = "blank"+shape = 16（隐藏折线，显示实心点）。

• 问题4：Y轴范围未达到0.3
  修复：通过scale_y_continuous(limits = c(下限值, 0.3), expand = c(0,0))强制锁定Y轴上限为0.3，expand = c(0,0)关闭ggplot2默认的轴范围自动扩展，确保轴顶严格对齐0.3。

• 问题5：修改颜色时图例名称变为颜色值
  修复：不要直接在geom_*()的color参数中写颜色值（比如color = "red"），而是在aes(color = "var_3")中指定变量名称，再通过scale_color_manual(values = c("var_3" = "red"))将名称映射到对应颜色，这样图例显示的是变量名而非颜色字符串。

内容的提问来源于stack exchange，提问作者K. Kaf