如何解决带R的Pheatmap中的对数比例
my_aroma_col:
和my_sample_col:
我想使用pheatmap进行缩放,该映射从零开始,下一个值为10 ^ 5、10 ^ 6、10 ^ 7、10 ^ 8。 这是带有上面提到的示例的图:
我使用了以下代码:
library(pheatmap)
my_data <- read.csv2("C:/Users/cikhote/Desktop/Meu PC 12.09/Thèse Caroline 2/Article 4 - Aromes cheese-agar/Article Tables and Figures/Heatmap Aromes/91_molec.csv",dec=".",stringsAsFactors = FALSE,header = TRUE,row.names = "Name")
my_matrix <- as.matrix (my_data)
my_aroma_col <- read.csv2("C:/Users/cikhote/Desktop/Meu PC 12.09/Thèse Caroline 2/Article 4 - Aromes cheese-agar/Article Tables and Figures/Heatmap Aromes/91_aroma_col.csv",row.names = "Name")
my_sample_col <- read.csv2("C:/Users/cikhote/Desktop/Meu PC 12.09/Thèse Caroline 2/Article 4 - Aromes cheese-agar/Article Tables and Figures/Heatmap Aromes/sample_col.csv",row.names = "Sample")
annotation_colors = list(
Genera = c(Control= "darkgrey",Halomonas="darkorange",Pseudoalteromonas="darkgreen",Psychrobacter="blue"),Origin = c(Control= "darkgrey",Cheese="gold",Environmental="skyblue1",Food="orchid"),Class = c(Alcohols ="beige",Aldehydes ="lightpink","Carboxylic acids" ="olivedrab1",Esters ="lightblue2",Ketones ="plum1",Pyrazines ="peachpuff","Sulphur Compounds"="tan3",Others = "black"))
my_matrix[my_matrix == 0] <- NA
windows()
pheatmap(my_matrix,cluster_rows=FALSE,cutree_cols = 8,annotation_row = my_aroma_col,annotation_col = my_sample_col,annotation_colors = annotation_colors,fontsize = 7,angle.col=90)
有人知道该怎么做吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。