ggplot2深度数据绘图：轴位置调整与空白消除问题求助

问题分析与代码修正 #

你的代码存在重复调用坐标轴设置（两次scale_x_*、两次coord_flip）的问题，导致刻度显示和绘图边距异常。以下是针对三个问题的修正方案：

修正后的完整代码

# install.packages("ggplot2")
library(ggplot2)

Lovojarvi <- ggplot(LovLOI2, aes(x = `Depth (cm)`, y = `LOI (%)`)) +
  geom_line(color = "red", size = 1, linetype = 2) +
  geom_point() + # 继承全局映射，无需重复指定aes
  # 反转Depth轴、设置刻度，消除0cm处的间距（解决红圈问题）
  scale_x_continuous(
    name = "Depth (cm)",
    trans = "reverse",
    breaks = seq(0, 260, 20),
    expand = c(0, 0)
  ) +
  # 锁定LOI轴范围，确保0%和75%刻度显示（解决蓝圈问题）
  scale_y_continuous(
    name = "Loss on ignition (%)",
    position = "right",
    breaks = seq(0, 75, 5),
    limits = c(0, 75),
    expand = c(0, 0)
  ) +
  coord_flip() # 仅调用一次，避免重复翻转坐标轴

ggsave("LovojarviLOI.png", Lovojarvi, width = 6, height = 10)

针对三个问题的具体说明

1. 红圈问题：

   • 用scale_x_continuous(trans = "reverse")替代重复的反转设置，expand = c(0, 0)会移除0cm深度与绘图区域的默认边距，让首个数据点贴合起始位置；
   • scale_y_continuous的breaks序列包含0，确保0%刻度正常显示。

2. 蓝圈问题：

   • scale_y_continuous设置limits = c(0,75)锁定轴范围，同时breaks序列包含75，强制该刻度显示在轴上。

3. 绿圈问题：

   • 两个坐标轴的expand = c(0, 0)参数会移除绘图区域与轴之间的默认空白，彻底消除底部无数据的空白区域；
   • 若你的Depth数据最大值小于260，可将breaks = seq(0, 260, 20)中的260替换为实际最大深度，让轴范围更贴合数据。

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