R ggplot中的堆叠条形图在转换为plotly时无法正确显示

更新：为数据添加最小可复制代码

我正在尝试将ggplot转换为shiny中的plotly图表。问题是，在ggplot中，堆叠条形图（stat=identity）可以很好地堆叠起来，中间没有任何空格，而当我转换为plotly时，每个项目之间都有这些空格

我没有为shiny生成完整的代码，因为很难理解。但是这里有一些图片和一个简化的代码（不是闪亮的版本）

---

t问题在于如何巧妙地处理因子的堆叠条。每个因子都被包装在一个默认为白色的边框中。有一个非常简单的解决方法：只需向ggplot对象添加
color=CapitalChargeType

library(tidyverse)
df <- data_frame(
  t = 1:50,
  GIB_Rating = rep(c('2','3','4+','5','5-','7','8','6','6+','5'),5)
)

df <- df %>%
  expand(t, CapitalChargeType = 
c('Credit_risk_Capital','NameConcentration','SectorConcentration')) %>%
  left_join(df) %>%
  mutate(New = rnorm(150, mean=100,sd=250))

g <- ggplot(df, aes(x = GIB_Rating, y = New, fill = CapitalChargeType, color = CapitalChargeType)) + 
  geom_bar(stat='identity') 

plotly::ggplotly(g)

库（tidyverse）
df%
左联合（df）%>%
变异（新的=rnorm（150，平均值=100，标准差=250））
你能提供一个可复制的数据示例吗？现在完成。谢谢。不过，工具提示仍然显示单个值，而不是每个CapitalChargeType的总和。我意识到解决这一问题的一种方法是更改数据并绘制计算出的组和，但是否有我缺少的绘图功能，通过该功能我可以使工具提示显示和？谢谢你给我展示了一个更好的方法来创建min可复制的示例。
t4<-ggplotly(t3)
t4

library(tidyverse)
df <- data_frame(
  t = 1:50,
  GIB_Rating = rep(c('2','3','4+','5','5-','7','8','6','6+','5'),5)
)

df <- df %>%
  expand(t, CapitalChargeType = 
c('Credit_risk_Capital','NameConcentration','SectorConcentration')) %>%
  left_join(df) %>%
  mutate(New = rnorm(150, mean=100,sd=250))

g <- ggplot(df, aes(x = GIB_Rating, y = New, fill = CapitalChargeType, color = CapitalChargeType)) + 
  geom_bar(stat='identity') 

plotly::ggplotly(g)