R：百分比在plotly

Question

堆條形圖我有像下面

City<-c("X","Y","Z","X","Z","X","Y") 
House_Unit_Id<-c("H1","H2","H3","H4","H5","H6","H7") 
Adult<-c(50,100,60,40,50,80,60) 
Child<-c(40,0,40,20,50,20,30) 
Baby<-c(10,0,0,40,0,0,10) 
data<-data.frame(City,House_Unit_Id,Adult,Child,Baby) 

City House_Unit_Id Adult Child Baby 
    X  H1   50  40  10 
    Y  H2  100  0  0 
    Z  H3   60  40  0 
    X  H4   40  20  40 
    Z  H5   50  50  0 
    X  H6   80  20  0 
    Y  H7   60  30  10 

我需要象下面

我嘗試下面的代碼，但所需要的輸出是不是百分比列堆疊圖表的數據集顯示爲百分比堆棧條形圖。

Chart <- plot_ly(data,x = ~City, y = ~Adult, type = 'bar',name= 'Adult') %>% 
    add_trace(y = ~Child, name = 'Child') %>% 
    add_trace(y = ~Baby, name = 'Baby') %>% 
    layout(yaxis = list(title = 'Percentage (%)'),barmode = "stack") 

這是我目前得到

我找不到在R.這種類型的圖表plotly包的任何答案，任何人都可以請幫我這個？