如何实现ggplot部分元素被裁剪、部分元素不被裁剪？

这个问题我之前也碰到过——既要把宽范围的geom_ribbon牢牢限制在设定的坐标框里，又要让点击后的坐标标注能完整显示在绘图区域外，确实有点矛盾。不过咱们可以用「拆分图层+单独控制裁剪规则」的思路来解决，下面给你具体的修改方案：

首先，我们需要明确：主图里的geom_ribbon和geom_line是需要被裁剪的，所以保持coord_cartesian(clip = "on")；而点击后添加的标记点和坐标标注，我们要让它们不受裁剪限制，这时候用annotation_custom来添加就最合适了，因为它默认会忽略坐标裁剪规则。

先看修改后的完整代码：

library(shiny)
library(ggplot2)
library(grid) # 要用到grid包里的图形对象函数

ui <- fluidPage(
  plotOutput('plot', click = 'plot_click')
)

server <- function(input, output, session) {
  # 存储点击后的坐标
  coords_round <- reactiveValues(x = NULL, y = NULL)
  
  observeEvent(input$plot_click, {
    coords_round$x <- signif(input$plot_click$x, 3)
    coords_round$y <- signif(input$plot_click$y, 3)
  })
  
  output$plot <- renderPlot({
    # 第一步：绘制需要裁剪的主图部分
    main_plot <- ggplot(
      data.frame(x = 1:10, y = 1:10, ll = -1:-10, ul = 2:11), 
      aes(x, y)
    ) +
      geom_ribbon(aes(ymin = ll, ymax = ul), linetype = 'dotted', fill = 'gray') +
      geom_line(color = 'blue') +
      coord_cartesian(clip = 'on', xlim = c(1, 10), ylim = c(-5, 15)) +
      scale_x_continuous(expand = c(0, 0)) +
      scale_y_continuous(expand = c(0, 0)) +
      theme(plot.margin = margin(1, 1, 1, 1, 'cm'))
    
    # 第二步：如果有点击坐标，添加不被裁剪的标记点和标注
    if(!is.null(coords_round$x)){
      main_plot <- main_plot +
        # 添加十字标记点
        annotation_custom(
          grob = pointsGrob(
            x = unit(coords_round$x, "native"),
            y = unit(coords_round$y, "native"),
            pch = 3, gp = gpar(col = "black", cex = 3)
          ),
          xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf
        ) +
        # 添加坐标标注
        annotation_custom(
          grob = textGrob(
            label = paste0('(', coords_round$x, ', ', coords_round$y, ')'),
            x = unit(coords_round$x, "native"),
            y = unit(coords_round$y + 1.5, "native"),
            gp = gpar(col = "black"),
            just = "center"
          ),
          xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf
        )
    }
    
    main_plot
  })
}

shinyApp(ui, server)

关键逻辑解释： #

1. 主图裁剪控制：主图里的coord_cartesian(clip = "on")会严格把geom_ribbon和geom_line限制在你设定的x/y范围内，超出部分直接裁剪，完美解决了ribbon越界的问题。
2. 无裁剪元素添加：用annotation_custom结合grid包的pointsGrob和textGrob来创建标记点和标注，这些元素不受坐标裁剪的约束，哪怕位置超出了主图的坐标范围，也能完整显示出来。
3. 坐标映射：用unit(..., "native")来把点击得到的坐标映射到主图的坐标系里，确保标记点和标注能精准对应到点击的位置。

另外还有一种备选方案：用cowplot包把两个ggplot对象叠加——一个是带裁剪的主图，另一个是不带裁剪、仅包含标记点和标注的透明背景图，不过上面的方法更简洁，不需要额外加载cowplot包。

备注：内容来源于stack exchange，提问作者js4032