箱ひげ図に観測数を追加する方法を見つけようとしています。パッケージの例は、箱ひげ図に観測数を追加する方法を示していますが、x軸に観測数を書き込む必要があります。これに基づいて再現可能な例を作成します。
# function for number of observations
give.n <- function(x){
return(c(y = median(x)*1.05, label = length(x)))
# experiment with the multiplier to find the perfect position
}
# plot
ggplot(mtcars, aes(factor(cyl), mpg, label=rownames(mtcars))) +
geom_boxplot(fill = "grey80", colour = "#3366FF") +
stat_summary(fun.data = give.n, geom = "text", fun.y = median)
サマリーdata.frame
を作成し、それをデータ引数としてgeom_text
レイヤーに渡すことができます。
library(dplyr)
df <- count(mtcars, cyl)
# plot
ggplot(mtcars, aes(factor(cyl), mpg, label=rownames(mtcars))) +
geom_boxplot(fill = "grey80", colour = "#3366FF") +
geom_text(data = df, aes(y = 0, label = n))
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加