आर - एकाधिक कारक लेबल के साथ बॉक्सप्लॉट

Question

मैं आर-क्रैन में एक बॉक्सप्लॉट बनाने की कोशिश करने पर काम कर रहा हूं जिसे एक्स-अक्ष पर दो अलग-अलग कारकों द्वारा वर्गीकृत किया गया है। मेरी समस्या +20 के स्तर के साथ एक कारक के लिए लेबल बनाने में निहित है जो दूसरे ग्राफ को लेबल करने के लिए एक किंवदंती का उपयोग करते हुए उचित ग्राफ को उचित रूप से फैलाती है जिसमें केवल 2 से 3 स्तर होते हैं।

यहाँ एक परीक्षण स्क्रिप्ट है कि मोटे तौर पर की नकल करता है अपने वास्तविक डाटासेट:

d<-data.frame(x=rnorm(1500),f1=rep(seq(1:20),75),f2=rep(letters[1:3],500)) 
# first factor has 20+ levels 
d$f1<-factor(d$f1) 
# second factor a,b,c 
d$f2<-factor(d$f2) 

boxplot(x~f2*f1,data=d,col=c("red","blue","green"),frame.plot=TRUE,axes=FALSE) 

# y axis is numeric and works fine 
yts=pretty(d$x,n=5) 
axis(2,yts) 

# I know this doesn't work; what I'd like is to spread the factors out 
# so the each group of three(a,b,c) is labeled correctly 
axis(1,at=seq(1:20)) 

# Use the legend to handle the f2 factor labels 
legend(1, max(d$x), c("a", "b","c"),fill = c("red", "blue","green")) 

किसी भी मदद के लिए धन्यवाद

Answer 1

Fwiw, एक ggplot2 समाधान:

library(ggplot2) 
ggplot(data = d, aes(x = f1, y = x)) + 
    geom_boxplot(aes(fill = f2), width = 0.8) + theme_bw() 

Answer 2

आप 3 बक्से के प्रत्येक समूह के बीच में एक लेबल चाहते हैं, कुछ इस तरह की कोशिश :

axis(1,at=seq(2,60,3),labels=1:20,cex.axis=0.7) 

सामान्यीकरण करने के लिए, इस होगा:

groups <- 20 
numbox <- 3 
total <- groups * numbox 
xpoints <- seq(median(1:numbox),total,numbox)