ggplot2 प्लॉट्स में द्वितीयक वाई धुरी जोड़ें - इसे सही बनाएं

Question

द्वितीयक वाई धुरी जोड़ना, मूल वाई धुरी में से एक को स्केल किया गया। यह विषय नया नहीं है। यह छुआ समय है, उदाहरण के लिए on this ggplot2 google groups thread। हैडली की सलाह के बाद, मैंने माध्यमिक वाई अक्ष को geom_vline, geom_segment, और geom_text द्वारा जोड़ने का प्रयास किया। लेकिन, यह अभी भी बदसूरत है।

तो मैं इसे सही बनाने के लिए आपकी मदद मांगूंगा। मुझे लगता है कि कई ggplot2 उपयोगकर्ताओं को इस विषय में रुचि होगी और आपकी कोई विशेषज्ञता या योगदान पसंद करेंगे। अग्रिम में धन्यवाद।

######################################### 
# what I have gotten. 
library(ggplot2) 

# build up a box plot 
p <- ggplot(mtcars, aes(factor(cyl), mpg)) 

# add the secondary y axis on right side of the plot 
p + geom_boxplot() + geom_vline(xintercept = 3.5) + 
geom_segment(aes(x=3.49, y=c(7,14,21,28), xend = 3.52, yend = c(7,14,21,28))) + 
geom_text(aes(x=3.55, y=c(7,14,21,28), label=c(7,14,21,28))) 

Answer 1

हैकिंग से बचने के लिए, आपको facet_grid बजाय का उपयोग हो सकता है। आपके डेटा के आधार पर, आप इसे अधिक सामान्य माध्यमिक अक्ष में बनाने के लिए इसे बहुत अच्छी तरह से अनुकूलित कर सकते हैं।

library(ggplot2) 
ggplot(mtcars, aes(factor(cyl), mpg)) + 
    geom_boxplot() + 
    facet_grid(cyl ~., scales = "free")