Форумы GIS-Lab.info

Код: Выделить всё

s<-c("Лекция","Практическое","Групповое","Семинар","Самостоятельная")
s.f<-factor(s)
 as.numeric(s.f)
s.o<-ordered(s.f,levels=c("Лекция","Практическое","Групповое","Семинар","Самостоятельная" ))
t<-c(400,800,800,600,1200)
plot(s.o,t)
# Либо 
plot(t,s.o)

Код: Выделить всё

plot(t,xaxt="n",xlab="s.o")
axis(1,at=c(1:5),labels=s.o)