【R】数据相关性的可视化

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

r 复制代码
.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()

输入:

输出:

相关推荐
黑客老陈2 分钟前
面试经验分享 | 北京渗透测试岗位
运维·服务器·经验分享·安全·web安全·面试·职场和发展
橘子师兄3 分钟前
如何在自己的云服务器上部署mysql
运维·服务器·mysql
@泽栖10 分钟前
Docker 常用命令
运维·服务器·docker
黑子哥呢?1 小时前
Linux---防火墙端口设置(firewalld)
linux·服务器·网络
鲁正杰2 小时前
在一个服务器上抓取 Docker 镜像并在另一个服务器上运行
运维·服务器·docker
aherhuo3 小时前
基于openEuler22.09部署OpenStack Yoga云平台(一)
linux·运维·服务器·openstack
Minxinbb3 小时前
MySQL中Performance Schema库的详解(上)
数据库·mysql·dba
WebDeveloper20013 小时前
如何使用美国域名中心US Domain Center和WordPress创建商业网站
运维·服务器·css·网络·html
檀越剑指大厂3 小时前
【Linux系列】Shell 脚本中的条件判断:`[ ]`与`[[ ]]`的比较
linux·运维·服务器
mmsx4 小时前
android sqlite 数据库简单封装示例(java)
android·java·数据库