R语言绘柱状图_r语言柱状图代码-优快云博客

本文链接：https://blog.youkuaiyun.com/m0_75026369/article/details/127894106

本文介绍如何使用R语言从txt文件中读取数据，并根据数据生成柱状图的过程。主要内容包括设置工作目录、读取文件、数据统计、排序及输出结果到Excel文件等步骤。此外还详细说明了如何绘制柱状图并调整其样式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

输入txt为两列，对齐全是各个名字，或者输入一列名字

#设置工作目录
setwd("F:\\R\\02柱状图")

#读取输入文件
rt=read.table("input.txt", header=T, sep="\t",comment.char = "", check.names =FALSE)
#rt=read.table("也可以输入文件绝对地址", header=T, sep="\t",comment.char = "", check.names =FALSE)
tb=table(c(as.vector(rt[,1]),as.vector(rt[,2])))    #对两列进行统计
#tb=table(as.vector(rt[,1]))        #对一列进行统计//不用的代码加#
tb=sort(tb,decreasing =T) #频率高的排前面

#输入每个基因的邻接点节点数目
outTab=as.data.frame(tb)
colnames(outTab)=c("Gene","Count")
write.table(outTab,file="statResult.xls",sep="\t",quote=F,row.names=F)

#定义柱状图显示基因数目
showNum=30
if(nrow(tb)<showNum){
	showNum=nrow(outTab)
}
n=as.matrix(tb)[1:showNum,]

#绘制柱状图
pdf(file="barplot.pdf",width=7,height=6)#设置图布大小
par(mar=c(5,7,2,3),xpd=T)
bar=barplot(n,horiz=TRUE,col="skyblue",names=FALSE,xlim=c(0,ceiling(max(n)/5)*5),xlab="Number of adjacent nodes")#y轴刻度是否显示，图的颜色，x轴刻度，x轴标题
text(x=n*0.95,y=bar,n)
text(x=-0.2,y=bar,label=names(n),xpd=T,pos=2)
dev.off()