第6周箱线图热力图-数据展现

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（炼数成金）是专业数据分析，提供教育，，内容，社区，，联网的打破时空限制，把天南地北志同道合的朋友组织在一起交流学习，