如何在ggplot次级轴中传递数据，无需在链外显式定义

问题根源在于sec_axis()的参数环境无法直接访问ggplot数据框中的列，原代码里的eruptions变量在这个上下文里找不到，导致无法生成刻度。

无需在代码链外定义变量的解决方案：在breaks参数中显式指定数据来源，直接调用数据框的列即可。

修改后的完整代码：

library(ggplot2)
ggplot(faithfuld, aes(waiting, eruptions, z = density)) +
    geom_raster(aes(fill = density)) +
    geom_contour(colour = "white", binwidth = 0.002) +    
    scale_y_continuous(
        expand = c(0,0), 
        n.breaks = 7, 
        sec.axis = sec_axis(
            transform = ~ round(., 5), 
            name = "eruptions", 
            breaks = with(faithfuld, seq(min(eruptions), max(eruptions), length.out = 9))
        )
    ) +
    theme(
        axis.text.y.left = element_blank(), 
        axis.ticks.y.left = element_blank(), 
        axis.title.y.left = element_blank()
    )

关键改动说明 #

• 用with(faithfuld, ...)将seq()的执行环境指定为faithfuld数据框，这样min(eruptions)和max(eruptions)就能正确读取列的极值。
• 也可以直接写成seq(min(faithfuld$eruptions), max(faithfuld$eruptions), length.out = 9)，两种写法效果一致。
• 如果想要更贴合ggplot自动刻度逻辑的刻度值，可以替换为scales::extended_breaks(n = 9)(faithfuld$eruptions)，生成更合理的刻度点。

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