如何在R语言Plotly柱状图中为柱子添加虚线边框？

你遇到的问题是因为Plotly的柱状图（bar类型）并不支持通过marker.line.dash来设置虚线边框，这是当前API的限制，直接设置这个参数不会有效果。

要实现柱子的虚线边框，可以通过layout()中的shapes参数手动为每个柱子添加虚线矩形边框，具体代码如下：

library(plotly)

x <- c('Product A', 'Product B', 'Product C')
y <- c(20, 14, 23)
text <- c('27% market share', '24% market share', '19% market share')
data <- data.frame(x, y, text)

# 绘制基础柱状图
fig <- plot_ly(data, x = ~x, y = ~y, type = 'bar', text = text,
               marker = list(color = 'rgb(158,202,225)'))

# 生成每个柱子的虚线边框shape
shapes_list <- lapply(seq_along(x), function(i) {
  list(
    type = "rect",
    x0 = i - 0.4,  # 匹配柱子左侧位置（默认bar宽度为0.8）
    x1 = i - 0.4 + 0.8,  # 匹配柱子右侧位置
    y0 = 0,
    y1 = data$y[i],
    line = list(color = 'rgb(8,48,107)', width = 1.5, dash = "dash"),
    fillcolor = "rgba(0,0,0,0)"  # 填充色透明，不覆盖柱子
  )
})

# 添加边框并设置布局
fig <- fig %>% layout(
  title = "January 2013 Sales Report",
  xaxis = list(title = "", tickmode = "array", tickvals = 1:3, ticktext = x),
  yaxis = list(title = ""),
  shapes = shapes_list
)

fig

代码说明： #

• 先绘制不带边框的基础柱状图，保留原有的颜色和文本设置
• 通过lapply循环生成每个柱子对应的矩形shape，调整x0和x1来匹配默认柱状图的宽度
• 设置line.dash = "dash"实现虚线效果，fillcolor设为透明避免覆盖柱子本身
• 手动指定x轴刻度，确保标签和柱子位置准确对应

内容的提问来源于stack exchange，提问作者Lolivano