如何将ggplot barplot的图例添加到每个条的个别颜色

Question

我是ggplot的新手，所以希望这是一个简单的问题。我做了颜色的堆叠barplot在山坳给出各段：

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) 

，看起来像这样：

我怎么一个传说添加到情节？我试过

+ scale_fill_manual(name = 'legend', breaks = seq(1:4), values = col) 

Answer 1

你就近了！

移动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) 

你必须把它内aes为col是要映射到特定的审美（在这种情况下fill）变量。