基于R语言使用ggplot2绘制三轴图表的技术求助

我太懂你搜“三轴图表”出来一堆花里胡哨3D图的崩溃了——你要的根本不是那种立体图，而是共享反转Depth Y轴的多面板/多参数图表，也就是把水面（深度0）放在顶部，每个CTD对应一个子图的布局对吧？结合你的数据结构，给你一套具体的ggplot2实现方案：

第一步：先把宽格式数据转成长格式 #

你的数据是每列对应一个海洋参数（温度、盐度这类），先转成ggplot2友好的长格式，方便后续按参数分组绘图：

library(tidyverse)

# 假设你的原始数据框叫ctd_data
ctd_long <- ctd_data %>%
  pivot_longer(
    cols = -c(CTD, Depth),  # 排除分组列CTD和Y轴列Depth
    names_to = "Parameter", # 新列用来存参数名称（比如Temp、Salinity）
    values_to = "Value"     # 新列用来存参数对应的值
  )

第二步：核心需求——反转Depth Y轴 #

这是海洋数据可视化的常规操作，在ggplot2里用scale_y_reverse()就能轻松实现，还能自定义刻度范围和间隔：

# 先画个基础版，验证反转效果
ggplot(ctd_long, aes(x = Value, y = Depth)) +
  geom_line(aes(color = Parameter)) + # 不同参数用不同颜色区分曲线
  scale_y_reverse(
    name = "Depth (m)",
    limits = c(1000, 0), # 替换成你的实际深度范围，比如最大深度到0
    breaks = seq(0, 1000, 200) # 自定义刻度间隔，这里是每200米一个刻度
  )

第三步：按CTD区分子图表（分面） #

用facet_wrap()实现每个CTD对应一个独立子图，所有子图共享反转后的Y轴，完美匹配你的需求：

ggplot(ctd_long, aes(x = Value, y = Depth)) +
  geom_line(aes(color = Parameter), linewidth = 1) +
  scale_y_reverse(
    name = "Depth (m)",
    limits = c(1000, 0),
    breaks = seq(0, 1000, 200)
  ) +
  facet_wrap(~CTD, ncol = 2) + # 按CTD分面，设置每行显示2个子图
  labs(x = "Parameter Value", color = "Parameter") +
  theme_minimal() +
  theme(
    strip.text = element_text(size = 11, face = "bold"), # 子图标题加粗
    axis.title.y = element_text(margin = margin(r = 10)) # 给Y轴标题加右边距，避免挤在一起
  )

如果需要每个参数单独用X轴 #

要是你的参考图是每个参数对应独立的X轴（不是同一X轴用颜色区分），可以用facet_wrap按CTD+参数组合分面，让每个参数-CTD对应用一个子图：

ggplot(ctd_long, aes(x = Value, y = Depth)) +
  geom_line(linewidth = 1) +
  scale_y_reverse(
    name = "Depth (m)",
    limits = c(1000, 0),
    breaks = seq(0, 1000, 200)
  ) +
  facet_wrap(CTD ~ Parameter, ncol = length(unique(ctd_long$Parameter))) +
  labs(x = "Value") +
  theme_bw() +
  theme(
    axis.title.y = element_text(margin = margin(r = 10)),
    strip.background = element_rect(fill = "lightgray") # 子图标题栏加浅灰背景
  )

小技巧：换关键词搜更高效 #

以后别搜“三轴图表”了，改用这些关键词：ggplot2 shared reversed y axis facet、ggplot2 multiple x axes single y axis，能直接找到匹配的方案，避免被3D图干扰。

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