R语言ggplot绘数值与数值+分类变量关系图报错解决咨询

嘿，这个报错我太常见了！问题的核心是y轴尺度不匹配：你第一个geom_point用了连续数值型的Numerical_2作为y轴，ggplot自动把y轴设为了连续尺度，但第二个geom_point又把离散分类的Categorical_1塞到同一个y轴里——连续尺度没法容纳离散的分类值，自然就报错了。

下面给你几个实用的解决方案，根据你的需求选就行：

方案1：用分面展示（最推荐，清晰不误导） #

如果你只是想同时查看Numerical_1分别和两个变量的关系，把两个图分开用分面展示是最稳妥的做法，还能避免尺度冲突。首先需要把数据整理成「长格式」（符合ggplot的tidy数据原则）：

library(ggplot2)
library(tidyr)

# 把宽数据转成长格式，合并两个y变量
data_long <- data.set %>%
  pivot_longer(
    cols = c(Numerical_2, Categorical_1),  # 指定要合并的列
    names_to = "Variable",                 # 新列：记录原变量名
    values_to = "Value"                    # 新列：记录对应的值
  )

# 绘制分面图，每个分面用自己的y轴尺度
ggplot(data_long, aes(x = Numerical_1, y = Value)) +
  geom_point() +
  facet_wrap(~ Variable, scales = "free_y") +  # 分面，y轴自由缩放
  labs(x = "Numerical_1", y = "")

这样两个子图会分别使用适合自己的y轴（一个连续，一个离散），完全不会有冲突，而且读者能清晰对比两个变量的趋势。

方案2：使用双y轴（谨慎使用，易误导） #

如果你一定要把两个变量放在同一个坐标系里，可以用双y轴：把分类变量先转换成数值编码，再映射到右侧的离散刻度上。代码如下：

library(ggplot2)

# 确保Categorical_1是因子类型（如果不是先转）
data.set$Categorical_1 <- factor(data.set$Categorical_1)

ggplot(data = data.set) +
  # 绘制数值变量的点图（左侧y轴）
  geom_point(aes(x = Numerical_1, y = Numerical_2), color = "#2c3e50") +
  # 绘制分类变量的点图，先转成数值编码（右侧y轴）
  geom_point(aes(x = Numerical_1, y = as.numeric(Categorical_1)), color = "#e74c3c") +
  # 设置双y轴
  scale_y_continuous(
    name = "Numerical_2",  # 左侧y轴标签
    sec.axis = sec_axis(
      trans = ~.,  # 转换函数：这里直接对应数值编码
      name = "Categorical_1",  # 右侧y轴标签
      breaks = as.numeric(levels(data.set$Categorical_1)),  # 刻度位置
      labels = levels(data.set$Categorical_1)  # 刻度标签（分类水平）
    )
  ) +
  theme(
    axis.title.y.right = element_text(color = "#e74c3c"),
    axis.text.y.right = element_text(color = "#e74c3c")
  )

⚠️ 注意：双y轴很容易让读者误解两个变量的关系（比如误以为数值大小有对应关系），除非你有特别的理由，否则优先选方案1。

方案3：将分类变量编码为数值 #

如果你的分类变量有明确的顺序（比如"低/中/高"），可以手动把它转换成数值，这样就能和Numerical_2共用连续y轴了：

library(ggplot2)
library(dplyr)

# 手动给分类水平赋值（根据你的实际情况调整）
data.set <- data.set %>%
  mutate(Categorical_num = case_when(
    Categorical_1 == "Low" ~ 1,
    Categorical_1 == "Medium" ~ 2,
    Categorical_1 == "High" ~ 3
  ))

# 现在可以在同一个y轴绘制两个变量
ggplot(data = data.set) +
  geom_point(aes(x = Numerical_1, y = Numerical_2), color = "blue") +
  geom_point(aes(x = Numerical_1, y = Categorical_num), color = "red") +
  # 可选：把y轴刻度替换成分类标签
  scale_y_continuous(breaks = c(1,2,3), labels = c("Low","Medium","High"))

这个方案只适合分类变量有逻辑顺序的场景，否则编码后的数值没有实际意义。

内容的提问来源于stack exchange，提问作者SomebodyNeedingHelp