Skip to content
Prev 374775 / 398513 Next

Plot qualitative y axis

Hi Pedro,
Not too hard. Just have to watch the order of the variables:

ppdf<-read.table(text="N M W
I 10 106
II 124 484
III 321 874
IV 777 1140
V 896 996
VI 1706 1250
VII 635 433
VIII 1437 654
IX 693 333
X 1343 624
XI 1221 611
XII 25 15
XIII 3 NA
XIV 7 8",
header=TRUE)
plot(rev(ppdf[,2]),1:14,col="blue",lty=1,type="l",
 yaxt="n",ylab="N",xlab="ppdf[,2]")
points(rev(ppdf[,3]),1:14,col="red",lty=1,type="l")
axis(2,at=1:14,labels=rev(ppdf[,1]))
legend(1300,14,c("M","W"),fill=c("blue","red"))
text(rev(ppdf[,2]),1:14,rev(ppdf[,2]),adj=1)
text(rev(ppdf[,3]),1:14,rev(ppdf[,3]),adj=0)

Jim
On Wed, May 23, 2018 at 7:44 AM, Pedro p?ramo <percentil101 at gmail.com> wrote:
Message-ID: <CA+8X3fWgZ64qcc8LirmR9iaFsTmFAoZiTaKYDH9y+=JLu6wCDA@mail.gmail.com>
In-Reply-To: <CAB-TgNvr+usy6wL=NrLmHqRpTvScXm=KZW7=+ZJVoB3xjJNceQ@mail.gmail.com>