1

ポイントを使用してggplotでデータをプロットしたいと思います。このプロットを作成します。 ここに画像の説明を入力

ご覧のとおり、それは良くないので、対数スケールを使用してより良い結果を得ることにしました。私のデータには 0 が含まれているため、無限が作成されます。このスクリプトを使用して、無限を 0 に変換しました。

test.data$d.log[is.infinite(test.data$d.log)] <- 0
test.data$f.log[is.infinite(test.data$f.log)] <- 0 
test.data=test.data[complete.cases(test.data), ]

私のデータ（test.data）は次のようになります。

                friend_ratio degree_ratio       f.log    d.log
oncevatan81        0.7763884     23.66667 -0.25310235 3.164068
hatunkotu          0.4991004      0.00000 -0.69494803 0.000000
TwitineGeldim      0.9838102     45.00000 -0.01632226 3.806662
Kralice_Hanim      0.9278909      0.00000 -0.07484108 0.000000
buguzelmi          0.7362599   2302.00000 -0.30617214 7.741534
DogrulariYaziyo    0.8489903      0.00000 -0.16370754 0.000000

ここからサンプル データをダウンロードできます: https://drive.google.com/open?id=0B1HBIov_NABWWXRobmZwV0Z2Tmc

このスクリプトを使用してプロットします。

p<-ggplot(data=test.data, aes(x=f.log, y=d.log)) +
        stat_binhex(aes(x= f.log, y=d.log,alpha=..count..),fill="#000000" )+ 
        guides(fill=FALSE,colour=FALSE) +
        geom_hline(yintercept = 0, size = 0.5,color="red",linetype = 2) +
        geom_vline(xintercept = 0, size = 0.5,color="red",linetype = 2) +
        theme_bw()

そして、このプロットを作成します。 ここに画像の説明を入力

ご覧のとおり、左上隅の 1 つのドットに対して 1 つの六角形が作成され、データの正しい表現ではありません。

私の質問は、このコードの scale_x_log10( ) 関数内で inf クリーニングを実行できるかということです。

p<-ggplot(data=test.data, aes(x=friend_ratio, y=degree_ratio)) +
        scale_x_log10(breaks = trans_breaks("log10", function(x) 10^x),
                      labels = trans_format("log10", math_format(10^.x)))+
        scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
                      labels = trans_format("log10", math_format(10^.x)))+
        geom_hex(aes(x= friend_ratio, y=degree_ratio))+
        geom_hline(yintercept = 1, size = 0.5,color="red",linetype = 2)+
        geom_vline(xintercept = 1, size = 0.5,color="red",linetype = 2)+
        theme_bw()
4

1 に答える 1

2

私のコメントを答えに変えると、塗りつぶしの透明度にログスケールを使用できます

scale_alpha_continuous(range = c(0, 1), trans = "log")

範囲が 0 から始まるように指定すると、最小のビンが完全に透明になります。つまり、少数のポイントの六角形は表示されません。

于 2015-10-10T00:07:41.737 に答える