如何在R的ggplot中仅添加水平网格线并调整侧边边距？

1. 在ggplot中仅添加水平网格线 #

通过调整theme()中的网格线参数，隐藏垂直网格线并保留水平网格线即可实现：

library(ggplot2)

# 示例数据集
df <- data.frame(x = 1:10, y = rnorm(10))

ggplot(df, aes(x, y)) +
  geom_point() +
  theme(
    panel.grid.major.x = element_blank(),  # 隐藏垂直主网格线
    panel.grid.minor.x = element_blank(),  # 隐藏垂直次网格线
    # 可选：自定义水平网格线样式
    panel.grid.major.y = element_line(color = "gray80", linetype = "dashed"),
    panel.grid.minor.y = element_line(color = "gray90", linetype = "dotted")
  )

如果不需要次水平网格线，可额外添加panel.grid.minor.y = element_blank()来隐藏。

2. 增加侧边额外边距以清晰显示最大值 #

提供两种实用方法：

方法一：扩展坐标轴范围 #

通过scale_y_continuous()的expand参数或expand_limits()扩大y轴范围，让最大值完整显示：

# 使用expand参数按比例扩展上下范围
ggplot(df, aes(x, y)) +
  geom_point() +
  scale_y_continuous(expand = expansion(mult = c(0.05, 0.1)))  # 下方扩展5%，上方扩展10%

# 直接设置y轴上限为最大值的1.1倍
ggplot(df, aes(x, y)) +
  geom_point() +
  expand_limits(y = max(df$y) * 1.1)

方法二：调整图表整体边距 #

若图表顶部内容被截断，可通过theme()的plot.margin参数增加顶部空白：

ggplot(df, aes(x, y)) +
  geom_point() +
  theme(plot.margin = margin(t = 20, r = 10, b = 10, l = 10, unit = "pt"))
# 参数说明：t=顶部边距, r=右侧, b=底部, l=左侧，单位支持pt、mm等

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