Question

我正在尝试重新创建以下report第4页上的条形图：

该图有三个条，前两个堆叠在一起，而第三个则在其旁边躲避。我见过这个问题的迭代，但是没有一个以这种精确的方式重新创建图形。

以下是数据：

a <- rep(c('RHB', 'FERS', 'CSRS'), 3)
b <- c(rep('Assets', 3), rep('Amount Past Due', 3), 
       rep('Actuarial Liability', 3))
c <- c(45.0, 122.5, 152.3, 47.2, 3.4, 4.8, 114.4, 143.4, 181.3)

df <- data.frame(a,b,c)
names(df) <- c('Fund', 'Condition', 'Value')

以及我到目前为止所管理的：

p <- ggplot(subset_data, aes(fill=Condition, y=Value, x=Fund)) + 
  geom_bar(position="stack", stat="identity") + 
  coord_flip()

我不偏爱ggplot，因此，如果有另一个更好用的工具，我可以使用其他软件包。

Answer 1

我想在添加一个虚拟变量来使列闪避并使Fund成为具有正确顺序的因子之后，我会使用“鬼face面”方法：

df$not_liability <-df$Condition != "Actuarial Liability"
df$Fund <- factor(df$Fund, levels = c('RHB', 'FERS', 'CSRS'))

然后，大多数绘图代码都会尝试复制提供的绘图的外观：

ggplot(df, aes(fill=Condition, y=Value, x=not_liability)) + 
  geom_bar(position = "stack", stat = "identity") + 
  scale_x_discrete(expand = c(0.5, 0.5)) +
  scale_y_continuous(breaks = 0:10 * 20, labels = scales::dollar) +
  coord_flip() +
  facet_grid(Fund~., switch = "y") +
  scale_fill_manual(values = c("#c00000", "#f7c290", "#0071bf"), name = "") +
  theme_classic() +
  theme(panel.spacing = unit(0, "points"),
        strip.background = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.length.y = unit(0, "points"),
        axis.title = element_blank(),
        strip.placement = "outside",
        strip.text = element_text(),
        legend.position = "bottom",
        panel.grid.major.x = element_line())

Answer 2

从@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")

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

2 个答案: