R语言无GGally包时仅用ggplot2绘制平行坐标图咨询

完全可以依托现有预装库实现和ggparcoord等价的平行坐标图效果，无需安装额外包
平行坐标图的核心实现逻辑可通过你已有的dplyr、reshape2、ggplot2完成，本质是：

• 筛选目标数值列
• 对每列数值做统一缩放（和ggparcoord的默认缩放规则对齐）
• 将宽格式数据转成长格式
• 按单条观测为单位绘制跨变量的折线

等价实现1：无分组平行坐标图（对应原代码ggparcoord(crabs)） #

完整可运行代码（无额外依赖） #

# 加载已预装的库
library(ggplot2)
library(dplyr)
library(reshape2)
# 加载目标数据
data(crabs, package = "MASS")

# 数据预处理：完成宽转长、行ID标记、和ggparcoord默认一致的Z-score缩放
crabs_processed <- crabs %>%
  # 筛选ggparcoord自动识别的所有数值测量列
  select(FL, RW, CL, CW, BD) %>%
  # 给每条观测生成唯一ID，用于后续按观测画线
  mutate(row_id = row_number()) %>%
  # 宽格式转长格式，适配ggplot绘图要求
  melt(id.vars = "row_id", variable.name = "measurement", value.name = "raw_value") %>%
  # 按每个测量列做Z-score标准化（和ggparcoord默认scale="std"的规则完全一致）
  group_by(measurement) %>%
  mutate(scaled_value = (raw_value - mean(raw_value, na.rm = TRUE))/sd(raw_value, na.rm = TRUE)) %>%
  ungroup()

# 绘图
ggplot(crabs_processed, aes(x = measurement, y = scaled_value, group = row_id)) +
  geom_line(alpha = 0.3, color = "steelblue") +
  labs(x = "测量变量", y = "标准化数值（Z得分）", title = "无分组平行坐标图") +
  theme_bw()

等价实现2：按性别分组的平行坐标图（对应原代码ggparcoord(crabs, columns = 4:8, groupColumn = "sex")） #

完整可运行代码 #

# 数据预处理：保留分组列、完成宽转长、标准化
crabs_grouped_processed <- crabs %>%
  # 对应原代码columns=4:8的列位，同时保留分组列sex
  select(sex, FL, RW, CL, CW, BD) %>%
  mutate(row_id = row_number()) %>%
  melt(id.vars = c("row_id", "sex"), variable.name = "measurement", value.name = "raw_value") %>%
  group_by(measurement) %>%
  mutate(scaled_value = (raw_value - mean(raw_value, na.rm = TRUE))/sd(raw_value, na.rm = TRUE)) %>%
  ungroup()

# 绘图：将分组映射到线条颜色
ggplot(crabs_grouped_processed, aes(x = measurement, y = scaled_value, group = row_id, color = sex)) +
  geom_line(alpha = 0.4) +
  # 可选：在每个变量位置加小圆点，对齐ggparcoord的默认视觉风格
  geom_point(size = 0.8, alpha = 0.6) +
  labs(x = "测量变量", y = "标准化数值（Z得分）", color = "蟹类性别", title = "按性别分组的平行坐标图") +
  theme_bw()

自定义调整说明 #

• 如果需要和课程示例中一致的0-1区间缩放效果，只需将标准化代码替换为：

  mutate(scaled_value = (raw_value - min(raw_value, na.rm = TRUE))/(max(raw_value, na.rm = TRUE) - min(raw_value, na.rm = TRUE)))
  

• 调整geom_line的alpha参数可控制线条重叠时的透明度，避免观测过多时画面糊成一团。
• 所有步骤仅用到已预装的库，完全适配无网络、无外部安装权限的设备环境。

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