ggplot2 - ポイントの上書きを避けるためにgeom_rugを移動する方法

Question

ggplot2で基本散布図を作成し、y軸（左側）にgeom_rugを付けた敷物を追加しましたが、敷物は数点隠しています。私は敷物を動かすためにposition_dodge、position_jitterdodge、hjustを試してみましたが、それらの点を見えるようにしましたが、望みの結果が得られませんでした。私はプロットの右側に敷物を移動することはできません、それはここでもポイントを隠しているので。

y軸の反対側で、プロットの外側に敷物を移動する方法はありますか？ここ

は、いくつかの例のコードである：

data("midwest", package = "ggplot2") 
ggplot(midwest, aes(x=area, y=poptotal)) + geom_point(alpha=0.8)+ 
geom_rug(aes(x=NULL, y=poptotal), alpha=0.8) 

Answer 1

Iは

scale_x_discrete(expand = c(0.01,0.01)) 

を使用して、単にX軸の範囲を拡大することで問題を解決し