如何在ggplot2中创建“进度条”类型的图以显示人员所在的百分位数？

Question

我正在尝试生成一个看起来像进度条的一维图，它会根据主体所处的百分比而被填充。

我将百分位数作为数值，只是不知道如何绘制它以使其看起来像是根据百分位数（0-100）填充的水平条。

Answer 1

以下内容可能会帮助您入门。

首先，让我们生成一些最小的样本数据

df <- data.frame(
    Extraversion = 12,
    Intraversion = 40)

然后我们重塑数据并添加总计 100% 的列

library(tidyverse)
df <- df %>%
    gather(key, val) %>%
    mutate(
        key = factor(key, rev(unique(key))),
        Total = 100)

我们定义了一个方便的函数，可以在“进度条”内生成文本

format_value <- function(key, val) {
    qual <- c("very low", "low", "average", "high", "very high", "max")
    sprintf(
        "%s - %ith percentile - %s",
        key, val, qual[findInterval(val, seq(0, 100, by = 20))])
}

现在我们准备好绘制

ggplot(df, aes(key, val)) +
    geom_col(fill = "forestgreen") +
    geom_col(aes(y = Total), alpha = 0.5, colour = "black") +
    geom_text(
        aes(y = 5, label = format_value(key, val)),
        hjust = 0,
        fontface = "bold",
        colour = "white") +
    coord_flip() +
    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(),
        panel.background = element_blank())