スタックストリップチャートのグループポイント（1次元散布図）R

Question

これは言葉では説明がつかない。最初に画像。

は、それは、そのコード

df <- data.frame(a=sample(1:2, 60, replace=TRUE), b=c(1:3)) 
stripchart(b~a, data=df, method="stack", offset=0.5, pch=20) 

値左下（X 1.01）をご覧くださいを使用して作成されました。 13ポイントあります。私はそれらを（例えば）5つの点でグループ化したいと思います。つまり、私は5点の列が必要です。結果はそうでなければなりません。あなたのデータ生成機能を使用して

Answer 1

が、異なる結果と異なるため、ランダムな選択の。今

df <- data.frame(a=sample(1:2, 60, replace=TRUE), b=c(1:3)) 
stripchart(b~a, data=df, method="stack", offset=0.5, pch=20) 
df2 = df    ## So that df is not changed 

for(A in unique(df$a)) { 
    for(B in unique(df$b)) { 
     S = which(df$a==A & df$b==B) 
     while(length(S) > 5) { 
      S = S[-(1:5)] 
      df2$b[S] = df2$b[S]+0.05 
     } 
    } 
} 
stripchart(b~a, data=df2, method="stack", offset=0.5, pch=20)