如何在R中借助ggplot2绘制每个变量带独立y轴的平行坐标图

GGally提供的ggparcoord()默认会对变量做归一化处理，共用统一的数值轴，无法直接实现每个变量的独立Y轴配置。可以采用分面模拟+独立轴开放的思路实现需求，具体实现代码如下：

前置依赖 #

需要提前安装加载以下包：

install.packages(c("ggplot2", "dplyr", "tidyr", "ggh4x"))
library(ggplot2)
library(dplyr)
library(tidyr)
library(ggh4x) # 用于分面坐标轴的精细控制，可选

步骤1：数据预处理 #

需要将宽格式的原始数据转换为长格式，以适配ggplot2的分组绘图逻辑，这里以内置鸢尾花数据集做演示：

plot_data <- iris %>%
  # 新增行ID，用于后续的连线分组
  mutate(row_id = row_number()) %>%
  # 宽转长，仅保留分组列和行ID作为标识列
  pivot_longer(
    cols = -c(Species, row_id),
    names_to = "variable",
    values_to = "value"
  )

步骤2：核心绘图代码 #

用facet_wrap将每个变量拆分为独立分面，开放Y轴的自由缩放实现独立轴，再调整主题消除分面间隔，模拟平行坐标的排列效果：

ggplot(plot_data, aes(x = variable, y = value, group = row_id, color = Species)) +
  # 绘制平行坐标连线
  geom_line(alpha = 0.7) +
  # 每个变量对应一个横向排列的分面，开放Y轴独立缩放
  facet_wrap(
    ~variable,
    scales = "free_y",
    nrow = 1,
    strip.position = "bottom"
  ) +
  # 主题调整，还原平行坐标的视觉效果
  theme_minimal() +
  theme(
    # 隐藏分面标题，X轴已显示变量名
    strip.text = element_blank(),
    # 消除分面间的空隙，模拟连续的平行坐标效果
    panel.spacing = unit(0, "pt"),
    axis.title.x = element_blank(),
    axis.title.y = element_blank()
  )

个性化调整说明 #

• 若需要给每个变量的Y轴单独配置刻度、范围，可使用ggh4x包的facetted_pos_scales()函数实现精准控制，示例如下：

ggplot(plot_data, aes(x = variable, y = value, group = row_id, color = Species)) +
  geom_line(alpha = 0.7) +
  facet_wrap(~variable, scales = "free_y", nrow = 1, strip.position = "bottom") +
  # 单独配置每个变量的Y轴参数
  facetted_pos_scales(
    y = list(
      variable == "Sepal.Length" ~ scale_y_continuous(limits = c(4, 8), breaks = seq(4, 8, 1)),
      variable == "Sepal.Width" ~ scale_y_continuous(limits = c(2, 4.5), breaks = seq(2, 4.5, 0.5)),
      variable == "Petal.Length" ~ scale_y_continuous(limits = c(1, 7), breaks = seq(1, 7, 1)),
      variable == "Petal.Width" ~ scale_y_continuous(limits = c(0, 2.5), breaks = seq(0, 2.5, 0.5))
    )
  ) +
  theme_minimal() +
  theme(
    strip.text = element_blank(),
    panel.spacing = unit(0, "pt"),
    axis.title.x = element_blank(),
    axis.title.y = element_blank()
  )

• 连线的颜色、透明度、线型可根据自身数据集的分组字段自定义调整。
• 若不需要显示所有Y轴标签，仅保留最左侧轴，可通过theme()中axis.text.y的条件判断隐藏其余轴的文本即可。

内容的提问来源于stack exchange，提问作者MattSainsbury-Dale