在R基础绘图中调整条形图中的x轴标签名称

Question

如何在此条形图中调整x轴标签的位置？理想情况下，我会将每个名称左对齐居中？

这是我的代码：

data <- read.csv('CNV_bar_DF.csv')

f<-"CNV_data.png"
png(f,width=1000, height=1000)

par(fig=c(0.0,1.0,0.5,1.0)) #   FINE POSITIONING, x1,x2,y1,y2
barplot(data$Amplification, names=data$Gene, cex.names=1.0, las=2, ylim=c(0,60), col=colors()[c(0,81,0)]) 

par(fig=c(0.0,1.0,0.05,0.55), new=TRUE) #   FINE POSITIONING, x1,x2,y1,y2
barplot(data$Deletion, ylim=rev(c(0,60)), col=colors()[c(0,137,0)])

dev.off()

标记为'Gene'的列是我所说的x轴标签。目前它是正确的，但我希望它在中心。如果有更好的方法来写标签，那么建议非常受欢迎。

这是数据框：

    Gene    Deletion    Amplification   Total
KIAA0100    2   43  45
DNAH9   44  0   44
BPTF    0   38  38
PDCD11  32  1   33
PREX2   3   30  33
RAD51C  0   31  31
CSMD3   0   30  30
ENPP2   0   29  29
STAT3   0   28  28
CPXM2   24  1   25
SOCS7   0   25  25
STAT5B  0   24  24
ACADSB  22  1   23
CSMD1   8   14  22
FAM208B 1   21  22
GOLGA7B 22  0   22
STAT5A  0   22  22
AXIN2   0   21  21
UNC45B  0   21  21
GAD2    20  0   20
SLC6A4  0   20  20
ANK3    19  0   19
APBB1IP 19  0   19
C17orf47    0   19  19
PRKCQ   0   19  19
TSPYL5  0   19  19
CRHR1   1   17  18
CDH23   16  0   16
TET1    15  0   15
CDHR1   14  0   14
FAM110B 0   14  14
FAM83A  0   12  12
GPR158  10  2   12
KIAA1244    12  0   12
ELAVL2  11  0   11
LRRC6   1   10  11
PTPRK   9   2   11
SASH1   10  1   11
BRCA2   10  0   10
ENPEP   6   4   10
FAM171A2    0   10  10
RFX6    9   1   10

这是输出图像：

Answer 1

试试这个（评论内联）：

png(f, 1000, 1000)

par(fig=c(0.0,1.0,0.5,1.0)) 
pos <-   # the result of barplot is the location of the midpoints for axis construction
   barplot(data$Amplification, xaxt="n", # suppresses x-axis printing
                ylim=c(0,60), col=colors()[c(0,81,0)]) 
axis(1,           # now make the x-axis
     las=2, hadj=0.5, # this "centers" the text
     at=pos,          # this uses the return result of `barplot`
     lab=data$Gene, 
     line=2,   # the 'line' argument needed to adjust the vertical "centerline"
     col="transparent")   # needed to suppress drawing an "axis-line"
par(fig=c(0.0,1.0,0.05,0.55), new=TRUE) 
barplot(data$Deletion, ylim=rev(c(0,60)), col=colors()[c(0,137,0)])

dev.off()

使用png(f, 1000,1000)进行测试，似乎可以为我的目标提供可接受的结果。这有点像金字塔图，尽管它们是垂直排列的。它们通常用于显示人口统计学文献中按男女年龄组比较的人口比例。我知道plotrix包中有一个金字塔图的实现。如果你使用的是基础图形，那么检查pkg：plotrix中增加的容量是个不错的主意。