6

ベータとkmという2つのバブルプロットを作成しました。プロットを並べて比較したいのですが、scale_areaが異なっているようで、泡のサイズに基づいて2つのプロットを視覚的に比較するのが困難です。

下のプロットの凡例に気付いた場合、スケールは異なります。これは、betaGSD5データセットのBiasAM値が最も高い〜64およびkmGSD5データ=100であるためだと思います。

betaPlotスケールがkmPlotスケールと一致するように、scale_areaを手動で変更するにはどうすればよいですか？

凡例の区切りを手動で設定することもできますか？自動的に生成される代わりに、凡例を指定できますが、このようにしますか？0-10、10-30、30-50、50-70、70-100、

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)

ここに画像の説明を入力してください

4

1 に答える 1

10

それらを並べて表示したい場合は、非常に簡単です。両方のデータセットを組み合わせて 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)
  )

ここに画像の説明を入力

于 2012-07-17T08:23:25.950 に答える