Ah, the famous diamonds dataset from ggplot2. With the plotly package, we can make this graph of interactive

library(plotly)
library(rolldown)

p1 <- ggplot(diamonds, aes(x = log(price), color = clarity)) +
  geom_freqpoly(stat = "density") +
  facet_wrap(~cut)
ggplotly(p1)

Here is another view