user2602640's questions

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) 

Estou criando um barplot com barras de erro usando ggplotly. A transição para plotlyaltera a largura e a espessura das barras de erro, e eu gostaria de formatá-las conforme minha preferência. Vi que devo fazer isso usando a stylefunção, mas não consigo descobrir. Posso ver que o traço que preciso é chamado error_ye posso alterar os atributos das barras, mas não consigo descobrir como alterar nenhum atributo das barras de erro...

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

df <- data.frame(y = c(5, 10), group = c("a", "b"))
p <- ggplot(df) +
        geom_bar(aes(x = group, y = y), stat = "identity") +
        geom_errorbar(aes(x = group, ymin = y - 1, ymax = y + 1), linewidth = 0.1, width = 0.7) 
        
ggp <- ggplotly(p)
str(ggp) # I can see the markers (the bars) and the error_y (the error bars in the structure of the plotly object

# can modify attributes of the bars successfully
style(ggp, traces = 1, marker = list(color = "red"))
# fail to modify attributes of the errorbars
style(ggp, error_y = list(thickness = 2.5))

Estou usando ggplotlypara tornar meus gráficos interativos dentro de um aplicativo Shiny. Preciso girar os rótulos do eixo x em 45 graus. Isso funciona bem, mas apenas até que eu tenha facetas. Se meu gráfico tiver facetas, então apenas a faceta esquerda recebe rótulos de eixo rotacionados, enquanto outras facetas não. Não vi isso abordado em nenhum outro lugar... Abaixo está um código de exemplo mostrando a rotação funcionando bem em um gráfico de painel único e quebrando com facetas.

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

df <- expand.grid(x = 1:10, group = c("a", "b"))
p <- ggplot(df) +
        geom_point(aes(x = x, y = x))
ggplotly(p) %>% layout(xaxis = list(tickangle = -45))

p <- p + facet_wrap(~ group)
ggplotly(p) %>% layout(xaxis = list(tickangle = -45))