廿TT

譬如水怙牛過窓櫺 頭角四蹄都過了 因甚麼尾巴過不得

2015-08-29から1日間の記事一覧

[ggplot2]折れ線グラフを基準値の上下で塗りつぶす

library(ggplot2) ybar <- mean(lh) lh2 <- c(ybar,lh,ybar) df4plot <- data.frame(time=1:length(lh2), lh=lh2) df4plot$lower <- ifelse(lh2<=ybar,lh2,ybar) ggplot(df4plot,aes(x=time,y=lh)) + geom_line() + geom_polygon(aes(x=time, ymin=lower,yma…