изменить вид объекта или поменять подпись

[Petruxin]

Здравствуйте. Для создания очередной "мурзилки" делаю так:

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

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)

Что бы напрямую сделать, как-то не соображу.

[gamm]

вот тут есть пара аналогичных вариантов, что такое "напрямую", непонятно - две строки кода ...

[Petruxin]

Спасибо.
1. Получилось.
2. Пока перевожу.