R绘制叠加条形图

Question

简而言之，问题是：我可以使用R和Plotly程序包创建重叠条形图，其中在x轴上的相同位置显示2个系列吗？ 经过大量谷歌搜索后，我找不到答案。

例如，以下可视化：

使用Plotly和R创建一个分组的（非重叠的）堆叠条的代码：

months = 1:12
n1 = runif(12, min = 0, max = 1)
n2 = runif(12, min = 0, max = 1)
dfPlot = data.frame(months, n1, n2)

plot_ly(x = dfPlot [,1],
        y = dfPlot [,2],
        type = 'bar') %>%
add_trace(x = dfPlot[,1],
          y = dfPlot[,3],
          type = 'bar')

如何调整图表以使序列重叠？ 我们也非常赞赏有关如何以相似的方式可视化相同信息，但逻辑不同的建议！

Answer 1

一种使用plotly和plotly开发版本的ggplot2

#devtools::install_github('hadley/ggplot2')

library(ggplot2)

p <- ggplot(dfPlot) +
  geom_col(aes(x = month.abb[months], y = n1), 
           fill = "blue", width = 0.2) +
  geom_col(aes(x = month.abb[months], y = n2), 
           alpha = 0.3, fill = "red", width = 0.6) +
  labs(title = "Overlay geom_cols", x = "Months", y = "Measure") +
  theme_minimal()

plotly::ggplotly(p)

---

Answer 2

使用barmode = 'overlay'选项添加布局，并更改一个数据集的宽度

months = 1:12
n1 = runif(12, min = 0, max = 1)
n2 = runif(12, min = 0, max = 1)
dfPlot = data.frame(months, n1, n2)

plot_ly(x = dfPlot [,1],
    y = dfPlot [,2],
    type = 'bar', name = "n1") %>%
    add_trace(x = dfPlot[,1],
        y = dfPlot[,3],
        type = 'bar', width = 0.3, name = "n2") %>%
  layout(barmode = 'overlay')