在 plotly R 中为堆积条形图添加边框
Add border to stacked bar chart in plotly R
我在 plotly
包中使用 R 中的以下代码来制作灰度堆叠条形图。
hplot1 = plot_ly(big, x=~Month, y=~Cyanophyta, type='bar', name='Cyanophyta', color=I("grey95")) %>%
add_trace(y=~Chlorophyta, name='Chlorophyta', color=I("grey85")) %>%
add_trace(y=~Bacillariophyta, name='Bacillariophyta', color=I("grey75")) %>%
add_trace(y=~Dinophyta, name='Dinophyta', color=I("grey55")) %>%
add_trace(y=~Cryptophyta, name='Cryptophyta', color=I("grey40")) %>%
add_trace(y=~Other, name='Other', color=I("grey5")) %>%
layout(title="2013 Phytoplankton Community", yaxis=list(title='Percent Abundance'), barmode='stack')
我不确定是否可以为每个单独的变量添加边界,(即 1 个围绕蓝藻,1 个围绕叶绿藻等)这可以做到吗?
提前致谢!
可以像 regular bar charts 一样通过添加
将边框添加到堆积条形图
marker = list(line = list(width = 5,
color = 'rgb(0, 0, 0)'))
至add_trace
。
注意:color
这里是必须的,否则该行将不可见。
library(plotly)
Animals <- c("giraffes", "orangutans", "monkeys")
SF_Zoo <- c(20, 14, 23)
LA_Zoo <- c(12, 18, 29)
data <- data.frame(Animals, SF_Zoo, LA_Zoo)
marker_style <- list(line = list(width = 5,
color = 'rgb(0, 0, 0)'));
p <- plot_ly(data, type = 'bar') %>%
add_trace(x = ~Animals, y = ~SF_Zoo, name = 'SF Zoo',
marker = marker_style) %>%
add_trace(x = ~Animals, y = ~LA_Zoo, name = 'LA Zoo',
marker = marker_style) %>%
layout(barmode = 'stack')
p
我在 plotly
包中使用 R 中的以下代码来制作灰度堆叠条形图。
hplot1 = plot_ly(big, x=~Month, y=~Cyanophyta, type='bar', name='Cyanophyta', color=I("grey95")) %>%
add_trace(y=~Chlorophyta, name='Chlorophyta', color=I("grey85")) %>%
add_trace(y=~Bacillariophyta, name='Bacillariophyta', color=I("grey75")) %>%
add_trace(y=~Dinophyta, name='Dinophyta', color=I("grey55")) %>%
add_trace(y=~Cryptophyta, name='Cryptophyta', color=I("grey40")) %>%
add_trace(y=~Other, name='Other', color=I("grey5")) %>%
layout(title="2013 Phytoplankton Community", yaxis=list(title='Percent Abundance'), barmode='stack')
我不确定是否可以为每个单独的变量添加边界,(即 1 个围绕蓝藻,1 个围绕叶绿藻等)这可以做到吗?
提前致谢!
可以像 regular bar charts 一样通过添加
将边框添加到堆积条形图marker = list(line = list(width = 5,
color = 'rgb(0, 0, 0)'))
至add_trace
。
注意:color
这里是必须的,否则该行将不可见。
library(plotly)
Animals <- c("giraffes", "orangutans", "monkeys")
SF_Zoo <- c(20, 14, 23)
LA_Zoo <- c(12, 18, 29)
data <- data.frame(Animals, SF_Zoo, LA_Zoo)
marker_style <- list(line = list(width = 5,
color = 'rgb(0, 0, 0)'));
p <- plot_ly(data, type = 'bar') %>%
add_trace(x = ~Animals, y = ~SF_Zoo, name = 'SF Zoo',
marker = marker_style) %>%
add_trace(x = ~Animals, y = ~LA_Zoo, name = 'LA Zoo',
marker = marker_style) %>%
layout(barmode = 'stack')
p