棒グラフの中央に散布図をプロットする方法 (pos.x)
y<-c(1,2,3,4,5,6,7)
p<-c(2,3,4,5,4,3,2)
q<-c(2,3,4,5,4,3,2)
par(mar = c(5, 4, 1, 4)) #余白 底辺、左、上、右の順
pos.x <- barplot(q,ylim=c(0,6))
points(pos.x, p)
y<-c(1,2,3,4,5,6,7)
p<-c(2,3,4,5,4,3,2)
q<-c(2,3,4,5,4,3,2)
par(mar = c(5, 4, 1, 4)) #余白 底辺、左、上、右の順
pos.x <- barplot(q,ylim=c(0,6))
points(pos.x, p)