R学习-- R中的绘图命令练习_使用r自带的数据集faithful绘制以下图形

1.绘制茎叶图

1.1使用测试数据faithful

attach(faithful)

1.2对eruptions做summary

summary(eruptions)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.600   2.163   4.000   3.488   4.454   5.100 

1.3得到eruptions数据的五数（最小值，第1,2,3分位数，最大值）

fivenum(eruptions)
[1] 1.6000 2.1585 4.0000 4.4585 5.1000

1.4绘制茎叶图

stem(eruptions)
  16 | 070355555588
  18 | 000022233333335577777777888822335777888
  20 | 00002223378800035778
  22 | 0002335578023578
  24 | 00228
  26 | 23
  28 | 080
  30 | 7
  32 | 2337
  34 | 250077
  36 | 0000823577
  38 | 2333335582225577
  40 | 0000003357788888002233555577778
  42 | 03335555778800233333555577778
  44 | 02222335557780000000023333357778888
  46 | 0000233357700000023578
  48 | 00000022335800333
  50 | 0370

2.绘制直方图

hist(eruptions, seq(1.6, 5.2, 0.2), prob=TRUE)

3.绘制核密度估计曲线

lines(density(eruptions, bw=0.1))

4.使用rug函数在X轴标记出元素出现的频数

rug(eruptions)

5.画出累计概率密度曲线

plot(ecdf(eruptions), do.points=FALSE, verticals=TRUE)

6.画出大于3的元素的累计概率密度曲线

long <- eruptions[eruptions > 3]
plot(ecdf(long), do.points=FALSE, verticals=TRUE)

7.画出正态分布概率密度曲线

x <- seq(3, 5.4, 0.01)
lines(long, pnorm(long, mean=mean(long), sd=sqrt(var(long))), lty=3)

8.绘制QQ图

par(pty="s")
qqnorm(long); qqline(long)

9.正态性检验函数

shapiro.test(x)
ks.test(long, "pnorm", mean = mean(long), sd = sqrt(var(long)))