条形图：将一个堆叠的条与一个躲避的条组合

从@aosmith链接中获取一些想法。

您可以调用geom_bar两次，一次调用一次Assets并Amounts Past Due叠加一次，然后再次调用Actuarial Liability。

您可以width用来使小节变细，然后微调一组小节，以使两个geom_bar调用不重叠。我选择进行宽度调整0.3，0.3使边缘对齐。如果您多推动一点，您会看到两个条之间的间隙。

编辑：添加更多格式和数字标签

library(tidyverse)
library(scales)

df_al  <- filter(df, Condition == 'Actuarial Liability')
df_xal <- filter(df, Condition != 'Actuarial Liability')

bar_width <- 0.3
hjust_lab <- 1.1
hjust_lab_small <- -0.2 # hjust for labels on small bars

ggplot() + 
  theme_classic() +
  geom_bar(data = df_al, 
           aes(fill=Condition, y=Value, x=Fund),
           position = position_nudge(x = -bar_width),
           width = bar_width,
           stat="identity") +
  geom_bar(data = df_xal, 
           aes(fill=Condition, y=Value, x=Fund),
           position="stack", 
           stat="identity",
           width = bar_width) +
  geom_text(data = df_al, 
            aes(label= dollar(Value, drop0trailing = TRUE), y=Value, x=Fund),
            position = position_nudge(x = -bar_width),
            hjust = hjust_lab) +
  geom_text(data = df_xal, 
            aes(label= dollar(Value, drop0trailing = TRUE), y=Value, x=Fund),
            position="stack",
            hjust = ifelse(df_xal$Value < 5, hjust_lab_small,  hjust_lab)) +
  scale_fill_manual(values = c('firebrick3', 'lightsalmon', 'dodgerblue')) +
  scale_y_continuous(breaks = seq(0,180, by = 20), labels = dollar) +
  coord_flip() +
  labs(x = NULL, y = NULL, fill = NULL) +
  theme(legend.position = "bottom")