如何將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）變量。