Density plot draws unwanted outlines (similar to previously-removed release of ggplot2)

A density plot created with ggplot2 which has no outline then has an outline drawn when used with ggplotly. Relevant changelog for ggplot2.

Simple version of minimal reprex:

mtcars <- mtcars

p <- ggplot(mtcars, aes(x=disp)) + geom_density()
ggplotly(p)``

A workaround for this simple example (proposed by MrFlick on stackoverflow) was to use stat_density :

p <- ggplot(mtcars, aes(x=disp)) + stat_density(geom="line")
ggplotly(p)``

However, my 'real' data has multiple groups with different distributions. In this case, ggplotly still draw the unwanted outline, but also cannot be fixed this time by stat_density. Example:

p <- ggplot(mtcars, aes(x=disp, group=carb, color=carb)) + geom_density()
ggplotly(p)

p2 <- ggplot(mtcars, aes(x=disp, group=carb, color=carb)) + stat_density(geom="line")
ggplotly(p2)

首先使用 ggplot2 和 ggplotly 執行最小 reprex，然後將單一群組和分組密度範例與 stat_density workaround 進行比較。當 ggplotly 不再為密度圖繪製不需要的輪廓（包括分組分布）時，即表示完成。