本文是对R的tidyverse包自带数据集diamonds进行探索。
#数据科学第5章——探索性数据分析 EDA
library(tidyverse)
smaller <- diamonds %>% filter(carat<3)#抽取克拉<3的数据
ggplot(data = smaller,mapping = aes(x=carat,color = cut)) +
geom_freqpoly(binwidth = 0.1)#频率多边形图探索克拉、切割的数据量
max(diamonds$y)
a <- select(diamonds,x,y,z)#选取x,y,z,探索常规统计量
summary(a)
ggplot(data = a,mapping = aes(x)) +
geom_bar()
ggplot(data = smaller,mapping = aes(x=price))+
geom_histogram(binwidth = 1000)#直方图探索价格分布
count(diamonds[diamonds$carat==1,])
1558
count(diamonds[diamonds$carat