001、基础绘图
library(gcookbook) # For the data set p <- ggplot(heightweight, aes(x = ageYear, y = heightIn, colour = sex)) + geom_point() p ## 基础绘图
002、添加直线
p + geom_hline(yintercept = 60) + geom_vline(xintercept = 14) ## 添加直线
003、调整颜色及粗细
p + geom_hline(yintercept = 60, colour = "red", lwd = 3) ## 调整颜色、粗细
003_02、
p + geom_hline(yintercept = 60, colour = "red", lwd = 3, linetype = "dashed") ## 调整线条类型
004、增加斜线，控制截距和斜率
p + geom_abline(intercept = 37.4, slope = 1.75) ## 增加斜线，控制截距和斜率
005、 增加箭头
p <- ggplot(subset(climate, Source == "Berkeley"), aes(x = Year, y = Anomaly10y)) + geom_line() p + annotate("segment", x = 1850, xend = 1820, y = -0.8, yend = -0.95, colour = "blue", size = 1, arrow = arrow()) ## 增加箭头
006、 增加箭头
p + annotate("segment", x = 1950, xend = 1980, y = -0.25, yend = -0.25, arrow = arrow(ends = "both", angle = 70, length = unit(0.2, "cm"))) ## 增加箭头
007、 添加矩形
library(gcookbook) p <- ggplot(subset(climate, Source == "Berkeley"), aes(x = Year, y = Anomaly10y)) + geom_line() ## 基础绘图 p p + annotate("rect", xmin = 1950, xmax = 1980, ymin = -1, ymax = 1, alpha = 0.1, fill = "blue") ## 添加矩形， 设置透明度，填充色
。