10.6 直方图

# 分组直方图
p22 <- plot_ly(iris,
  x = ~Sepal.Length,
  color = ~Species, type = "histogram"
)