如何在将ggplot条形图转为ggplotly时保留图例中的空级别？

当ggplot设置drop=FALSE能保留空类别图例，但转成ggplotly后空类别消失，核心原因是ggplotly默认会过滤掉无数据的类别。下面提供两种实用解决方法：

方法1：给数据添加空类别行 #

直接在数据里补上apple对应的行，把count设为0。这样ggplot绘制时柱子高度为0不影响视觉，但能让ggplotly识别到这个类别，从而保留图例。

library(ggplot2)
library(plotly)

# 补全数据，加入apple的空行
df <- data.frame(type = factor(c("kiwi", "banana", "apple"),
                               levels = c("kiwi", "banana", "apple")),
                 count = c(1, 3, 0))

# 生成ggplot图
ggp <- ggplot(df, aes(y = count, fill = type, x = "a_bar")) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("forestgreen", "gold1", "firebrick"),
                    drop = FALSE)

# 转成ggplotly
ggplotly(ggp)

方法2：手动给ggplotly添加空轨迹 #

如果不想修改原始数据，可以在转换后的plotly对象里手动添加一个对应空类别的隐藏轨迹，强制保留图例项。

library(ggplot2)
library(plotly)

# 原始数据
df <- data.frame(type = factor(c("kiwi", "banana"),
                               levels = c("kiwi", "banana", "apple")),
                 count = c(1, 3))

# 生成ggplot图
ggp <- ggplot(df, aes(y = count, fill = type, x = "a_bar")) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("forestgreen", "gold1", "firebrick"),
                    drop = FALSE)

# 转成ggplotly并修改
p <- ggplotly(ggp)

# 添加apple的空轨迹，仅显示图例
p <- p %>% add_trace(
  x = "a_bar", y = 0,
  type = "bar",
  name = "apple",
  marker = list(color = "firebrick"),
  showlegend = TRUE,
  hoverinfo = "none" # 避免鼠标悬停时显示无效信息
)

# 确保图例顺序和原ggplot一致
p <- p %>% layout(legend = list(traceorder = "normal"))

p

两种方法各有优势：方法1简单直接，适合大多数场景；方法2不用改动原始数据，适配特殊需求。

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