R數(shù)據(jù)可視化—ggplot2包第1

【】和幻燈片為煉數(shù)成金網(wǎng)絡(luò)課程的教程以外范圍散播，違者將可能被法律和經(jīng)濟(jì)課程詳情

2

3具有理論基礎(chǔ)的圖形包，基于《theGrammarofGraphics》(Wilkinson,2005)，這也是它名稱(chēng)的由來(lái)

4

5thegrammarof主要觀(guān)點(diǎn)：astatisticalgraphicisamap fromdatatoaestheticattributes(colour,shape,size)ofgeometricobjects(points,lines,bars)基本概念：數(shù)據(jù)（Data）和（Map），標(biāo)度（Scale），幾何對(duì)象（Geometric））（Layer）

6ggplot2vsR

7Grid包。PaulMurrell在2000年基于他之前在攻讀博士

8

9 qplotvs

qplot(carat,price,data=

qplot(log(carat),log(price),data=

vsqplot(carat,x*y*z,data=

set.seed(1410)#Makethesamplereproducibledsmall<-diamonds[sample(nrow(diamonds),100),]qplot(carat,price,data=dsmall,colour=color)qplot(carat,price,data=dsmall,shape=

Alphaqplot(carat,price,data=diamonds,alpha=I(1/10))qplot(carat,price,data=diamonds,alpha=I(1/100))qplot(carat,price,data=diamonds,alpha=

geompathgeomline=“geombar

qplot(carat,price,data=dsmall,geom=c("point",qplot(carat,price,data=diamonds,geom=c("point",

qplot(carat,price,data=dsmall,geom=c("point","smooth"),span=qplot(carat,price,data=dsmall,geom=c("point","smooth"),span=

qplot(carat,price,data=dsmall,geom=c("point","smooth"),method="gam",formula=y~s(x))qplot(carat,price,data=dsmall,geom=c("point","smooth"),method=formula=y~s(x,bs=

qplot(color,price/carat,data=diamonds,geom=

qplot(color,price/carat,data=diamonds,geom=

qplot(color,price/carat,data=diamonds,geom="jitter",alpha=I(1/5))qplot(color,price/carat,data=diamonds,geom="jitter",alpha=I(1/50))qplot(color,price/carat,data=diamonds,geom="jitter",alpha=I(1/200))

qplot(carat,data=diamonds,geom=

qplot(carat,data=diamonds,geom="histogram",binwidth=1,xlim=c(0,3))qplot(carat,data=diamonds,geom="histogram",binwidth=0.1,xlim=c(0,3))qplot(carat,data=diamonds,geom="histogram",binwidth=0.01,xlim=c(0,3))

qplot(carat,data=diamonds,geom="histogram",fill=

qplot(carat,data=diamonds,geom=

qplot(carat,data=diamonds,geom="density",colour=

qplot(color,data=diamonds,geom=

qplot(color,data=diamonds,geom="bar",weight=carat)+

qplot(date,unemploy/pop,data=economics,geom=

year<-function(x)as.POSIXlt(x)$year+qplot(unemploy/pop,uempmed,data=economics,geom=c("point",

qplot(unemploy/pop,uempmed,data=economics,geom="path",colour=year(date))+scale_area()

qplot(carat,data=diamonds,facets=color~.,geom="histogram",binwidth=0.1,xlim=c(0,3))

xlim,xlab,

xlab,qplot(carat,price,data=dsmall,xlab="Price($)",ylab="Weight(carats)",main="Price-weightrelationship")

xlim,qplot(carat,price/carat,data=dsmall,ylab=expression(frac(price,carat)),xlab="Weight(carats)",main="Smalldiamonds",xlim=c(.2,1))

qplot(carat,price,data=dsmall,log=

qplotvsI

Dataguru（煉數(shù)成金）是專(zhuān)業(yè)數(shù)據(jù)分析，提供教育，