ggplotly堆积区域图没有cumsum标签

Question

所以这就是问题所在。使用此代码：

library(ggplot2)
library(plotly)

Values1 <- rep(10, 10)
Values2 <- rep(20, 10)
X <- rep(seq(1, 10),2)
df <- data.frame(Values1=Values1, Values2=Values2)
df <- melt(df)
df2 <- data.frame(X=X, Label=df$variable, Value=df$value)

Plot <- ggplot(data=df2, aes(x=X, y=Value)) + 
  geom_area(data=df2, aes(fill=Label), position='stack')
ggplotly(Plot)

堆叠区域上的标签显示Values1 + Values2而不是Values1的值。

我该如何解决这个问题？

Answer 1

添加text和tooltip会为您提供所需内容：

Plot <- ggplot(data=df2, aes(x=X, y=Value, fill=Label, text = paste("Value:", Value))) + 
geom_area(position='stack')
ggplotly(Plot) 
ggplotly(tooltip = c("text", "x", "fill"))