はじめてのビースウォーム
次のコードは、前のレッスンで見たものに似た、性別ごとのスピード違反データに対するシンプルなビースウォームプロットを作成します。
ただし、点が積み重なって男女それぞれの分布が重なって見えるため、見た目があまり良くありません。
このプロットを改善するために、cex 引数を 0.5 に設定して点のサイズを小さくし、点に不透明度を設定してコントラストを和らげ、個々の点が目立つようにしましょう。
さらに、点の上に透明な箱ひげ図を重ねて、基本的な要約統計量も示してください。
この演習はコースの一部です
R による可視化ベストプラクティス
演習の手順
- ビースウォームのジオメトリで
cex = 0.5を設定して、点のサイズを小さくします。 - 点の
alphaを 0.8 に設定します。 - ビースウォームの上に透明な箱ひげ図を追加します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Load library for making beeswarm plots
library(ggbeeswarm)
md_speeding %>%
filter(vehicle_color == 'RED') %>%
ggplot(aes(x = gender, y = speed)) +
# change point size to 0.5 and alpha to 0.8
geom_beeswarm(___) +
# add a transparent boxplot on top of points
___