ggplot2: मैन्युअल रूप से स्केल_एरिया

Question

समायोजित करने के लिए मैंने बीटा और किमी नामक 2 बबल प्लॉट बनाए हैं। मैं भूखंडों की तरफ से तुलना करना चाहता हूं लेकिन स्केल_एरा अलग दिखता है जो बुलबुले के आकार के आधार पर 2 भूखंडों की दृष्टि से तुलना करना मुश्किल बनाता है।

यदि आप नीचे के भूखंडों पर किंवदंतियों को देखते हैं, तो तराजू अलग हैं। मुझे लगता है कि यह इसलिए है क्योंकि बीटाजीएसडी 5 डेटासेट ~ 64 और किमी जीएसडी 5 डेटा = 100 पर उच्चतम बीआईएसएएम मूल्य।

मैं स्केल_एरिया को मैन्युअल रूप से कैसे बदल सकता हूं जैसे बीटाप्लॉट स्केल kmPlot पैमाने से मेल खाता है?

क्या किंवदंती ब्रेक मैन्युअल रूप से सेट करना भी संभव है? स्वचालित रूप से जेनरेट होने के बजाय, मैं किंवदंती निर्दिष्ट कर सकता हूं हालांकि मुझे यह पसंद है? 0-10, 10-30, 30-50 , 50-70, 70-100,

betaGSD5 डेटा: https://dl.dropbox.com/u/63947093/betaGSD5.csv

kmGSD5 डेटा: https://dl.dropbox.com/u/63947093/kmGSD5.csv

बीटा प्लॉट कोड

है 0

betaPlot <- ggplot(betaGSD5, aes(N,PctCens,size=BiasAM,label=NULL)) + 
    geom_point(colour="red", shape=16) +scale_area(to=c(1,10)) + 
    xlab("Sample size") + ylab("Percent censored") + 
    xlim(0,100)+ ylim(0,100) + 
    theme_bw()+ 
    opts(
#legend.position='none', 
    panel.grid.minor = theme_blank(), 
    panel.background = theme_blank(), 
    axis.ticks = theme_blank(), 
    axis.title.x=theme_text(face='bold',vjust=0.2, size =12), #size=15 #hjust:move  horizonal, vjust-move verticall 
    axis.title.y=theme_text(face='bold',angle=90, vjust=0.2,size =12)) 
print(betaPlot) 

के.एम. साजिश

kmPlot <- ggplot(kmGSD5, aes(N,PctCens,size=NewBiasAMpct,label=NULL)) + 
    geom_point(colour="red", shape=16) +scale_area(to=c(1,10)) + 
    xlab("Sample size") + ylab("Percent censored") + 
    xlim(0,100)+ ylim(0,100) + 
    theme_bw()+ 
    opts(
     #legend.position='none', 
    panel.grid.minor = theme_blank(), 
    panel.background = theme_blank(), 
    axis.ticks = theme_blank(), 
    axis.title.x=theme_text(face='bold',vjust=0.2, size =12), #size=15 #hjust:move  horizonal, vjust-move verticall 
    axis.title.y=theme_text(face='bold',angle=90, vjust=0.2,size =12)) 

print(kmPlot) 

Answer 1

चाहते हैं उन्हें साथ-पक्ष तो यह बहुत आसान है तो। बस दोनों डाटासेट गठबंधन और facet_wrap का उपयोग()

ggplot(dataset, aes(x = N, y = PctCens, size = BiasAM, label = NULL)) + 
    geom_point(colour="red", shape = 16) + 
    scale_size_area(limits = c(1, 10), breaks = c(0, 10, 30, 50, 70, 100)) + 
    scale_x_continuous("Sample size", limits = c(0, 100)) + 
    scale_y_continuous("Percent censored", limits = c(0, 100)) + 
    facet_wrap(~ Method) + 
    theme_bw() + 
    theme(
    panel.grid.minor = element_blank(), 
    panel.background = element_blank(), 
    axis.ticks = element_blank(), 
    axis.title.x = element_text(face = 'bold', vjust = 0.2, size = 12), 
    axis.title.y = element_text(face = 'bold', angle = 90, vjust = 0.2, size = 12) 
)