主页 / coding / 问题 / 79471731
Accepted
sactyr
Asked: 2025-02-27 14:06:12 +0800 CST

在 plotly 刻度标签中嵌入图像

  • 772

我想将图像嵌入到 plotly 图表的 x 轴中（而不是代替 x 轴）。我尝试过的代码：

library(plotly)
library(dplyr)
library(tidyr)

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) %>% 
  pivot_longer(cols = c(SF_Zoo, LA_Zoo)) %>% 
  mutate(Animals = paste(Animals, "<img src='https://images.plot.ly/language-icons/api-home/r-logo.png'</img>"))


plot_ly(data, x = ~Animals, y = ~value, type = 'bar', color = ~name) %>%
  layout(
    barmode = "stack"
  )

图片来自上面的代码

可以看出，img标签被打印为文字字符串。我尝试过包装刻度标签Animals，htmltools::HTML但没有成功。

本plotly 指南讨论了在绘图区域内嵌入图像/徽标，但我想将图像嵌入为刻度标签的一部分。此python SO 解决方案将刻度标签完全替换为图像。

2 个回答

  1. 不幸的是，与 Python 中的 Plotly 不同，R 不直接支持在刻度标签内嵌入图像。但是，我们可以使用背景图像和手动定位来实现此效果。

    以下代码添加了您需要的图像，但您可能需要更改images对象的参数以将它们正确添加到图形中。

    library(plotly)
library(dplyr)
library(tidyr)

# Sample data
Animals <- c("Giraffes", "Orangutans", "Monkeys")
SF_Zoo <- c(20, 14, 23)
LA_Zoo <- c(12, 18, 29)

# Convert data to long format
data <- data.frame(Animals, SF_Zoo, LA_Zoo) %>% 
  pivot_longer(cols = c(SF_Zoo, LA_Zoo))

# Create the bar chart
p <- plot_ly(data, x = ~Animals, y = ~value, type = 'bar', color = ~name) %>%
  layout(
    barmode = "stack",
    xaxis = list(title = "Animals", tickvals = c(0, 1, 2), ticktext = Animals),
    images = list(
      list(source = "https://images.plot.ly/language-icons/api-home/python-logo.png",
           xref = "paper",
           yref = "paper",
           x= 0,
           y= 0,
           sizex = 0.1,
           sizey = 0.1,
           opacity = 0.8
      ),
      
      list(source = "https://images.plot.ly/language-icons/api-home/matlab-logo.png",
           xref = "x",
           yref = "paper",
           x = 1,
           y = 0,
           sizex = 0.2,
           sizey = 0.2,
           opacity = 0.8z
      ),
      
      list(source =  "https://images.plot.ly/language-icons/api-home/python-logo.png",
           xref = "x",
           yref = "paper",
           x = 1.5,
           y = 0,
           sizex = 0.1,
           sizey = 0.1,
           sizing = "stretch",
           opacity = 0.8
      )
    )
  )

# Display the plot
p

    结果

    • 1
  2. Best Answer

    就像在python 答案中一样，您可以将图像粘贴到布局中，并迭代数据的 x 值。为此，您可以使用lapply构建图像列表。按照此处xref = "x"所述使用。我还将使用在绘图下方为图像创建一些空间，但您也可以使用将它们推送到背景层。然后您可以使用始终将图像居中。margin = list(b = 150)layer="below"xanchor = "center"

    出去

    代码

    library(plotly)
library(dplyr)
library(tidyr)

Animals <- c("giraffes", "orangutans", "monkeys")
imgs <- c(
  "https://cdn.pixabay.com/photo/2017/04/11/21/34/giraffe-2222908_640.jpg",
  "https://encrypted-tbn1.gstatic.com/images?q=tbn:ANd9GcRfPhPFLZSG51k0T3Mg0m8EWmek_sDLO9LsAh8kbVoOkzVHFKdAsbZmY4xfaIMVFq4uxcUKWV8LkS8D_nwK2AsTmA",
  "https://cdn.mos.cms.futurecdn.net/ZRAWdgHeNNPw8PaSxg7kVj-1200-80.jpg"
)

SF_Zoo <- c(20, 14, 23)
LA_Zoo <- c(12, 18, 29)
data <- data.frame(Animals, SF_Zoo, LA_Zoo) %>% 
  pivot_longer(cols = c(SF_Zoo, LA_Zoo))

img_list <- lapply(seq_along(Animals), function(i, size = 0.4) {
  list(
    source = imgs[i],  
    xref = "x",       
    yref = "paper",   
    x = Animals[i],   
    y = -0.15,        
    sizex = size, sizey = size,
    xanchor = "center"
  )
})

plot_ly(data, x = ~Animals, y = ~value, type = 'bar', color = ~name) %>%
  layout(
    barmode = "stack",
    images = img_list,
    margin = list(b = 150) # adjust bottom margin
  )
    • 1

相关问题