ggplot2：geom_ribbonの色の動作を塗りつぶします

Question

ggplot2でリボンをカラーリングしようとしています。 geom_ribbonを使用する場合は、yminとymaxと塗りつぶしの色を指​​定できます。現在は、yminとymaxの間にあるすべてのものに、上限または下限に関係なく着色しています。 （インターネットから変更）

例：

library("ggplot2") 
# Generate data (level2 == level1) 
huron <- data.frame(year = 1875:1972, level = as.vector(LakeHuron), level2 = as.vector(LakeHuron)) 

# Change Level2 
huron[1:50,2] <- huron[1:50,2]+100 
huron[50:90,2] <- huron[50:90,2]-100 

h <- ggplot(huron, aes(year)) 

h + 
    geom_ribbon(aes(ymin = level, ymax = level2), fill = "grey80") + 
    geom_line(aes(y = level)) + geom_line(aes(y=level2)) 

このチャートになります：

私は異なる色で、領域、（YMIN> YMAX）を充填したいです（ymin < ymax）よりも大きい。私の実際のデータには、輸出と輸入の価値があります。そこでは、輸出が輸入グリーンより高い地域を色付けしたいと思います。輸入が輸出よりも大きいのは、リボンを赤にしたいのです。

代替：私は、geom_ribbonに領域を塗りつぶしたいと思います。ここで、ymax> yminです。

これはどのように行われたのですか？

ありがとうございました。

Answer 1

別の列を手動で作成する必要がないオプションは、aes(fill =内のロジックを実行することです。

## fill dependent on level > level2 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = level > level2)) + 
    geom_line(aes(y = level)) + geom_line(aes(y=level2)) + 
    scale_fill_manual(values=c("red", "green"), name="fill") 

それとも、あなただけの、真であることという条件に基づいて記入したい場合は

## fill dependent on level > level2, no fill otherwise 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = ifelse(level > level2, TRUE, NA))) + 
    geom_line(aes(y = level)) + geom_line(aes(y=level2)) + 
    scale_fill_manual(values=c("green"), name="fill") 

私は補間塗りつぶしの欠如を前提とは何かを持っているようですggplot2のバージョンとは、@ beetrootのコードで同じことが起こるので、

## @beetroot's answer 
huron$id <- 1:nrow(huron) 
huron$group <- ifelse(huron$id <= 50, "A", "B") 

h <- ggplot(huron, aes(year)) 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = group)) + 
    geom_line(aes(y = level)) + geom_line(aes(y = level2))  

aes(fill =内のロジックなしでそのコードを実行しているとき、私はManuKの画像出力@得ます。

Answer 2

塗りつぶしの色を指​​定するために使用できるデータにグループ化変数を追加できます。しかし、問題は、2つの線が交わる点であり、ギャップを防ぐために両方のグループに含まれる必要があるからです。

だから、最初にこの行に..

huron[huron$level == huron$level2,] 

> huron[huron$level == huron$level2,] 
    year level level2 
50 1924 577.79 577.79 
... 

を見つけて、もう一度データに追加します。

huron <- rbind(huron, huron[huron$year == 1924,]) 
huron <- huron[order(huron$year),] 

次に行インデックスに基づいて、id列を追加し、ベースのグループを設定します

huron$id <- 1:nrow(huron) 
huron$group <- ifelse(huron$id <= 50, "A", "B") 

h <- ggplot(huron, aes(year)) 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = group)) + 
    geom_line(aes(y = level)) + geom_line(aes(y = level2)) 

：1924年の行番号に

Answer 3

私はfill非補間としていた問題を中心に取得、あなたが2つ（またはn）リボン

h <- ggplot() + 
    geom_ribbon(data = huron[huron$level >= huron$level2, ], aes(x = year, ymin = level, ymax = level2), fill="green") + 
    geom_ribbon(data = huron[huron$level <= huron$level2, ], aes(x = year, ymin = level, ymax = level2), fill="red") + 
    geom_line(data = huron, aes(x = year, y = level)) + 
    geom_line(data = huron, aes(x = year, y = level2)) 
h 

あなたはaes(fill =で使用するすべての条件を使用することができますし、それを強制しようとしています実際のところどこにデータが当てはまるように見えますか？私はこれがggplot2バグだとは思わないが、これは予想される動作だと思う。