固定水平绘图条形图的X轴

我在Shiny Dashboard中使用R的plotly包在下面创建漏斗图。

当前情节。

enter image description here

此图表存在一个问题,因为x轴在0的左侧显示负值。通常这当然不是问题,但这是漏斗图,因此0左侧的值不是' t确实为负,因为它们代表计数数据。我不知道该如何解决。

所需的情节。

enter image description here

该代码是

output$plot_piramide_casos <- renderPlotly({

m <- list(
  l = 50,
  r = 50,
  b = 100,
  t = 100,
  pad = 4
)

plot_ly(piramide_casos(), x = ~Freq_n, y = ~Faixa, type = 'bar', color = ~Sexo, colors = c("darkorange1", "dodgerblue3"), 
        text = ~paste("Faixa Etária: ", Faixa, '<br>Número Absoluto:', Freq, '<br>Proporção:', prop,"%"), hoverinfo = 'text')  %>% 
  layout(barmode='relative',
         xaxis = list(title = "População", tickformat = "digits", zeroline = FALSE),
         yaxis = list(title = "Faixa Etária", zeroline = FALSE)) %>%
  layout(title = "Casos confirmados de COVID-19", titlefont = list(size = 24, face="bold"))%>%
  layout(autosize = F, width = 545, height = 400, margin = m)

})
评论