R：每类特征频率图

我有一个类似于以下矩阵的数据框：

r= 50
c = 10
testdata <- matrix(rbinom(r*c,1,0.5),r,c)
examplev <- rep(c(290,320,390,460,520,580,710,780,800,100001),5)
testdata <- cbind(testdata,examplev)

r=50
c=10
testdata不是您要求的100%，因为我使用的是条形图而不是密度图，但这接近您想要的

TABLE = sapply(as.data.frame(testdata[,1:10]), 
    function(x) table(x, testdata[,11])[2,])

## You will need to stretch the graphics window horizontally
par(mfrow=c(1, 10))
for(i in 1:10) { 
    barplot(TABLE[i,], horiz=TRUE, xlim=c(0,max(TABLE)), 
        las=1, xlab=rownames(TABLE)[i])

}

您是否正在尝试映射每个数据的曲线？你能找小提琴的情节吗？你的评论也有帮助。我从未听说过小提琴的情节。谢谢！