Как создать возрастную пирамиду, используя график в R?

Вот решение того, что вы спросили, исходя из того, что, я думаю, вы ищете. (Я использовал этот ответ Python, чтобы ответить на ваш вопрос в R.)

Использование данных в том виде, в котором вы их уже структурировали:

• Я использовал set.seed(23) для последовательного создания данных при работе над этим ответом (если вы хотели увидеть те же результаты).

• Чтобы выровнять мужскую и женскую планку нужно barmode = "relative".

• Чтобы создать горизонтальные полосы, в вызове plot_ly добавьте orientation = "h".

  • Если вы установите горизонтальную ориентацию полос, вам нужно будет переключить контент, который вы назначили xaxis и yaxis в вызове, на layout()

• Чтобы контент, который вы назначили, text наводил на контент (всплывающую подсказку), измените назначение с text = на hovertext = . (Поскольку вы установили textposition = "none", я предполагаю, что это была ваша цель... хотя на вашем изображении отображается текстовое содержимое... так что...)

  • Если вам не нужен x, y, который отображается вверху каждой всплывающей подсказки, поскольку он является избыточным, назначьте его hovertemplate вместо hovertext или text. Последнее изображение в этом ответе имеет это изменение. (Вы можете сравнить всплывающие подсказки на последних двух изображениях.)

• Я не уверен, какова была цель присвоения цветов. В вашем коде вы установили цвет для каждого года, но ваш идеал (основанный на изображении) имеет цвета, модерируемые по полу. Если вы использовали кнопки по годам, цвета по годам будут немного излишними. Вот пример того, как вы можете назначить цвета по полу, чтобы они соответствовали предоставленному вами визуальному элементу. Если вы хотите придерживаться цвета по годам, дайте мне знать, и я также добавлю информацию о том, как это сделать.

• Я добавил код, чтобы сделать проценты, которые являются отрицательными для кодирования, положительными значениями.

  • По оси Y, установив ticktext и tickvals.
  • В hovertext = добавлен abs(), чтобы показать абсолютные значения. В противном случае этот контент соответствует исходному коду, присвоенному text = . (Я также аннотировал это изменение в своих комментариях к коду.)

Код, который вы присвоили buttons = , идентичен тому, который я создал с помощью lst = и lapply().

lst <- rep(F, length(unique(sexo$ANO_TRAT)))    # visibility by trace
# create btns
btns <- lapply(1:length(lst), \(w) {            # create buttons
  lst[w] <- T                                   # change one button's visibility
  list(method = "restyle", label = sort(unique(sexo$ANO_TRAT))[w],
       args = list("visible", lst))
})

# the plot
plot_ly(data = sexo, type = "bar", orientation = "h", 
        name = ~SEXO, color = ~SEXO, split = ~ANO_TRAT, # split traces by year 
        x = ~percent, y = ~FAIXA_ETARIA,                # data to plot
                                                        # tooltip content 
        hovertext = ~paste('</br> Ano do Início do Tratamento: ', ANO_TRAT,
                           '</br> Sexo: ', SEXO,
                           '</br> Número de Casos de TBDR: ', n,
                           '</br> %: ', abs(percent))) %>%    # <---- I added abs() here!
  layout(xaxis = list(title = "Raça/cor", 
                      tickmode = "array",
                      tickvals = seq(-10, 10, length.out = 5), # positive axis vals
                      ticktext = abs(seq(-10, 10, length.out = 5))), 
                                                # standoff = space btw title & labels
         yaxis = list(title = list(text = 'Número de Casos de TBR', standoff = 20)),
         barmode = "relative",                  # align the genders' bars horizontally
         updatemenus = list(list(
           pad = list(r = 55),                  # create space between graph & dropdown
           showactive = T,                      # highlight visible trace's button
           buttons = btns                       # from lapply
         ))) %>% 
  style(visible = F, traces = c(2:6, 8:12))     # set 2019 as only visible trace(s)

Если для кода подсказки установлено значение hovertemplate вместо hovertext или text, это выглядит следующим образом:

Если у вас есть какие-либо вопросы или есть что-то еще, дайте мне знать.