Можно ли в базовой графике разбить метки осей на 2 строки?

Я пытаюсь разделить метки оси x на две строки. Я также хотел бы, чтобы метки были повернуты на 45 градусов. Как я могу это сделать?

Что у меня есть до сих пор:

N <- 10
dnow <- data.frame(x=1:N, y=runif(N), labels=paste("This is observation ",1:N))
with(dnow, plot(x,y, xaxt="n", xlab=""))
atn <- seq(1,N,3)
axis(1, at=atn, labels=labels[atn])

r graphics
person Eduardo Leoni    schedule 08.09.2009    source источник
comment
Что значит 2 строчки? Вы имеете в виду, что хотите Это\n наблюдение...?   -  person Christopher DuBois    schedule 08.09.2009
comment
@chis_dubois Это первая часть ответа! Спасибо!   -  person Eduardo Leoni    schedule 08.09.2009

Ответы (2)


arrow_upward
12
arrow_downward

Вот одна возможность с пакетом ggplot2.

N <- 10
labs <- factor(1:N,labels=paste("This is \n observation",1:N))
dnow <- data.frame(x=1:N, y=runif(N), labels=labs)
qplot(labels,y,data=dnow) + 
      opts(axis.text.x=theme_text(angle=-45,hjust=0))

альтернативный текст

Я также с нетерпением жду примеров базовых пакетов!

person Christopher DuBois    schedule 08.09.2009
comment
@chris - Я хотел бы принять ваш вопрос (в наши дни все крутые ребята используют ggplot2). Но не могли бы вы заранее исправить ось x (ggplot упорядочивает векторы символов в алфавитном порядке, поэтому вам нужно преобразовать их в коэффициенты). Спасибо! - person Eduardo Leoni; 10.09.2009
comment
Хорошее предложение. Я переключил его на фактор, но правая сторона все еще обрезается. Я постараюсь это исправить. - person Christopher DuBois; 10.09.2009
comment
это также работает для меток данных - если вы поместите в них \n, это разобьет строки! - person Andrew; 11.04.2013

arrow_upward
4
arrow_downward

Вот что я придумал (до того, как мне исполнилось ggplot2 дней), используя базовую графику:

## data
N <- 10
dnow <- data.frame(x=1:N, y=runif(N), labels=paste("This is \nobservation ",1:N))
## make margins wide
par(mfrow=c(1,1), mar=c(10,10,6,4))
## plot without axix labels or ticks
with(dnow, plot(x,y, xaxt="n", xlab=""))
## the positions we ant to plot
atn <- seq(1,N,3)
## the label for these positions
lab <- dnow$labels[atn]
## plot the axis, but do not plot labels
axis(1, at=atn, labels=FALSE)
## plot labels
text(atn, ## x position
     par("usr")[3]-.05, ## position of the low axis
     srt=45, ## angle
     labels=lab, ##labels
     xpd=TRUE, ## allows plotting outside the region 
     pos=2)
## par("usr")[3]
person Eduardo Leoni    schedule 08.09.2009
comment
Я думаю, что это тоже важный вклад. С ggplot2 наверное это не требуется. Но это тоже хорошо. Также лучшее и элегантное решение с grid дано в книге R Graphics Пола Мюррела. - person Sam; 18.02.2011