R语言怎么绘制柱状图

R语言怎么绘制柱状图

这篇文章主要讲解了“R语言怎么绘制柱状图”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“R语言怎么绘制柱状图”吧！

R语言代码：

library(reshape2)local({r<-getOption("repos");r["CRAN"]<-"http://mirrors.tuna.tsinghua.edu.cn/CRAN/";options(repos=r)})library(ggplot2)library(cowplot)library(RColorBrewer)library(Vennerable)brewer.pal(7,"Set1")display.brewer.all()setwd("D:/BaiduNetdiskDownload/report/6.DEG_Analysis/")getwd()##########################################################################批量读入相同后缀的文本文件，并且只截取第一列和最后一列files=list.files("./",pattern="*DEG\\.final.txt",recursive=T)data=lapply(files,function(fl){d=read.table(fl,header=TRUE,comment.char="",sep="\t",check.names=FALSE)[,c(1,18)]})#将数据整理成表格mydatamydata=sapply(data,function(d){table(d[,2])})colnames(mydata)<-c("DAF2vsGDAF2","DAF5vsGDAF5","DAF11vsGDAF11","DAF16vsGDAF16")mydata=as.data.frame(melt(mydata))p<-ggplot(mydata,aes(x=factor(Var2,levels=c("DAF2vsGDAF2","DAF5vsGDAF5","DAF11vsGDAF11","DAF16vsGDAF16"),ordered=T),y=value,fill=factor(Var1,levels=c("up","down"),ordered=T)))+geom_bar(stat="identity",width=0.5,position=position_dodge(width=0.6))+geom_text(aes(label=value),position=position_dodge(width=0.6),size=4,vjust=-0.25)+scale_fill_manual(values=c("#E41A1C","#377EB8","#4DAF4A"))+theme(legend.key=element_blank(),legend.title=element_blank(),axis.text.x=element_text(angle=60,vjust=0.5,hjust=0.5))+xlab("")+ylab("NumberofDEGs")#输出图片pdf(file="DEGNum.pdf",height=7,width=7)print(p)dev.off()

感谢各位的阅读，以上就是“R语言怎么绘制柱状图”的内容了，经过本文的学习后，相信大家对R语言怎么绘制柱状图这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是恰卡编程网，小编将为大家推送更多相关知识点的文章，欢迎关注！