R语言绘制累计积分密度图(笔记)

该代码段使用R语言的readxl库读取Excel数据,然后利用ggplot2库创建累积积分密度图,分别展示了Mapped和UnmappedReads的分布情况,通过stat_ecdf函数绘制了累积分布函数图,并对坐标轴、颜色、图例等进行了详细定制。
摘要由CSDN通过智能技术生成

绘制累积积分密度图code

######
######数据sum1_excel.xls
install.packages("readxl")
library(readxl)
sum_excel_data<-read_excel("路径.xls",col_names=TRUE)

temp_df<-as.data.frame(sum_excel_data)
temp_mt<-as.matrix(sum_excel_data)
sum_excel_data
xxx_data<-temp_df[,c(8,9,28,29)]
colnames(xxx_data)<-c("mapped reads number","mapped reads rate","unmapped reads number","unmapped reads rate")
ggplot(xxx_data, aes(x = xxx_data[,4])) + geom_density(colour = "cadetblue3")
group_mapped<-rep(c("Mapped"),185)
xxx_combine_mapped<-group_mapped
xxx_combine_mapped<-cbind(xxx_combine_mapped,temp_df[,c(8,9)])
group_unmapped<-rep(c("Unmapped"),185)
xxx_combine_unmapped<-group_unmapped
xxx_combine_unmapped<-cbind(group_unmapped,temp_df[,c(28,29)])
xxx_temp<-xxx_combine_

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值