R A条形图

Question

上Plotly多个维度我要创建在plotly与数据东西堆积条形图像下面

df <- data.frame(
    var1 = c("NY", "NY", "NY", "SFO", "SFO", "SFO"), 
    var2 = c("LOW", "Medium", "High", "Low", "Medium", "High"), 
    value = c(10, 15, 20, 15, 20, 15) 
) 

基本上x轴将有2条为VAR1，填充有用于每个VAR2值。在ggplot中，你可以使用var2作为填充，但我无法弄清楚如何在plotly中做到这一点。

有人可以帮忙吗？

感谢，

马诺

Answer 1

你可以试试：

# Split the data 
df_list <- split(df, df$var2) 
# plot the data and add the traces for var2 
plot_ly(df_list$Low, x=~var1, y=~value, type="bar", name="Low") %>% 
    add_trace(y= df_list$Medium$value , name = "Medium") %>% 
    add_trace(y= df_list$High$value, name = "High") %>% 
    layout(barmode = "stack") 

# A faster way would be something like this: 
# First order var2 
df$var2 <- factor(df$var2,levels = c("Low", "Medium", "High")) 
# Plot 
plot_ly(df, x= ~var11, y= ~value, color= ~var2, type="bar") %>% layout(barmode = "stack") 

后者的解决方案无法正确显示的颜色在传说中，这似乎是一个错误版本plotly_4.5.2。在xaxis上绘制多于两个条的工作没有任何问题。试试这个数据有三个var1组：

df2 <- data.frame(
    var1 = c("NY", "NY", "NY", "SFO", "SFO", "SFO","Test"), 
    var2 = c("Low", "Medium", "High", "Low", "Medium", "High","Low"), 
    value = c(10, 15, 20, 15, 20, 15,30) 
) 
plot_ly(df2, x=~var1, y=~value, color=~var2, type="bar") %>% layout(barmode = "stack") 

# Or use ggplot 
library(ggplot2) 
p <- ggplot(df, aes(x=var1, y=value, fill=var2)) + geom_bar(stat="identity") + theme_bw() 
ggplotly(p)