r - R ストリップチャートの x 軸を短くする

Question

ストリップチャートの x 軸を短くして、データを超えないようにしたいと思います。これどうやってするの？

以前at = seq(1, length.out = length(unique(Avagno0 $NugentScore)), by = 0.5)は列の間隔を近づけていました。これはグラフの写真です：

どんな助けでも大歓迎です！