geom_smoothの条件付き塗りつぶし

Question

私は、0を中心に変化する系列を分析しています。そして、ほとんどがポジティブであるかほとんどがマイナスである傾向のあるシリーズの部分があるかを見るために、私はgeom_smoothをプロットしています。滑らかな線の色を0よりも上か下かに依存させることが可能かどうか疑問に思っていました。以下は、私が作成しようとしているようなグラフを生成するコードです。

set.seed(5) 
r <- runif(22, max = 5, min = -5) 
t <- rep(-5:5,2) 
df <- data.frame(r+t,1:22) 
colnames(df) <- c("x1","x2") 
ggplot(df, aes(x = x2, y = x1)) + geom_hline() + geom_line() + geom_smooth() 

私は、平滑化値を計算DFにそれらを追加し、scale_color_gradientを使用して考えられるが、直接ggplotでこれを達成するための方法がある場合、私は思っていました。

Answer 1

あなたがゼロに近いいくつかのより多くのyの値を作成するために、「で滑らかに評価するポイント数を」増やすgeom_smoothでn引数を使用することができます。次にggplot_buildを使用して、ggplotオブジェクトから平滑化された値を取得します。これらの値はgeom_lineで使用され、元のプロットの上に追加されます。最後に、y = 0の値をgeom_hlineで上書きします。

# basic plot with a larger number of smoothed values 
p <- ggplot(df, aes(x = x2, y = x1)) + 
    geom_line() + 
    geom_smooth(linetype = "blank", n = 10000) 

# grab smoothed values 
df2 <- ggplot_build(p)[[1]][[2]][ , c("x", "y")] 

# add smoothed values with conditional color 
p + 
    geom_line(data = df2, aes(x = x, y = y, color = y > 0)) + 
    geom_hline(yintercept = 0) 

Answer 2

このような何か：

# loess data 
res <- loess.smooth(df$x2, df$x1) 
res <- data.frame(do.call(cbind, res)) 

res$posY <- ifelse(res$y >= 0, res$y, NA) 
res$negY <- ifelse(res$y < 0, res$y, NA) 

# plot 
ggplot(df, aes(x = x2, y = x1)) + 
    geom_hline() + 
    geom_line() + 
    geom_line(data=res, aes(x = x, y = posY, col = "green")) + 
    geom_line(data=res, aes(x = x, y = negY, col = "red")) + 
    scale_color_identity()