R 如何向ggplot条形图添加图例，每个条形图使用单独的颜色

我不熟悉ggplot，所以希望这是一个简单的问题。我已经制作了一个堆叠的条形图，每个部分的颜色以col表示：

a <- data.frame(var = rep(seq(1:2),2), val = seq(1:4))
col <- c('red', 'blue', 'green', 'red')

ggplot(a, aes(x = var, y = val)) +
    geom_bar(stat = 'identity', fill = col)

你很接近

将

fill=col

移动到

aes

：

library(ggplot2)
a <- data.frame(var = rep(seq(1:2),2), val = seq(1:4))
col <- rainbow(n = 4)
ggplot(a, aes(x = var, y = val, fill = col)) +
    geom_bar(stat = 'identity') +
    scale_fill_manual(values = col)

库（ggplot2）
另请注意，您可以使用
geom\u col
。谢谢@PoGibas。对不起，梅的问题不够清楚。我编辑了它。希望现在更清楚了
library(ggplot2)
a <- data.frame(var = rep(seq(1:2),2), val = seq(1:4))
col <- rainbow(n = 4)
ggplot(a, aes(x = var, y = val, fill = col)) +
    geom_bar(stat = 'identity') +
    scale_fill_manual(values = col)