第八期作业R语言绘制热图R002

真·科研狗 2017-10-10 18:37:11 阅读: 1566

DataOrigin=read.csv("E:/data.csv")#读入的是数据帧
DataMatrix=as.matrix(DataOrigin)#转变为矩阵（字符型）
RowName=DataMatrix[,1] #行名称
ColNameTemp=colnames(DataMatrix)
ColName=ColNameTemp[-1] #列名称

DataContent=matrix(as.numeric(DataMatrix),nrow=nrow(DataMatrix))#转变为矩阵（浮点型）

DataArea=DataContent[,-1]#去掉第一列
Data=na.omit(DataArea)#忽略空值
#heatmap.2(Data)
#heatmap.2(Data, dendrogram="col") #dendrogram控制聚类，row/col/none。也可以通过Rowv=TRUE/False Colv=TURE/False控制
#heatmap.2(Data, keysize=2)  ## 热图颜色直方图的大小
heatmap.2(
  Data,
  labRow = RowName,
  labCol = ColName,
  trace = "colum" #控制热图中间的水平和垂直 row/column/both
)

邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01