8.2 散点图

8.2.1 问题

你想要创建一个散点图。

8.2.2 方案

假设下面是你的数据：

  1. set.seed(955)
  2. # 给数据添加一些随机噪声
  3. dat <- data.frame(xvar = 1:20 + rnorm(20, sd = 3), yvar = 1:20 + 
  4.   rnorm(20, sd = 3), zvar = 1:20 + rnorm(20, sd = 3))
  6. head(dat)
  7. #>     xvar     yvar     zvar
  8. #> 1 -4.252  3.47316 -2.97807
  9. #> 2  1.702  0.00594 -1.16183
  10. #> 3  4.323 -0.09425  4.85517
  11. #> 4  1.781  2.07281  4.65079
  12. #> 5 11.537  1.21544 -0.06614
  13. #> 6  6.672  3.60811  6.24350

8.2.2.1 基本的散点图

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

8.2 散点图 - 图1

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

8.2 散点图 - 图2

8.2.2.2 散点图矩阵

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

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

8.2 散点图 - 图3

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

8.2 散点图 - 图4

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

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