R语言log10处理基因表达量

setwd("F:/000/heatmap/PLC")
library(xlsx)
data_PLC_HF <- read.xlsx2(file = "PLC.xlsx",sheetIndex = 2)
data_PLC_HF
rownames(data_PLC_HF) = data_PLC_HF[,1]

data_PLC_HF <- data_PLC_HF[,-1]
data_PLC_HF <- apply(data_PLC_HF, 2, as.numeric)
data_PLC_HF <- as.matrix(data_PLC_HF)
##对data里的内容进行log10对数转换，一条命令即可
log_data2<-log10(data_PLC_HF+1)
log_data2
#导出数据为txt文件
write.table(log_data2, "F:/000/heatmap/PLC/Data_log10_PLC_HF.txt")
write.xlsx(log_data2, "F:/000/HEATMAP/PLC/Data_log10_PLC_HF.xlsx")
#FPKM数据
data_PLC_FPKM <- read.xlsx2(file = "PLC.xlsx",sheetIndex = 1)
data_PLC_FPKM
rownames(data_PLC_FPKM) = data_PLC_FPKM[,1]

data_PLC_FPKM <- data_PLC_FPKM[,-1]
data_PLC_FPKM <- apply(data_PLC_FPKM, 2, as.numeric)
data_PLC_FPKM <- as.matrix(data_PLC_FPKM)
##对data里的内容进行log10对数转换，一条命令即可
log_data1<-log10(data_PLC_FPKM+1)
log_data1
#导出数据为txt文件
write.table(log_data1, "F:/000/heatmap/PLC/Data_log10_PLC_FPKM.txt")
write.xlsx(log_data1, "F:/000/HEATMAP/PLC/Data_log10_PLC_FPKM.xlsx")

data_PLC_HNNC <- read.xlsx2(file = "PLC.XLSX",sheetIndex = 3)
data_PLC_HNNC
row.names(data_PLC_HNNC) = data_PLC_HNNC[,1]
data_PLC_HNNC <- data_PLC_HNNC[,-1]
data_PLC_HNNC <- apply(data_PLC_HNNC,2,as.numeric)
data_PLC_HNNC <- as.matrix(data_PLC_HNNC)
log_data3 <- log10(data_PLC_HNNC+1)
log_data3
write.table(log_data3,"F:/000/HEATMAP/PLC/Data_log10__PLC_HNNC.txt")
write.xlsx(log_data3, "F:/000/HEATMAP/PLC/Data_log10_PLC_HNNC.xlsx")

data_PLC_YZ <- read.xlsx2(file = "PLC.XLSX",sheetIndex = 5)
data_PLC_YZ
row.names(data_PLC_YZ) = data_PLC_YZ[,1]
data_PLC_YZ <- data_PLC_YZ[,-1]
data_PLC_YZ <- apply(data_PLC_YZ,2,as.numeric)
data_PLC_YZ <- as.matrix(data_PLC_YZ)
log_data5 <- log10(data_PLC_YZ+1)
log_data5
write.table(log_data5,"F:/000/HEATMAP/PLC/Data_log10_PLC_YZ.txt")
write.xlsx(log_data5, "F:/000/HEATMAP/PLC/Data_log10_PLC_YZ.xlsx")

data_PLC_ZJ <- read.xlsx2(file = "PLC.XLSX",sheetIndex = 4)
data_PLC_ZJ
row.names(data_PLC_ZJ) = data_PLC_ZJ[,1]
data_PLC_ZJ <- data_PLC_ZJ[,-1]
data_PLC_ZJ <- apply(data_PLC_ZJ,2,as.numeric)
data_PLC_ZJ <- as.matrix(data_PLC_ZJ)
log_data4 <- log10(data_PLC_ZJ+1)
log_data4
write.table(log_data4,"F:/000/HEATMAP/PLC/Data_log10_PLC_ZJ.txt")

library(xlsx)
write.xlsx(log_data4, "F:/000/HEATMAP/PLC/Data_log10_PLC_ZJ.xlsx")