以百分比表示的绘图堆叠水平条形图（R）

假设我有一个数据集，其中包含每个城镇的男性和女性百分比，以及城镇组（假设为州）：

---

town我想您可能打算这样设置数据框：

df <- data.frame(town = town, females = females, males = males, state = factor(state))

绘图


df <- data.frame(town = town, females = females, males = males, state = factor(state))

library(tidyverse)
library(plotly)

df %>%
  pivot_longer(cols = c(females, males), names_to = "gender", values_to = "percentage") %>%
  group_by(state, gender) %>%
  summarise(percentage_mean = mean(percentage)) %>%
  plot_ly(
    x = ~percentage_mean,
    y = ~state,
    color = ~gender,
    type = "bar",
    orientation = "h"
  ) %>%
  layout(
    barmode = "stack"
  )