调整条形图中点的位置当我试图在我的图表中添加线时，我就困惑了如何得到正确的索引来画线，以便这些点可以位于中间的条中，下面是图表和我用来绘制它的代码。我想知道如何调整代码以更好地定位点 cupbp<-read.xlsx("Go.xlsx",sheet=2) cupbp2<-subset(cupbp,PValue<0.05) cupbp2$P.value<-log(cupbp2$PValue,base=2) cupbp2$P.value<-abs(cupbp2$P.value) cupbp2$bp<-substr(cupbp2$Term,12,nchar(cupbp2$Term)) opar<-par(no.readonly=T) par(mar=c(5,25,7,10)+0.1) par(cex.axis=0.6) mybar<-barplot(height=cupbp2$P.value,names=cupbp2$bp,horiz=TRUE,las=1,xaxt="n",col="red",xlab="-log2 P value",xlim=c(0,ceiling(max(cupbp2$P.value)))) title("control vs AD up Bioprocess",line=4,adj=0.5) axis(side=1,at=axTicks(1)) par(new=T) plot(cupbp2$Count, mybar, type="o", pch=19, lwd=2, col="yellow", cex=1.2, ann=F,xaxt="n",yaxt="n",xlab="Gene number") axis(side=3,at=axTicks(3)) mtext("Gene number",3,line=2) par(opar) cupbp_R_Line_Bar Chart

调整条形图中点的位置当我试图在我的图表中添加线时，我就困惑了如何得到正确的索引来画线，以便这些点可以位于中间的条中，下面是图表和我用来绘制它的代码。我想知道如何调整代码以更好地定位点 cupbp<-read.xlsx("Go.xlsx",sheet=2) cupbp2<-subset(cupbp,PValue<0.05) cupbp2$P.value<-log(cupbp2$PValue,base=2) cupbp2$P.value<-abs(cupbp2$P.value) cupbp2$bp<-substr(cupbp2$Term,12,nchar(cupbp2$Term)) opar<-par(no.readonly=T) par(mar=c(5,25,7,10)+0.1) par(cex.axis=0.6) mybar<-barplot(height=cupbp2$P.value,names=cupbp2$bp,horiz=TRUE,las=1,xaxt="n",col="red",xlab="-log2 P value",xlim=c(0,ceiling(max(cupbp2$P.value)))) title("control vs AD up Bioprocess",line=4,adj=0.5) axis(side=1,at=axTicks(1)) par(new=T) plot(cupbp2$Count, mybar, type="o", pch=19, lwd=2, col="yellow", cex=1.2, ann=F,xaxt="n",yaxt="n",xlab="Gene number") axis(side=3,at=axTicks(3)) mtext("Gene number",3,line=2) par(opar) cupbp

调整条形图中点的位置当我试图在我的图表中添加线时，我就困惑了如何得到正确的索引来画线，以便这些点可以位于中间的条中，下面是图表和我用来绘制它的代码。我想知道如何调整代码以更好地定位点 cupbp<-read.xlsx("Go.xlsx",sheet=2) cupbp2<-subset(cupbp,PValue<0.05) cupbp2$P.value<-log(cupbp2$PValue,base=2) cupbp2$P.value<-abs(cupbp2$P.value) cupbp2$bp<-substr(cupbp2$Term,12,nchar(cupbp2$Term)) opar<-par(no.readonly=T) par(mar=c(5,25,7,10)+0.1) par(cex.axis=0.6) mybar<-barplot(height=cupbp2$P.value,names=cupbp2$bp,horiz=TRUE,las=1,xaxt="n",col="red",xlab="-log2 P value",xlim=c(0,ceiling(max(cupbp2$P.value)))) title("control vs AD up Bioprocess",line=4,adj=0.5) axis(side=1,at=axTicks(1)) par(new=T) plot(cupbp2$Count, mybar, type="o", pch=19, lwd=2, col="yellow", cex=1.2, ann=F,xaxt="n",yaxt="n",xlab="Gene number") axis(side=3,at=axTicks(3)) mtext("Gene number",3,line=2) par(opar) cupbp,r,line,bar-chart,R,Line,Bar Chart,没有您的数据，我无法在我这边尝试，但我认为这是可能的：首先，将您的基因数乘以2，然后生成图形，但将0标记为“0”，4标记为“2”，6标记为“3”，8标记为“4”。。。而14则为“7” 您可以在任何类似“基因名称”-“Pvalue”-“Count”的表格中尝试，抱歉，我不知道如何在此处上载我的表格检查此项可能会有所帮助：谢谢您的建议，我稍后会尝试

没有您的数据，我无法在我这边尝试，但我认为这是可能的：首先，将您的基因数乘以2，然后生成图形，但将0标记为“0”，4标记为“2”，6标记为“3”，8标记为“4”。。。而14则为“7”

您可以在任何类似“基因名称”-“Pvalue”-“Count”的表格中尝试，抱歉，我不知道如何在此处上载我的表格检查此项可能会有所帮助：谢谢您的建议，我稍后会尝试