ユニークではないデシルのボックスプロット

Question

私は10個のボックスプロットを含むプロットを作成しようとしており、それぞれがデータセットの10分の1を表しています。しかし、デシルのいくつかは同一であり、ggplotはそうでない限りグラフをプロットしません。同様の質問で私が見た回答では、ユニークでないデシルを削除したり、データを追加してユニークにすることを提案しています。しかし、私の場合、いくつかはユニークではないことを示すことが重要です。

は、これは（フォーマットなし）私のコードです：十分位数は一意であるデータセットに、次のようになり、

mydata$metric_deciles <- with(mydata, cut(metric, breaks=quantile(metric, probs=seq(0,1, by=0.1), na.rm=TRUE), include.lowest=TRUE, dig.lab = 10)) 
p1 <- ggplot(na.omit(mydata), aes(factor(metric), metric2)) 
p1 <- p1 + geom_boxplot() 
p1 <- p1 + scale_x_discrete(NULL, labels = c("10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%")) 

：

最初の行で

、I error in cut.default: 'breaks' are not uniqueを取得してください。

いくつかの固有のものがなくても（例：ボックスプロットの一部が同じである場合でも）10個の十六進数すべてをプロットする方法を探しています。

Answer 1

少なくとも1つの値がmetricであるため、エラーが発生しています。これは繰り返され、分位点のブレークポイントの1つにまたがります。これが原因で、cutにエラーが発生しています。デシルを作成する変数でランク付けしてデシルを作成することもできます。ここで組み込みirisデータフレームを有する例を示します。

# Create decile labels based on Petal.Width. 
# First, rank by Petal.Width, then divide by the number of values we want in each decile. 
# Then, multiply by 10 and paste on "%" to get the label names. 
iris$decile = paste0((rank(iris$Petal.Width, ties.method="random") %/% (nrow(iris)/9.99) + 1)*10, "%") 

# Put the labels in the correct order 
iris$decile = factor(iris$decile, levels=paste0(seq(10,100,10),"%")) 

なお、上記のコードで同じPetal.Widthといくつかの行を使用する場合、重複するレベルの問題を引き起こすものである、異なる十分位数で終わりますレベルがquantileによって選択されたcut。上記のコードはrankを使用し、ランダムにタイを分割します。

# Plot boxplots of Sepal.Width by decile of Petal.Width 
ggplot(iris, aes(decile, Sepal.Width)) + 
    geom_boxplot()