如何在Plotly条形图Y轴替换或添加企业Logo？

在R的Plotly中，无法直接在Y轴刻度上替换图片，但可以通过隐藏原Y轴标签+添加图片注释或者双图拼接对齐Y轴两种方式实现需求，以下是具体方案：

方法一：隐藏原Y轴，用注释添加Logo #

这种方法最直接，通过将Logo以HTML图片的形式作为注释，定位到原Y轴刻度的位置：

步骤1：准备数据与Logo路径 #

先把企业名称、对应数值和Logo本地路径整理成数据框：

library(plotly)

# 替换为你的实际Logo路径
companies <- data.frame(
  name = c("Facebook", "Twitter", "Apple", "Microsoft", "Tesla"),
  value = c(20, 14, 23, 6, 28),
  logo_path = c("facebook.png", "twitter.png", "apple.png", "microsoft.png", "tesla.png")
)

步骤2：绘制基础条形图并隐藏Y轴 #

创建水平条形图，同时隐藏原Y轴的刻度和标题：

p <- plot_ly(companies, 
             y = ~name, 
             x = ~value, 
             type = "bar",
             orientation = "h") %>% # 水平条形图对应原需求的Y轴分类
  layout(
    yaxis = list(
      showticklabels = FALSE, # 隐藏原刻度文字
      title = "" # 隐藏Y轴标题
    ),
    xaxis = list(title = "数值")
  )

步骤3：添加Logo注释 #

循环为每个企业添加图片注释，调整位置让Logo显示在原Y轴区域：

# 遍历每个企业，添加Logo注释
for (i in 1:nrow(companies)) {
  p <- p %>% add_annotations(
    xref = "paper", # 使用纸张坐标系，x=0为图表最左侧
    yref = "y",
    x = -0.15, # 调整此值控制Logo与条形图的间距
    y = companies$name[i],
    text = paste0("<img src='", companies$logo_path[i], "' width='40' height='40'>"), # 控制Logo大小
    showarrow = FALSE,
    align = "center"
  )
}

# 加大左侧边距，避免Logo被截断
p <- p %>% layout(margin = list(l = 80))

运行后即可看到Y轴位置显示对应企业的Logo，替代原来的文字标签。

方法二：双图拼接（Logo图+条形图） #

如果需要更灵活的布局控制，可以将Logo单独放在左侧小图，右侧放条形图，通过共享Y轴实现对齐：

步骤1：创建左侧Logo图 #

生成一个仅显示Logo的空图表，隐藏所有轴元素：

logo_plot <- plot_ly() %>%
  layout(
    yaxis = list(
      tickvals = companies$name,
      showticklabels = FALSE,
      title = "",
      range = c(-0.5, nrow(companies)-0.5) # 与条形图Y轴范围对齐
    ),
    xaxis = list(showticklabels = FALSE, title = "", showgrid = FALSE, zeroline = FALSE),
    margin = list(l=0, r=0, t=0, b=0)
  )

# 添加Logo注释
for (i in 1:nrow(companies)) {
  logo_plot <- logo_plot %>% add_annotations(
    xref = "paper",
    yref = "y",
    x = 0.5,
    y = companies$name[i],
    text = paste0("<img src='", companies$logo_path[i], "' width='40' height='40'>"),
    showarrow = FALSE,
    align = "center"
  )
}

步骤2：创建右侧条形图 #

生成条形图并隐藏Y轴标签：

bar_plot <- plot_ly(companies, y=~name, x=~value, type="bar", orientation="h") %>%
  layout(
    yaxis = list(showticklabels = FALSE, title = ""),
    xaxis = list(title = "数值")
  )

步骤3：拼接双图 #

使用subplot将两个图拼接，设置宽度比例并共享Y轴：

subplot(logo_plot, bar_plot, widths = c(0.15, 0.85), shareY = TRUE) %>%
  layout(margin = list(l=10, r=10, t=30, b=30))

注意事项 #

• 确保Logo图片路径正确：如果是本地文件，使用绝对路径或相对路径；如果是Shiny应用，需将图片放在www文件夹下。
• 调整width/height参数控制Logo大小，调整x值控制Logo的水平位置，直到显示效果符合预期。

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