如何默认隐藏ggplot绘图中的geom_ribbon仅显示geom_line？

嘿，这个问题我之前也踩过坑！你之前用visible="legendonly"的时候没指定具体trace，所以所有元素都被隐藏了。其实ggplotly会把geom_line和geom_ribbon分别转换成独立的trace，我们只需要精准定位到丝带对应的trace，单独设置它们的可见性就行。

具体解决方案 #

首先，我们需要明确：geom_line转成plotly后是无填充的scatter trace，而geom_ribbon是有填充的scatter trace。基于这个区别，我们可以遍历所有trace，把带填充的那些（也就是丝带）设置为初始隐藏，同时保留线条显示。

给你完整的可运行代码：

# 先准备示例数据（你可以替换成自己的df）
set.seed(123)
df <- data.frame(
  xx = rep(1:10, 2),
  yy = c(runif(10, 1, 5), runif(10, 2, 6)),
  varc = rep(c("A", "B"), each = 10),
  Born_Inf = c(runif(10, 0, 2), runif(10, 1, 3)),
  Born_Sup = c(runif(10, 5, 7), runif(10, 6, 8))
)

# 你的原始ggplot代码
g.mean <- ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() + 
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1)

# 转换成plotly对象并调整可见性
library(plotly)
p <- ggplotly(g.mean, tooltip = c("varc"))

# 遍历所有trace，把带填充的（geom_ribbon）设为legendonly
p$x$data <- lapply(p$x$data, function(trace) {
  if (!is.null(trace$fill) && trace$fill != "none") {
    trace$visible <- "legendonly"
  }
  trace
})

# 调整hoverinfo（和你原来的需求一致）
p <- style(p, hoverinfo = "value")

# 显示图形
p

为什么这个方法有效？ #

• ggplotly会为每个varc类别生成两个trace：一个是geom_line对应的线条（fill="none"），一个是geom_ribbon对应的丝带（有填充色）。
• 通过lapply遍历所有trace，判断fill属性就能精准筛选出丝带的trace，设置visible="legendonly"后，这些丝带初始隐藏，但你仍然可以通过点击图例来切换它们的显示状态。
• 线条的trace因为fill为none，会保持默认的可见状态。

替代方案：手动指定trace索引 #

如果你已经知道丝带对应的trace索引（比如通过str(p$x$data)查看结构），也可以直接用style指定traces参数：

# 假设丝带是第2、4个trace（根据你的数据类别数量调整）
p <- style(ggplotly(g.mean, tooltip = c("varc")), 
           hoverinfo = "value",
           visible = "legendonly",
           traces = c(2,4))

不过这种方法需要手动核对索引，不如前面的自动筛选灵活，当varc类别数量变化时还要修改，所以更推荐第一种方法。

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