仅更改一个面板中条形图的 colored颜色

发布于10月09日

下面是一个简单的代码，用于使用Facet_WRAP绘制条形图:

categories <- c("category 1", "category 2", "category 3")
groups <- c("A", "B", "C", "D")

df <- expand.grid(category = categories, group = groups)
df$value <- rnorm(12, 1, 0.5)

ggplot(df, aes(x = category,
               y = value)) + 
  geom_bar(stat = "identity") + 
  facet_wrap(~ group)

现在，我希望C组的条形为红色(仅用于C组).我该怎么做呢？

推荐答案

这与我链接的另一个问题非常相似.然而，您的 comments 表明，两者之间的联系并不清楚.关键是要意识到，您将 colored颜色设置为group，但您可以设置 colored颜色，也可以按同一列创建刻面.

定义您的 colored颜色 :

colors  <- rep("grey50", length(unique(df$group)))  |>
    setNames(unique(df$group))
colors["C"]  <- "red"


# `colors` is a named vector that looks like this:
#           A        B        C        D 
#    "grey50" "grey50"    "red" "grey50"

然后绘制将fill美学设置为group的曲线图，并使用scale_fill_manual()指定我们定义的colors:

ggplot(df, aes(
    x = category,
    y = value
)) +
    geom_bar(stat = "identity", aes(fill = group)) +
    scale_fill_manual(values = colors) +
    facet_wrap(~group)