如何让ggplotly转换后的Plotly图例显示布尔值而非数字？

我之前也碰到过一模一样的情况！用ggplotly()把带布尔变量图例的ggplot火山图转成Plotly图时，确实会自动把TRUE/FALSE变成1/0，特别影响可读性。不过有几个实用的办法能解决这个问题，我给你详细说下：

方法1：提前将布尔变量转为字符型 #

最直接的方式就是在绘图前，把数据里的布尔型分组变量转换成字符型。这样ggplot绘图时会直接显示TRUE和FALSE，转成Plotly后也会保留这些文本标签：

# 假设你的数据框是df，分组列是is_significant（布尔型）
df$is_significant <- as.character(df$is_significant)

# 绘制原始ggplot火山图
volcano_plot <- ggplot(df, aes(x = log2FC, y = -log10(pvalue), color = is_significant)) +
  geom_point(size = 2) +
  labs(x = "log2(Fold Change)", y = "-log10(p-value)", color = "Significant")

# 转换为Plotly图
ggplotly(volcano_plot)

方法2：在ggplot中手动指定图例标签 #

如果不想修改原始数据，可以在ggplot的颜色比例尺里手动设置图例标签，强制显示TRUE/FALSE：

# 先确认布尔变量的水平顺序（避免标签对应错误）
print(levels(as.factor(df$is_significant)))

# 绘制ggplot图时指定标签
volcano_plot <- ggplot(df, aes(x = log2FC, y = -log10(pvalue), color = is_significant)) +
  geom_point(size = 2) +
  labs(x = "log2(Fold Change)", y = "-log10(p-value)", color = "Significant") +
  scale_color_discrete(labels = c("FALSE", "TRUE")) # 对应上面的水平顺序

# 转换为Plotly图
ggplotly(volcano_plot)

这个方法的好处是完全不改动原始数据集，只在绘图层调整显示逻辑。

方法3：直接修改生成的Plotly对象 #

如果已经得到了Plotly对象，也可以直接修改它的内部数据来替换图例标签：

# 先生成Plotly对象
volcano_plot <- ggplot(df, aes(x = log2FC, y = -log10(pvalue), color = is_significant)) +
  geom_point(size = 2)
ply_plot <- ggplotly(volcano_plot)

# 遍历Plotly数据项，替换标签
for(i in seq_along(ply_plot$x$data)){
  current_name <- ply_plot$x$data[[i]]$name
  ply_plot$x$data[[i]]$name <- ifelse(current_name == "0", "FALSE", "TRUE")
}

# 显示修改后的Plotly图
ply_plot

这个方法适合已经完成转换后，临时调整图例的场景。

问题根源小说明 #

出现这个问题是因为Plotly在处理R的布尔型变量时，会默认把它当作数值型（TRUE对应1，FALSE对应0）解析，而ggplot会把布尔型识别为离散的分类变量，所以两者显示逻辑不一样。上面的方法本质都是让Plotly把这个变量当成离散文本处理，或者直接覆盖图例文本。

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