可以使用ggplot2完成这种绘图吗？

112

用户名

我正在使用R并ggplot2做一些绘图以用于发布目的。我遇到了这个情节，我想使用复制它ggplot2。但是，我从未见过使用绘制的图ggplot2。

能做到ggplot2吗？酒吧下面的文字呢？我想这些将必须在ggplot2代码中进行硬编码。以及如何对齐这些文本？

莫里斯·埃弗斯（Maurits Evers）

这非常接近：

# Generate sample data (I'm too lazy to type out the full labels)
df <- data.frame(
    perc = c(60, 36, 44, 41, 42, 57, 34, 52),
    type = rep(c("blue", "green"), 4),
    label = rep(c(
        "Individual reports created as needed",
        "Regular reports on single topics",
        "Analytics using data integrated from multiple systems",
        "Business unit-specific dashboards and visuals"), each = 2))


library(ggplot2)
ggplot(df, aes(1, perc, fill = type)) +
    geom_col(position = "dodge2") +
    scale_fill_manual(values = c("turquoise4", "forestgreen"), guide = FALSE) +
    facet_wrap(~ label, ncol = 1, strip.position = "bottom") +
    geom_text(
        aes(y = 1, label = sprintf("%i%%", perc)),
        colour = "white",
        position = position_dodge(width = .9),
        hjust = 0,
        fontface = "bold") +
    coord_flip(expand = F) +
    theme_minimal() +
    theme(
        axis.title = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        strip.text = element_text(angle = 0, hjust = 0, face = "bold"))

一些解释：

我们分别使用闪避的条和匹配的闪避标签position = "dodge2"（请注意，这需要ggplot_ggplot2_3.0.0使用，否则使用position = position_dodge(width = 1.0)）和position = position_dodge(width = 0.9)。
我们使用facet_wrap并强制采用一栏式布局；条形标签移到底部。
我们使用旋转整个图coord_flip(expand = F)，其中expand = F确保左对齐（hjust = 0）小平面条文本与0对齐。
最后，我们调整主题以增加整体美学相似度。