2

連続変数の間隔 (離散化/ビン) を作成して、ggplot を使用してコロプレス マップをプロットしたいと考えています。さまざまなスレッドを読んだ後、次の問題を使用cutしquantileて解消することにしました。

しかし、私は今別の問題に直面しています。から出てくる間隔cutはほとんどきれいではありません。だから、私はこの例とこの例に従って、きれいなラベルを考え出そうとしています。

ここに私のリストがあります：

x <- seq(1,50)

四捨五入された分位数:

qs_x <- round(quantile(x, probs=c(seq(0,0.8,by=0.2),0.9)))

その結果：

 0% 20% 40% 60% 80% 90% 
 1  11  21  30  40  45

これらのカットを使用して、これらのラベルを作成したいと思います。

1-11, 12-21, 22-30, 31-40, 41-45, 45+

いくつかの関数を使用してリストを変換する簡単な解決策があると確信していapplyますが、私はそれらの関数に精通していません。

助けていただければ幸いです。

4

1 に答える 1

2

3 ライナーは、を使用せずに、必要な出力を生成しますapply。

labels <- paste(qs_x+1, qs_x[-1], sep="-")
labels[1] <- paste(qs_x[1], qs_x[2], sep="-")
labels[length(labels)] <- paste(tail(qs_x, 1), "+", sep = "")

最初の行は形式のラベルを作成し(x1 + 1) - x2、2 行目は最初のラベルを修正し、3 行目は最後のラベルを修正します。ここに出力があります

> labels
[1] "1-11"  "12-21" "22-30" "31-40" "41-45" "45+"
于 2012-07-11T18:27:39.483 に答える