​​library(ggplot2)​​​ #必须先加载 ggplot 包 
​​​data(diamonds)​​ #加载钻石数据集，ggplot 包自带该数据集 

library(ggplot2)
data(diamonds)
summary(diamonds)
#可以输入 ?diamonds，以了解更多关于钻石数据集的信息。
?diamonds
diamonds$color

qplot(x=diamonds$price,data=diamonds,binwidth=20,ylim=c(0,600))

mean(diamonds$price)

summary(diamonds$price <500)
summary(diamonds$price <250)
summary(diamonds$price >=15000)

保存生成的图片

ggsave('priceHistogram.png')

str(diamonds)

qplot(x=cut,data=diamonds)

对不同品质的价格分类

qplot(x=price,data=diamonds)+facet_wrap(~cut)

by(diamonds$price,diamonds$cut,summary)

diamonds$cut: Fair
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    337    2050    3282    4359    5206   18574 
----------------------------------------------------------------------------------- 
diamonds$cut: Good
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    327    1145    3050    3929    5028   18788 
----------------------------------------------------------------------------------- 
diamonds$cut: Very Good
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    336     912    2648    3982    5373   18818 
----------------------------------------------------------------------------------- 
diamonds$cut: Premium
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    326    1046    3185    4584    6296   18823 
----------------------------------------------------------------------------------- 
diamonds$cut: Ideal
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    326     878    1810    3458    4678   18806 

p1<-qplot(x = price,data=diamonds)
p2<-qplot(x=log10(price+1),data=diamonds)
p3<-qplot(x=sqrt(price),data=diamonds)
grid.arrange(p1,p2,p3,ncol=1)
 

对cut分类的结果进行箱图显示

qplot(x=cut,y=price,data=diamonds,geom='boxplot')

qplot(x=cut,y=price,data=subset(diamonds,!is.na(cut)),geom='boxplot')

qplot(x=color,y=price,data=subset(diamonds,!is.na(color)),geom='boxplot')

 by(diamonds$price,diamonds$color,summary)
diamonds$color: D
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    357     911    1838    3170    4214   18693 
----------------------------------------------------------------------------------- 
diamonds$color: E
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    326     882    1739    3077    4003   18731 
----------------------------------------------------------------------------------- 
diamonds$color: F
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    342     982    2344    3725    4868   18791 
----------------------------------------------------------------------------------- 
diamonds$color: G
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    354     931    2242    3999    6048   18818 
----------------------------------------------------------------------------------- 
diamonds$color: H
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    337     984    3460    4487    5980   18803 
----------------------------------------------------------------------------------- 
diamonds$color: I
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    334    1120    3730    5092    7202   18823 
----------------------------------------------------------------------------------- 
diamonds$color: J
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    335    1860    4234    5324    7695   18710 

qplot(carat, price, data=diamonds, colour=color)

qplot(color, price/carat, data=diamonds, geom='boxplot')

qplot(color, price/carat, data=diamonds,        geom='boxplot',       alpha=I(1/5),       colour=color,       fill=color)

qplot(x=carat, data=diamonds, color=color,binwidth=1.01
      ,geom='freqpoly')

table(diamonds$carat)

qplot(x=carat, data=diamonds, color=color,binwidth=0.1
      ,geom='freqpoly')

这里取0.1

扰动点图

qplot(color, price/carat, data=data, geom='jitter', alpha=I(1/5))

tidyr - 用于重塑数据布局的包

dplyr - 用于帮助转换整洁的表格数据的包