8.2 散点图

8.2 散点图

8.2.1 问题

你想要创建一个散点图。

8.2.2 方案

假设下面是你的数据：

set.seed(955)
## 给数据添加一些随机噪声
dat <- data.frame(xvar = 1:20 + rnorm(20, sd = 3), yvar = 1:20 +
  rnorm(20, sd = 3), zvar = 1:20 + rnorm(20, sd = 3))

head(dat)
#>     xvar     yvar     zvar
#> 1 -4.252  3.47316 -2.97807
#> 2  1.702  0.00594 -1.16183
#> 3  4.323 -0.09425  4.85517
#> 4  1.781  2.07281  4.65079
#> 5 11.537  1.21544 -0.06614
#> 6  6.672  3.60811  6.24350

8.2.2.1 基本的散点图

## 使用向量 xvar 和 yvar 绘制点图
plot(dat$xvar, dat$yvar)

8.2 散点图 - 图1

## 跟上一句代码一致，但这里是用公式实现
plot(yvar ~ xvar, dat)
## 添加一条回归线
fitline <- lm(dat$yvar ~ dat$xvar)
abline(fitline)

8.2 散点图 - 图2

8.2.2.2 散点图矩阵

如果你想要比较多个变量，可以创建一个散点图矩阵。

## 一个散点图矩阵
plot(dat[, 1:3])

8.2 散点图 - 图3

## 添加回归线 在对角添加histogram/boxplot/density/qqplot
library(car)
#> Loading required package: carData
scatterplotMatrix(dat[, 1:3], diagonal = "histogram", smooth = FALSE)
#> Warning in applyDefaults(diagonal, defaults =
#> list(method = "adaptiveDensity"), : unnamed diag
#> arguments, will be ignored

8.2 散点图 - 图4

想要查看对应的相关矩阵，查看回归和相关分析。

想要可视化相关矩阵，查看相关矩阵。