Как писать метки горизонтально на оси у с осью()

Question

Цель

Написать этикетки по горизонтали с axis() после barplot().

Код

par(mai=c(2, 1, 1, 1), lwd=2) 
barplot(as.numeric(c(2, 4, 1, 6)), col = c("lightblue"), main="Bar plot", 
     names.arg=c("This is bar 1...1","This is bar 1...2", 
        "This is bar 1...3","This is bar 1...4"), 
     xpd=TRUE, las=2, lwd=2, axes=FALSE, axis.lty=1, 
     cex.axis=1, cex.names=1, cex.main=1, ylim=c(-5,8.5),xlim=c(-6,5)) 
axis(2, -3:9) 

Смотрите на картинке

Answer 1

Вы были почти там! Вы установили las для оси x, но не y (который вызывался отдельно). Здесь:

par(mai=c(2, 1, 1, 1), lwd=2) 
barplot(as.numeric(c(2, 4, 1, 6)), col = c("lightblue"), main="Bar plot", 
     names.arg=c("This is bar 1...1","This is bar 1...2", 
        "This is bar 1...3","This is bar 1...4"), 
     xpd=TRUE, las=2, lwd=2, axes=FALSE, axis.lty=1, 
     cex.axis=1, cex.names=1, cex.main=1, ylim=c(-5, 8.5), xlim=c(-6, 5)) 
axis(2, -3:9, las=2)