ggplot2：scale_areaを手動で調整する方法

Question

私はbetaとkmという2つのバブルプロットを作成しました。プロットを並べて比較したいのですが、scale_areaが異なるように見えるので、気泡のサイズに基づいて2つのプロットを視覚的に比較することが難しくなります。

以下のプロットに凡例が表示されている場合は、縮尺が異なります。私はそれがベータGSD5データセット~64とkmGSD5データの最高BiasAM値= 100であると考えています。

私は手動でscale_areaを変更して、betaPlotスケールと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

ベータプロットコード

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) 

KMプロット

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) 
)