带有2列的{ggplot堆积条形图

Question

出于可解释性原因，我想创建数据框df的堆积条形图，而不必转换数据。我的数据如下：

#Code
year <- c(1:5)
burglaries <- c(234,211,201,150,155)
robberies <- c(12, 19,18,23,25)
total <- burglaries + robberies
df <- data.frame(year, burglaries, robberies, total)

#Output
print(df)

  year burglaries robberies total
1    1        234        12   246
2    2        211        19   230
3    3        201        18   219
4    4        150        23   173
5    5        155        25   180

我可以通过如下转换我的数据集来创建我需要的图：

df2 <- rbind(
        data.frame(year, "count" = burglaries, "type"="burglaries"),
        data.frame(year, "count" = robberies, "type"="robberies")
)

ggplot(df2, aes(x=year, y=count, fill=type)) +
    geom_bar(stat="identity")

有没有办法用数据框df创建相同的图？虽然我可以转换数据，但我担心它会让你更难跟踪程序中发生的事情并捕获错误（我使用的数据集非常大）。

Answer 1

我做了一些额外的研究，发现库plot_ly()中的plotly函数允许您这样做。以下是有关详细信息的链接：plotly website

plot_ly(data=df, x = ~year, y = ~burglaries, type = 'bar', name = 'Burglaries') %>%
    add_trace(y = ~robberies, name = 'Robberies') %>%
    layout(yaxis = list(title = 'Count'), barmode = 'stack')