圖已經(jīng)做出來了！
但是要突出某一區(qū)域流炕，怎么辦？
geom_rect()/annotate(), geom_abline(),
geom_ribbon(), geom_area(),
geom_density(), geom_polygon(), ...
1. 規(guī)則陰影
- 兩平行線之間的陰影區(qū)
參考 ggplot2 - shade area between two vertical lines
library(ggplot2)
data(mtcars)
ggplot(mtcars, aes(x = drat, y = hp)) +
geom_line() +
geom_rect(aes(xmin=3, xmax=4.2, ymin=-Inf, ymax=Inf),fill='#FF3300',alpha = .02)
#annotate("rect", xmin = 3, xmax = 4.2, ymin=-Inf, ymax=Inf,fill='#FF3300', alpha = .02)
geom_rect_plot
- 兩相交直線(兩斜率不同直線)之間的陰影區(qū)--
geom_abline()
參考 geom_ribbon set slope & intercept
library(ggplot2)
df1 <- data.frame(x = 1:100, y = 2*(1:100))
ggplot(df1) +
geom_line(aes(x, y), linetype = 2) +
geom_abline(slope = seq(1.6, 2.4, 0.0001), color = "grey60", intercept = 0) +
geom_abline(slope = 2, intercept = 0) +
#coord_cartesian(ylim = c(0, 200), xlim = c(0, 100)) +
scale_x_continuous(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0))
geom_abline_plot
置信區(qū)間(參考下文
geom_ribbon())其他坠非。。果正。
參考 任意規(guī)則陰影?
- 拿一個來舉例--
geom_polygon
library(ggplot2)
df2 <- data.frame(x=1, y=1)
df_poly <- data.frame( x=c(-Inf, Inf, -Inf), y=c(-Inf, Inf, Inf))
ggplot(df2, aes(x, y)) +
geom_blank() +
geom_abline(slope=1, intercept=0) +
geom_polygon(data=df_poly, aes(x, y), fill="blue", alpha=0.2)
geom_polygon_plot
2. 不規(guī)則陰影
- 置信區(qū)間--
geom_ribbon()
參考 Legend with geom_line and geom_ribbon
library(ggplot2)
data(mtcars)
x <- mtcars$drat
y <- mtcars$hp
df3 <- data.frame(x=x, y=y, lower = (y+runif(32, -200, -100)), upper = (y+runif(32, 100, 200)))
ggplot(df3,aes(x = x, y = y)) +
geom_line() +
#geom_rect(aes(xmin=3, xmax=4.2, ymin=-Inf, ymax=Inf), fill='#FF3300', alpha = .02)
#annotate("rect", xmin = 3, xmax = 4.2, ymin=-Inf, ymax=Inf, fill='#FF3300', alpha = .2) +
geom_ribbon(aes(ymin=lower, ymax=upper, x=x), fill = "red", alpha = 0.3)
geom_ribbon_plot
- 線性擬合--
lm()
library(ggplot2)
ggplot(data = mtcars, aes(x = drat, y = hp)) +
#geom_smooth(color="red", formula = y ~ x) +
geom_smooth(method = "lm", #se=FALSE,
fill="#33CCCC",alpha=.25, formula = y ~ x) +
geom_point() +
scale_x_continuous("drat")
lm_fit
- 面積圖（曲線之間）--
geom_area()
參考地址找不到了就這個吧
library(ggplot2)
x <- seq(-7, 10, length = 200)
y1 <- dnorm(x, mean = 0,sd = 1)
y2 <- dnorm(x, mean = 3,sd = 2)
df4 <- data.frame(x, y1, y2)
ggplot(df4, aes(x = x)) +
geom_line(aes(y = y1), colour = 'blue') +geom_line(aes(y = y2), colour = 'red') +
geom_area(aes(y = pmin(y1, y2)), fill = 'gray60')
geom_area
后記
本來我只是想加一個兩個垂線之間的陰影就像第一種所示的那樣炎码，一搜搜到這么多的方法，那就
????迫皱。歉闰。????。卓起。學(xué)代碼????Ｐ履取！
分類不止如此既绩！方法也不止如此！按需求索还惠。饲握。。
更詳盡的作圖方法可以參考ggplot2高效實用指南 (可視化腳本蚕键、工具救欧、套路、配色)
PS:
三三兩兩 渾渾噩噩
愿歲月靜好且可期
2019/12/30 11:52
