将R中的堆叠条形图（1-D散点图）中的点分组

这很难用语言来描述。首先是图片。

它是用那个代码创建的

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)

---

df使用数据生成功能，但由于随机选择不同，结果也不同

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)

df 5）{
S=S[-（1:5）]
df2$b[S]=df2$b[S]+0.05
}
}
}
条形图（b~a，数据=df2，方法=“堆栈”，偏移量=0.5，pch=20）

使用数据生成功能，但由于随机选择不同，结果不同

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)

df 5）{
S=S[-（1:5）]
df2$b[S]=df2$b[S]+0.05
}
}
}
条形图（b~a，数据=df2，方法=“堆栈”，偏移量=0.5，pch=20）

目前，由于样本的随机性，您的数据不可复制。请添加一个
set.seed（）
语句，以便我们可以获得与您现在拥有的相同的数据，由于样本中的随机性，您的数据是不可复制的。请添加一个
set.seed（）
语句，以便我们可以获得与您相同的数据