向R中的条形图添加x轴

对于R中的以下

条形图

：

bp <- barplot(df$share.work, 
              names.arg=df
              space = c(0, diff(df$dist.km.work)),
              col="blue", 
              xlab="Kilometer", 
              ylab="Trip Frequency",
              ylim=c(0,.25), las=1 )

---

bpA1：可以使用
axis.lty=1
添加x轴

A2：注释掉
ylab=“跳闸频率”
。在
条形图之后
，使用

mtext（2，text=“跳闸频率”，line=2，las=1）
。您可以通过更改
line
来（水平）移动标题，也可以通过更改
las
来旋转标题

因此，代码变为

bp <- barplot(df$share.work, 
              names.arg=df,
              space = c(0, diff(df$dist.km.work)),
              col="blue", 
              xlab="Kilometer", 
              #ylab="Trip Frequency",
              ylim=c(0,.25),
              las=1,
              axis.lty=1)

mtext(2, text = "Trip Frequency", line = 2, las = 1)

bp谢谢@Alp Arıbal！仅针对第二个问题，
行=2
不进行旋转。如何使用
mtext
旋转轴标题？可以在
mtext
中添加
las=1
。我还编辑了我的答案。您可能还需要相应地调整边距。请参见
？par
下的
mar
。在绘图之前，可以通过
par（mar=c（5,8,2,2））
设置此参数。
bp <- barplot(df$share.work, 
              names.arg=df,
              space = c(0, diff(df$dist.km.work)),
              col="blue", 
              xlab="Kilometer", 
              #ylab="Trip Frequency",
              ylim=c(0,.25),
              las=1,
              axis.lty=1)

mtext(2, text = "Trip Frequency", line = 2, las = 1)