R散点图

散点图是一种用来探寻两个连续变量之间关系的工具。在R语言中，我们可以通过ggplot2包来制作各种优美的散点图。

安装ggplot2包

要使用ggplot2包，需要先安装它。可以通过如下命令安装：

install.packages("ggplot2")

制作散点图

制作散点图需要明确两个要素：x轴数据和y轴数据。假设我们有如下数据：

set.seed(123)
x <- rnorm(100)
y <- 2 * x + rnorm(100)
mydata <- data.frame(x, y)

下面代码展示了如何用ggplot2包制作一个基本的散点图：

library(ggplot2)
ggplot(mydata, aes(x, y)) +
  geom_point()

以上代码中，ggplot()函数用来指定数据和图形对象，aes()函数用来指定x轴和y轴数据。最后的geom_point()函数则用来制作散点图。

改变散点的形状、颜色和大小

我们可以通过geom_point()函数的shape、color和size参数来改变散点的形状、颜色和大小。下面代码展示了如何将散点的形状改为三角形，颜色改为蓝色，大小改为3：

ggplot(mydata, aes(x, y)) +
  geom_point(shape=3, color="blue", size=3)

加入趋势线

我们可以用stat_smooth()函数来加入一条拟合曲线，用于展示x轴和y轴数据之间的线性关系。下面代码展示了如何将拟合曲线的颜色改为红色：

ggplot(mydata, aes(x, y)) +
  geom_point() +
  stat_smooth(method="lm", color="red")

注意到这里传递了一个method="lm"参数，用于指定拟合曲线使用线性回归方法。

加入标题和坐标轴标签

我们可以用ggtitle()函数和xlab()、ylab()函数来加入标题和坐标轴标签。下面代码展示了如何添加一个标题，以及x轴和y轴的标签：

ggplot(mydata, aes(x, y)) +
  geom_point() +
  ggtitle("My Scatterplot") +
  xlab("X Data") +
  ylab("Y Data")

以上代码中，ggtitle()函数用来添加标题，xlab()和ylab()函数用来添加x轴和y轴的标签。