一千零一技|相关性分析及其可视化：copy&paste，搞定

.libPaths(c("/bioinfo/home/software/miniconda3/envs/R4.0/lib/R/library"))
#data("mtcars")
library("PerformanceAnalytics")
# pdf("test.pdf")
# my_data <- mtcars[, c(1,3,4,5,6,7)]
# print (head(my_data))
# chart.Correlation(my_data, histogram=TRUE, pch=19)
# dev.off()

args    <- commandArgs(trailingOnly = TRUE)
infile  <- args[1]
outdir <- args[2]
names<-basename(infile)
df <- read.delim(infile, header = T, stringsAsFactors = F,row.names = NULL)
#df <- df[,-ncol(df)]
print (df)
index <- row.names(df)
print(index)
# q()
# data_T=as.data.frame((data))
# df1 = anno_col[,"types",drop=FALSE]
pdf(paste0(outdir,"/",names,".correlation_chart.pdf"))
chart.Correlation(df, histogram=TRUE, pch=19,method='spearman')
dev.off()

输入：

输出：