固定水平Plotly条形图X轴

Question

我在 Shiny 仪表板中使用 R 的plotly package 来创建下面的漏斗图。

当前 plot。

这个图表有一个问题，就是 x 轴在 0 的左边显示负值。通常这当然不是问题，但这是一个漏斗图，所以 0 左边的值不是t 真的是负数，因为它们代表计数数据。 我不知道如何解决它。

所需的 plot。

代码是

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)

})

Answer 1

您可以使用 ggplotly 组合ggplot2和plotly获得相同的ggplotly 。 我使用了一些虚拟数据和dplyr来转换变量：

library(ggplot2)
library(plotly)
library(dplyr)
#Data
df <- data.frame(Age=c('0-19','20-29','30-39','40-49','50-69','60-Inf',
                       '0-19','20-29','30-39','40-49','50-69','60-Inf'),
                 Pop=c(1000,3000,7000,5000,3000,800,
                       900,2500,6000,4000,2000,500),
                 Gender=c(rep('Male',6),rep('Female',6)))
#Code
Plot <- df %>%
  mutate(Age=factor(Age,levels = unique(Age),ordered = T),
         Pop=ifelse(Gender=='Male',-Pop,Pop)) %>%
  ggplot(aes(x=Age,y=Pop,fill=Gender))+
  geom_bar(stat = 'identity')+
  scale_y_continuous(labels = function(x) abs(x))+
  coord_flip()+
  scale_fill_manual(values=c('orange','blue'))+
  theme_bw()
#Plotly
ggplotly(Plot)

Output：