R ggplotは特定の値の色を設定します

Question

私は1つの変数で複数のプロットを分割し、各プロットで別の変数に基づいて色分けします。

set.seed(12345) 
dates = seq(as.Date("2000-01-01"), as.Date("2016-01-01"), by = 1) 
dd = data.table(date = dates, value = rnorm(length(dates))) 
dd[, year := lubridate::year(date)] 
dd[, c := cut(value, c(-Inf, -3, 3, Inf))] 

for (thisyear in 2000:2015) { 
    ggplot(dd[year == thisyear]) + 
    geom_ribbon(aes(x = date, ymin = -Inf, ymax = Inf, fill = c), alpha = 0.1) 
} 

dd[, length(unique(c)), by = year] 

    year V1 
1: 2000 1 
2: 2001 2 
3: 2002 2 
4: 2003 3 
5: 2004 3 
.... 

ここで、毎年同じユニークなカット値の長さを持つわけではないので、異なるプロットの色は矛盾します。さらに悪いことに、1年にすべて(-Inf,3]値（当然ありそうもない）があり、もう1年がすべて[3,Inf)の値を持つ場合、それらは両方とも2つのプロットで赤色になります。

(-Inf, 3]は常に青色で、(-3,3]は常に緑色になるように指定することはできますか？

Answer 1

使用する色を手動で指定する方法の1つは、使用するプロットの色を指定してデータフレームに列を作成することです。例えば

：

# scatter plot 
dd$color <- ifelse(dd$value <= 3, 'blue', 'green') 
ggplot(dd, aes(date, value)) + geom_point(colour=dd$color) 

# ribbon plot 
thisyear <- '2001' 
dd_year <- dd[year == thisyear,] 
ggplot(dd_year, aes(date, group=color, colour=color)) + 
    geom_ribbon(aes(ymin=value - 1, ymax=value + 1, fill=color), alpha=0.5) + 
    scale_fill_manual(values=unique(dd_year$color)) + 
    scale_color_manual(values=unique(dd_year$color)) 

これはすべての点< = 3が青色に着色され、残りのものは緑色をもたらすであろう。そこここに緑色ます唯一のデータポイントがあるだけで、それは次のようになりますおそらく以来

は、最も興味深い例：

Answer 2

あなたはに渡す色の名前のベクトルを作成することができますscale_fill_manual。これにより、各グループの色を選択することができます。また、各プロットがグループ間で同じ色になるようにすることもできます。

colors = c("blue", "green", "red") 
names(colors) = levels(dd$c) 

(-Inf,-3] (-3,3] (3, Inf] 
    "blue" "green"  "red" 

今、同じプロットですが、scale_fill_manualが追加されました。

for (thisyear in 2000:2015) { 
    print(ggplot(dd[year == thisyear]) + 
     geom_ribbon(aes(x = date, y = value, ymin = -Inf, ymax = Inf, fill = c), alpha = 0.1) + 
     scale_fill_manual(values = colors)) 
}