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("DAF2 vs GDAF2","DAF5 vs GDAF5","DAF11 vs GDAF11","DAF16 vs GDAF16")mydata=as.data.frame(melt(mydata))p<-ggplot(mydata,aes(x = factor(Var2,levels = c("DAF2 vs GDAF2","DAF5 vs GDAF5","DAF11 vs GDAF11","DAF16 vs GDAF16"),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("Number of DEGs") #输出图片pdf(file="DEGNum.pdf", height=7, width=7)print(p)dev.off()

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