1

Abaixo segue um exemplo mínimo e reprodutível:

library(plotly)

x_data <- c(1, 2, 3, 4, 5)
y_data <- c(2, 3, 4, 3, 4)
labels <- c("A", "B", "C", "D", "E")

p <- plot_ly()

for (i in 1:length(x_data)) {
    p <- add_trace(p, x = x_data[i], y = y_data[i], type = 'bar', name = labels[i], legendgroup = labels[i])
}

p <- p %>% layout(margin=list(r=100))

p <- p %>% layout(legend=list(tracegroupgap=50, bgcolor="lightgrey"))

x_pos <- 1.11
y_pos <- 0.9
gap <- 0.2
images_list = list()
for (i in 1:length(x_data)) {
    if((i %% 2) == 0) {
        s <- "https://images.plot.ly/language-icons/api-home/r-logo.png?raw=true"
    } else {
        s <- "https://raw.githubusercontent.com/cldougl/plot_images/add_r_img/vox.png"
    }
    img <- list(source = s, xref = "paper", yref = "paper", x = x_pos, y = y_pos,
                sizex = 0.1, sizey = 0.1, sizing = "contain", opacity = 1, layer = "above")
    images_list[[length(images_list)+1]] <- img
    y_pos <- y_pos - gap
}

p <- p %>% layout(images=images_list)

p

A saída é:

Resultado

Resultado desejado:

Resultado desejado

1 Resposta 1

1

A solução era simples: bastava acrescentar o background color para ser transparente. Segue exemplo abaixo:

p %>% layout(images=images_list, legend = list(bgcolor = 'rgba(0,0,0,0)'))

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .