एक्स एक्स मान एक ही फीस ग्रिड में दोनों ग्राफ़ों पर फोर्स एक्स अक्ष है जब एक्स मान समान हैं

Question

मेरे पास दो अक्षरों में एक्स अक्ष के लिए लगभग 30 श्रेणियों के साथ डेटा है, जिसमें फ़ेसटिंग के लिए है। मैं कुछ यादृच्छिक डेटा के साथ इस दिखाएगा:

dataf <- data.frame(x=c(1:30), A=rnorm(30,20,5), B=rnorm(30,15,0.5)) 
datam <- melt(dataf, id="x") 
ggplot(datam, aes(factor(x), value)) + 
    geom_bar(stat="identity") + 
    facet_grid(variable ~ .) 

सिवाय इसके कि यह आसान होता अगर एक्स अक्ष कि ग्राफ पर पुनः प्रस्तुत किया गया था जल्दी से शीर्ष समूह पर श्रेणियों बंद को पढ़ने के लिए यह सिर्फ सुंदर है भी। हालांकि

ggplot(datam, aes(factor(x), value)) + 
    geom_bar(stat="identity") + 
    facet_grid(variable ~ ., scales="free") 

एक्स अक्ष में कोई फर्क नहीं पड़ता क्योंकि, मुझे लगता है कि मान दोनों समूहों के लिए समान हैं।

मैं शीर्ष अक्ष के साथ-साथ बार के लिए एक्स अक्ष को पुन: उत्पन्न करने के लिए कैसे मजबूर कर सकता हूं?

Answer 1

बजाय facet_wrap उपयोग करके देखें:

ggplot(datam, aes(factor(x), value)) + 
    geom_bar(stat="identity") + 
    facet_wrap(~variable,nrow = 2,scales = "free")