ggplot转ggplotly后如何移除Virginica的重复水平线？

问题原因 #

该问题源于ggplotly对geom_density中stat(count)的解析偏差，会额外生成一条y值恒为0的轨迹（trace）对应Virginica类别。

解决方法 #

方法一：提前计算密度数据，用geom_line绘制 #

手动计算每个物种的密度分布及对应count值，再用geom_line绘图，避免依赖stat(count)引发解析问题：

data(iris)
library(plotly)
library(ggplot2)
library(dplyr)

# 手动计算每个物种的密度count值
iris_density <- iris %>%
  group_by(Species) %>%
  reframe(
    density_obj = list(density(Petal.Width, n = 100)),
    x = density_obj[[1]]$x,
    count = density_obj[[1]]$y * n()
  ) %>%
  select(-density_obj)

# 基于计算好的数据绘图
plot_iris <- ggplot(iris_density, aes(x = x, y = count, color = Species)) +
  geom_line()

ggplotly(plot_iris)

方法二：转换后手动过滤多余trace #

直接在ggplotly转换完成后，筛选移除y值全为0的多余轨迹：

data(iris)
library(plotly)
library(ggplot2)

plot_iris <- ggplot(iris, aes(x=Petal.Width, color = Species)) +
  geom_density(aes(y = stat(count)))

# 转换为plotly对象并过滤多余trace
p <- ggplotly(plot_iris)
p$x$data <- p$x$data[sapply(p$x$data, function(trace) !all(trace$y == 0))]

p

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