3

ここでggplot2でバブルチャートを作成することについて質問しました。

私のフォローアップの質問は次のとおりです。

1）凡例のscale_sizeをどのように解釈しますか？

2）小さなドット（ラベル10）は、データが5〜10の範囲であることを意味しますか？特定のポイントのデータが8の場合、scale_area関数はデータポイントを10に変更してから、グラフにドットサイズ10として表示されますか。

3）ggplotバブルチャートに負の数をプロットする方法はありますか？一部のソフトウェアは、ネガティブデータをカラーバブルにすることができます。

4）scale_areaとscale_alphaを組み込んでみましたが、凡例には2つのスケールが表示されています。組み合わせて欲しいだけです。それ、どうやったら出来るの？

ggplot(dataset, aes(x = N, y = PctCens, size = BiasAM, alpha=BiasAM ,label = NULL)) +
geom_point(shape = 16) + 
scale_area(to = 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,ncol=2) + 
theme_bw()+
opts(
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), 
axis.title.y=theme_text(face='bold',angle=90, vjust=0.2,size =12))

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

4

1 に答える 1

2

これが、バブルチャートの負の数で問題を解決することになった方法です。

元のBiasAM（OrgBiasAMと呼ばれる）変数には負の数があるため、その絶対値を取得して、上記のコードで使用したBiasAMという新しい変数を作成しました。負の数と正の数を区別するために、ifelseステートメントを使用してBiasAMCatという新しいカテゴリ変数を作成しました。

データセット$BiasAMCat<-ifelse（dataset $ OrgBiasMA <0、'Negative'、'Positive'）

変更されたコードは次のとおりです。

ggplot(dataset, aes(x = N, y = PctCens, size = BiasAM, colour=factor(BiasAMCat) ,label =       NULL)) +
  geom_point(shape = 16) + 
  scale_area(to = c(1, 10), breaks = c(0, 10, 30, 50, 70, 100)) +
  scale_colour_manual(name=NULL, values=c('grey','black')) +  # for bw printing
  scale_x_continuous("Sample size", limits = c(0, 100)) + 
  scale_y_continuous("Percent censored", limits = c(0, 100)) +
  facet_wrap(~Method,ncol=2) + 
  theme_bw()+
  opts(
  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), 
  axis.title.y=theme_text(face='bold',angle=90, vjust=0.2,size =12))

注：グラデーションカラーが好きな場合は、scale_colour_manualの代わりにAndyWが提案するcolor_gradientを使用できます。

于 2012-07-27T21:40:35.300 に答える