R语言画图——添加数学表达式和R2（Ⅱ）

R语言画图——添加数学表达式和R2（Ⅱ）

前言

胸卡没有想到随手写的博客竟然得到了那么多的关注！

一天的访问量直接破千，而且还得到了大神的鼓励！（激动）

估计大家是被这个标题吸引。（哈哈）

果然，天下苦R添加数学表达式久矣。

然而，第二篇博客还有很多细节没有完善，这次附上代码和精讲。

以后，胸卡会分享平时画图的一些小技巧，欢迎喜欢R语言的朋友一起交流。

那我们直接进入正题！

正文

一般我们在R上使用 geom_smooth()函数来添加一系列的平滑曲线。

但是某些参考书给出的方法实在是有限，而且超级不好用。

胸卡在初次使用R作图的时候也是被搞得很难受，找了好久的代码。

这次，直接使用stat_function()函数完成作图。

首先，给出代码：

a <- c(1, 2, 3, 4, 5)
b <- c(5, 4, 3, 2, 1)

c <- data.frame(a, b)

library(ggplot2)

p <- ggplot(data = c, aes(x = a, y = b)) + 
        geom_point() + 
        geom_smooth(method = "lm", color = "red")

p

图1如下：