带R的Pheatmap中的对数比例

问题描述

my_data看起来像：

my_aroma_col：

和my_sample_col：

我想使用pheatmap进行缩放，该映射从零开始，下一个值为10 ^ 5、10 ^ 6、10 ^ 7、10 ^ 8。 这是带有上面提到的示例的图：

enter image description here

我使用了以下代码：

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 (将#修改为@）