क्या आधार ग्राफिक्स में धुरी लेबल को 2 लाइनों में तोड़ना संभव है?

Question

मैं एक्स-अक्ष लेबल को दो पंक्तियों में विभाजित करने की कोशिश कर रहा हूं। मैं लेबल को 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]) 

Answer 1

यहाँ 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)) 

alt text http://i28.tinypic.com/k024p3.png

मैं भी आधार पैकेज उदाहरण देखने के लिए उत्सुक देख रहा हूँ!

Answer 2

यह वही मैं पकाया (मेरी 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]