Início / coding / Perguntas / 79448358
Accepted
user2602640
Asked: 2025-02-18 21:01:56 +0800 CST

ggplotly - mostra apenas a parte superior de uma barra de erro

  • 772

Tenho um ggplotgráfico de barras com uma barra de erro, que estou colocando em ggplotly. Minha preferência é mostrar apenas o topo da barra de erro. Em ggplot2, eu simplesmente especifico o y_minda barra de erro para ser o valor da barra e ploto a barra de erro primeiro, de modo que o bigode inferior fique escondido atrás do geom_bar. No entanto, depois que executo o gráfico em ggplotly, a barra de erro é mostrada no topo. Existe uma maneira de não mostrar o bigode inferior? Procurei maneiras de alterar a ordem dos 2 traços ou opções para barras de erro "somente superiores", mas não consegui encontrar nada.

library(dplyr)
library(ggplot2)
library(plotly)

df <- data.frame(y = c(5, 10), group = c("a", "b"))
p <- ggplot(df) +
        geom_errorbar(aes(x = group, ymin = y, ymax = y + 10), linewidth = 0.1, width = 0.7) +
        geom_bar(aes(x = group, y = y), stat = "identity", fill = "lightgrey") 

# only top whisker is shown     
p 

# both top and bottom are showing
ggplotly(p)

2 respostas

  1. Best Answer

    Presumivelmente, há uma maneira de hackear o objeto plotly para mover a barra de erro para que fique abaixo das barras, embora uma solução mais simples possa ser desenhar apenas os objetos que você quer visíveis. Você pode fazer isso desenhando uma barra de erro de altura zero em ymax e um segmento entre y e ymax. Dessa forma, a ordem das camadas não importa.

    p <- ggplot(df, aes(x = group, ymax = y + 10)) +
  geom_errorbar(aes(ymin = y + 10, ymax = y + 10), 
                linewidth = 0.1, width = 0.7) +
  geom_linerange(aes(ymin = y), linewidth = 0.5) +
  geom_col(aes(x = group, y = y), fill = "lightgrey") 

ggplotly(p)

    insira a descrição da imagem aqui

    É importante ressaltar que os segmentos de linha vertical em ambos os casos não acrescentam nenhuma informação ao seu gráfico, e pode-se argumentar que ter apenas a barra de erro de altura zero como uma linha horizontal flutuando acima da barra pode ser preferível aos puristas da visualização de dados.

    Como nota de rodapé, geom_col()substituída geom_bar(stat = "identity")há cerca de 8 anos.

    • 4

  2. A solução alternativa de Allan é a melhor que você consegue, mas deixe-me tentar explicar. Mesmo usando plotlynativamente, não podemos obter o efeito que você está procurando, já que as barras de erro são sempre desenhadas por último. Isso ocorre porque os error_ytraços são criados com o mecanismo WebGL e esses traços são sempre desenhados após os traços de dispersão regulares, independentemente da ordem em que foram adicionados ao gráfico.

    Você pode ver aqui; mesmo que estejamos adicionando as barras depois de adicionar o erro-y, elas são plotadas primeiro e, portanto, o limite do erro-y fica visível.

    library(plotly)

df <- data.frame(y = c(5, 10), group = c("a", "b"))
error_length <- 10

plot_ly() %>%
  add_trace(
    x = df$group, y = df$y + error_length/2,
    type = "scatter", mode = "markers",
    marker = list(color = "transparent"),
    error_y = list(
      type = "constant",  
      value = error_length/2,
      color = "black", thickness = 0.4, width = 20),
    name = "Positive Errors",
    showlegend = FALSE) %>% 
  add_trace(inherit = FALSE, type = "bar", 
            x = df$group, y = df$y, color = I("lightgrey"))

    A solução alternativa plotlyé desenhar formas em vez de um gráfico de barras (as formas também são desenhadas com WebGL):

    fig <- plot_ly() %>%
  add_trace(
    x = as.integer(as.factor(df$group)),
    y = df$y + error_length/2, 
    type = "scatter", mode = "markers",
    marker = list(color = "transparent"),
    error_y = list(type = "constant",  value = error_length/2,
                   color = "black", thickness = 0.4, width = 20),
    name = "Positive Errors",
    showlegend = FALSE) %>% 
  layout(xaxis = list(range = as.integer(as.factor(df$group)) + c(-0.5, 0.5), 
                      tickvals = seq_along(df), ticktext = df$group),
         yaxis = list(zeroline=FALSE))

bar <- list(type = "rect",
            fillcolor = "lightgray", 
            line = list(color = "lightgray"),
            xref = "x", yref = "y")

bars <- list()
bar_width <- 0.3

for (i in seq_along(df)) {
  bar[["x0"]] <- i - bar_width
  bar[["x1"]] <- i + bar_width
  bar[["y0"]] <- 0
  bar[["y1"]] <- df$y[[i]]
  bars <- c(bars, list(bar))
}

layout(fig, shapes = bars)

    • 1

relate perguntas