第12周书面作业
2013-07-17 17:06
176 查看
书面作业:
在课程资源中下载作业素材“WHO数据集”,选取10个你认为具有典型性的国家/地区和10项指标变量,画出热力图展示这10个国家各项指标的情况
解答:
#读数据
WHO <- read.csv("WHO.csv")
#选择10行10列
rows <- c("United Kingdom", "United States of America", "Turkey", "South Africa", "Singapore",
"Russia", "Nigeria", "Mexico", "China", "Japan")
cols <- c("Total_income",
"Adolescent_fertility_rate",
"Agricultural_land",
"Agriculture_contribution_to_economy",
"Aid_given",
"Aid_received",
"Aid_received_total",
"Arms_exports",
"Arms_imports",
"CO2_emissions")
rownames(WHO) <- WHO[,1]
data <- WHO[rows,cols]
data_matrix <- t(scale(data.matrix(data)))
pal=brewer.pal(6,"Blues")
par(mar = c(1,17,21,4),oma=c(0.2,0.2,0.2,0.2),mex=0.5)
#Heat map
image(x=1:nrow(data_matrix),y=1:ncol(data_matrix),
z=data_matrix,xlab="",ylab="",col=pal,axes=FALSE)
text(1:nrow(data_matrix), par("usr")[4] + 1,
srt = 30, adj = 0,labels = cols,
xpd = TRUE, cex=0.85)
#Y axis labels
axis(side=2,at=1:ncol(data_matrix),
labels=colnames(data_matrix),
col="white",las=1, cex.axis=0.85)
#White separating lines
abline(h=c(1:ncol(data_matrix))+0.5,
v=c(1:nrow(data_matrix))+0.5,
col="white",lwd=1,xpd=F)
#Graph Title
text(par("usr")[1]+5, par("usr")[4] + 12,
"10个国家10项指标热力图",
xpd=TRUE,font=2,cex=1.5)
在课程资源中下载作业素材“WHO数据集”,选取10个你认为具有典型性的国家/地区和10项指标变量,画出热力图展示这10个国家各项指标的情况
解答:
#读数据
WHO <- read.csv("WHO.csv")
#选择10行10列
rows <- c("United Kingdom", "United States of America", "Turkey", "South Africa", "Singapore",
"Russia", "Nigeria", "Mexico", "China", "Japan")
cols <- c("Total_income",
"Adolescent_fertility_rate",
"Agricultural_land",
"Agriculture_contribution_to_economy",
"Aid_given",
"Aid_received",
"Aid_received_total",
"Arms_exports",
"Arms_imports",
"CO2_emissions")
rownames(WHO) <- WHO[,1]
data <- WHO[rows,cols]
data_matrix <- t(scale(data.matrix(data)))
pal=brewer.pal(6,"Blues")
par(mar = c(1,17,21,4),oma=c(0.2,0.2,0.2,0.2),mex=0.5)
#Heat map
image(x=1:nrow(data_matrix),y=1:ncol(data_matrix),
z=data_matrix,xlab="",ylab="",col=pal,axes=FALSE)
text(1:nrow(data_matrix), par("usr")[4] + 1,
srt = 30, adj = 0,labels = cols,
xpd = TRUE, cex=0.85)
#Y axis labels
axis(side=2,at=1:ncol(data_matrix),
labels=colnames(data_matrix),
col="white",las=1, cex.axis=0.85)
#White separating lines
abline(h=c(1:ncol(data_matrix))+0.5,
v=c(1:nrow(data_matrix))+0.5,
col="white",lwd=1,xpd=F)
#Graph Title
text(par("usr")[1]+5, par("usr")[4] + 12,
"10个国家10项指标热力图",
xpd=TRUE,font=2,cex=1.5)
相关文章推荐
- 第12周作业(第八章)
- << Oracle高可用>>部分书面作业 - 第六课 Data Gaurd 概念和配置
- C++中国大学mooc网----西安交大计算机程序设计第12周作业
- 书面作业
- << Oracle高可用>>部分书面作业 - 第七课 Data Gaurd 设计和管理
- 第7周书面作业
- << Oracle高可用>>部分书面作业 - 第八课 Data Gaurd 故障分析和处理
- Python自然语言分析(第四期):第1课书面作业
- [leetcode]第12周作业
- 第11周书面作业
- << Oracle高可用>>部分书面作业 - 第九课 RAC+DG技术的应用
- 第12周作业1(LeetCode35)
- << Oracle高可用>>部分书面作业 - 第十课 Oracle Golden gate 概念和机制
- 第1周书面作业
- << Oracle高可用>>部分书面作业 - 第十一课 Oracle Golden gate 设计及应用
- << Oracle高可用>>部分书面作业 - 第十二课 Oracle 流技术(streams)
- << Oracle高可用>>部分书面作业 - 第十三课 Oracle高级复制
- 《道猿工作方案》(程序书面采访猿收藏)第一作业和数量的关系的个人的成功?
- 第12周作业2(LeetCoed26)
- Python自然语言分析(第四期):第2课书面作业