这可以通过对x轴值进行一点修改来完成。我所做的是根据www.example.com计算x轴值prop.cat并将cat标签分配给与每个cat对应的每个条形位置的匹配值。这将使x轴连续值，以便width aes现在能够匹配轴值。

library(tidyverse)

cat <- c("A","B","C","D")
v1 <- c(1,3,6,2)
v2 <- c(3,3,10,1)
df <- data.frame(cat,v1,v2)

df <- df %>%
  group_by(cat) %>%
  mutate(sum.cat = sum(v1,v2)) %>%
  mutate(prop.v1 = v1/sum.cat) %>%
  ungroup() %>%
  mutate(prop.cat = sum.cat/sum(v1,v2)) %>%
  mutate(sum.tot = sum(sum.cat)) %>%
  mutate(prop.v2 = 1-prop.v1) %>%
  pivot_longer(cols = c(5,8), names_to = "prop.v.type", values_to = "prop.v")

# Here I calculate the x_axis position for each cat
df_revised <- df |> 
  group_by(cat) |>
  mutate(prop.cat_cumsum = if_else(row_number() == 1, prop.cat, 0)) |>
  ungroup() |>
  mutate(prop.cat_cumsum = cumsum(prop.cat_cumsum)) |>
  mutate(x_axis_value = 0 + prop.cat_cumsum - prop.cat / 2)

# As the cat & the values are well aligned in order so I just extract them
x_asix_breaks <- unique(df_revised$x_axis_value)
x_asix_labels <- unique(df_revised$cat)

# Now I plot them to test if it fit well.
ggplot(df_revised,
       aes(x = x_axis_value, y = prop.v, fill = prop.v.type))+
  geom_bar(position = "stack", stat = "identity",
           aes(width = prop.cat)) +
  scale_x_continuous(breaks = x_asix_breaks, expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))
#> Warning in geom_bar(position = "stack", stat = "identity", aes(width =
#> prop.cat)): Ignoring unknown aesthetics: width

好的，它和预期的一样工作。现在只需要分配适当的猫标签的x轴和添加一个线边界的酒吧，以便很容易区分酒吧。

ggplot(df_revised,
       aes(x = x_axis_value, y = prop.v, fill = prop.v.type))+
  geom_bar(position = "stack", stat = "identity",
           color = "black", aes(width = prop.cat)) +
  scale_x_continuous(breaks = x_asix_breaks, labels = x_asix_labels,
                     expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))
#> Warning in geom_bar(position = "stack", stat = "identity", color = "black", :
#> Ignoring unknown aesthetics: width

创建于2023-05-18带有reprex v2.0.2