r - R：两轴图调整

Question

我正在尝试用两个轴绘制一个聊天，这是代码，附件是情节，

我必须对其进行两次调整。

• 我想用点画一条线，点应该在条的中间
• 调整右侧轴（即轴（4））刻度线应与左侧轴（即轴（2））对齐

代码：

Region=c("North","South","East","West")
Sales=sample(500:1000,4)
Change=sample(1:10,4)/10
names(Sales)=Region
names(Change)=Region
barplot(Sales,ylim=c(0,1000))
par(new=T)
plot(Change,type="b",axes=F,ylim=c(0,1))
axis(4)
box()

问候，

西瓦吉

Answer 1

您需要在第二个图中设置相同的 x 轴，您从par("usr"). xaxs="i"就是要准确设置，xlim默认情况下 R 会稍微增加 xlim 以使其更好看。

par(mar=c(5,5,2,5)) # change margins
x = barplot(Sales, ylim=c(0,1000)) # barplot, keep middle points of bars
mtext("Sales", 2, line=3) # first y-axis label
xlim = par("usr")[1:2] # get xlim from plot
par(new=TRUE) 
plot.new() # new plot
plot.window(xlim=xlim, ylim=c(0,1), xaxs="i", yaxs="i") # new plot area, same xlim
lines(x,Change,type="b") # the lines in the middle points
axis(4) # secondary y-axis
mtext("Change", 4, line=3) # secondary y-axis label
box()

Answer 2

首先，将您的条形图保存为某个对象。所以你会得到中间点的坐标。然后添加行，您也可以使用函数lines()，只需将值乘以Change1000。然后对于axis()函数提供at=值，labels=与 相同at=，只需除以 1000。

x<-barplot(Sales,ylim=c(0,1000))
lines(x,Change*1000,type="b")
axis(4,at=seq(0,800,200),labels=seq(0,800,200)/1000)