使用ggplot2绘制含不同轴对数变换的4面板共享图例图表

你之前的问题出在提前对数据做了对数转换，导致坐标轴显示的是转换后的数值，而非scale_*_continuous(trans='log2')那种基于原始数据的对数刻度。正确的做法是保留原始数据，分别绘制四个子图后拼接，同时共享图例。

完整解决方案代码 #

首先加载所需包：

library(ggplot2)
library(patchwork) # 用于图形拼接与图例共享

定义示例数据：

data = data.frame(
    x = c(seq(1,10), seq(11,20)),
    y = c(2^seq(1,10), 2^seq(11,20)),
    type = c(rep("T1", 10), rep("T2", 10))
)

分别绘制四个对应不同坐标轴变换的子图：

# 1. Linear-Linear 面板
p1 = ggplot(data, aes(x = x, y = y, linetype = type, colour = type)) +
    geom_point() +
    geom_line() +
    labs(x = "n", y = bquote(F[n])) +
    ggtitle("Linear-Linear transform")

# 2. Log-Linear 面板（X轴log2变换）
p2 = ggplot(data, aes(x = x, y = y, linetype = type, colour = type)) +
    geom_point() +
    geom_line() +
    scale_x_continuous(trans = 'log2') +
    labs(x = "n", y = bquote(F[n])) +
    ggtitle("Log-Linear transform")

# 3. Linear-Log 面板（Y轴log2变换）
p3 = ggplot(data, aes(x = x, y = y, linetype = type, colour = type)) +
    geom_point() +
    geom_line() +
    scale_y_continuous(trans = 'log2') +
    labs(x = "n", y = bquote(F[n])) +
    ggtitle("Linear-Log transform")

# 4. Log-Log 面板（X、Y轴均log2变换）
p4 = ggplot(data, aes(x = x, y = y, linetype = type, colour = type)) +
    geom_point() +
    geom_line() +
    scale_x_continuous(trans = 'log2') +
    scale_y_continuous(trans = 'log2') +
    labs(x = "n", y = bquote(F[n])) +
    ggtitle("Log-Log transform")

拼接图形并共享图例：

# 拼接布局：2行2列，自动收集共享图例
combined_plot = (p1 + p2) / (p3 + p4) + 
    plot_layout(guides = "collect") +
    plot_annotation(title = "Different Axis Transformations") &
    theme(legend.position = "bottom",
          plot.title = element_text(hjust = 0.5))

# 绘制组合图
print(combined_plot)

关键说明 #

• 保留原始数据后，通过scale_*_continuous(trans='log2')实现坐标轴变换，轴刻度会自动显示原始数据的对数刻度（例如log2变换后会显示1、2、4、8、16等），和直接使用scale变换的效果完全一致。
• patchwork的plot_layout(guides = "collect")会自动收集所有子图的图例并只显示一次，无需手动处理图例对象。
• 若不想依赖patchwork，也可以使用gridExtra::grid.arrange，但patchwork在图形拼接和图例管理上更便捷。

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