R語言進階—數據展現第6

【】和幻燈片為煉數成金網絡課程的教程以外范圍散播，違者將可能被法律和經濟

2

3

4

5main="SummaryofCopper(Cu)concentrationsmain="SummaryofCopper(Cu)concentrationsby

6boxplot(Cu~Source,data=main="SummaryofCopper

7boxplot(Cu~Source,data=metals,main="SummaryofCopper

8main="SummaryofmetalconcentrationsbySite(without

9main="Summaryofmetal

border="white",col="black",boxwex=0.3,medlwd=1,whiskcol="black",staplecol="black",main="SummaryofmetalconcentrationsbySite")

range=0,border="white",col=boxwexmain="SummaryofmetalconcentrationsbySite\n

xaxt="n",border="white",col="black",boxwex=0.3,medlwd=1,whiskcol="black",main="SummaryofmetalconcentrationsbySite")

border="white",col="black",boxwex=main="Summaryofmetal

border="white",col="black",boxwex=0.3,main="SummaryofCopperconcentrations",labels=c("Below0","0to40","40to80","Above

border="white",col="black",boxwex=0.3,main="SummaryofCopperconcentrations","to",as.character(cuts[k+1])))}}

f=cut(y,border="white",col="black",boxwex=0.3,main="SummaryofCopperconcentrations",xlab="Concentrationranges",las=1)clabels=as.character(levels(f))}

#Setmarginsforthepar(mar=breaks=breaks,main="SalesHeatMap")

par(mar=xlab="",ylab="",xaxt="n")

layout(matrix(data=c(1,2),nrow=1,ncol=2),widths=c(8,1),par(mar=

text(x=1:nrow(data_matrix)+0.75,y=par("usr")[4]+1.25,srt=45,adj=1,labels=rownames(data_matrix),xpd=TRUE)#Colorpar(mar=

"FieldGoalsMade","FieldGoals"FieldGoalPercentage","FreeThrows"FreeThrowsAttempted","FreeThrowPercentage","ThreePointersMade","ThreePointersAttempted","ThreePointPercentage","OffensiveRebounds","Blocks","Turnovers","Fouls")par(mar=#Heatmap

#Xaxissrt=45,adj=0,labels=xpd=TRUE,cex=0.85)#Yaxislabelscol="white",las=1,cex.axis=0.85)#Whiteseparatinglines#Graph"NBApergameperformanceoftop50corers",

Dataguru（煉數成金）是專業數據分析，提供教育，，內容，社區，，聯網的打破時空限制，把天南地北志同道合的朋友組織在一起交流學習，