《深入浅出数据分析》PDF下载地址：

https://libgen.rs/book/index.php?md5=CD10327D10DED128EF54E7687550394B

需要梯子，进去之后点 “this mirror”

书中源数据下载地址：

链接:https://pan.baidu.com/s/1tBp4BRdsbDezJIUVFnteVA?pwd=7k7k 
提取码:7k7k

R程序下载地址：

https://mirrors.bfsu.edu.cn/CRAN/

目录

第九章 直方图：数学的形状

第十章 回归：预测

第十一章 误差：合理误差

第十二章 相关数据：你能关联吗？

第十三章 整理数据：井然有序

更新时间：

2023/03/12

第九章 直方图：数学的形状

setwd("源数据路径")  #设置/更改数据加载路径

提示：R中路径索引只能使用/不能使用\，用\提示错误，需要将\更改为/

employees <-read.csv("hfda_ch09_employees.csv",header=TRUE)  #读取数据文件并赋值给对象 employees

“<-”  #赋值符

employees   #显示表的全部数据

hist(employees$received,breaks=50)  #绘制直方图，breaks=区间数

sd(employees$received)  #查看标准偏差

summary(employees$received)  #汇总统计值

提示：1st Qu.  #上分位数      3rd Qu.  #下分位数

X11()  #创建新的绘图（不执行该代码，下次绘图将覆盖上次绘图结果）

#绘制加薪数据的子图

hist(employees$received[employees$year == 2007],breaks = 50)

hist(employees$received[employees$year == 2008],breaks = 50)

hist(employees$received[employees$gender == "F"],breaks = 50)

hist(employees$received[employees$gender == "M"],breaks = 50)

hist(employees$received[employees$negotiated == FALSE],breaks = 50)

hist(employees$received[employees$negotiated == TRUE],breaks = 50)