不具有相同大小的矢量的堆积条形图

Question

我想首先描述我的问题/情况： 我有一个庞大的数据集。由于一列中的数字（＆gt; 0），我过滤了我的数据。在这一栏中还有1,2,3。所以计划是生成堆积的条形图。条形由另一列表示（12个不同的名称 - 见下面的示例） 这是我的数据的一个小例子：

dat <- array(c("dbdb1", "dbdb2","dbdb1",
               "dbdb4","dbdb1","dbdb1",
               "dbdb2","dbdb4","dbdb1",
               1,1,1,2,2,3,1,2,1),dim=c(9,2))

所以现在我要按照subset(data_set, "column"==1)或==2或==3的数据集中的数字将它们分开，（有点难看..）

示例：

mod1=as.vector(data_set, Phospho==1)
mod2=as.vector(data_set, Phospho==2)
    ...

之后我使用as.vector函数将列（在示例中使用dbdbX条目）隔离为向量。 as.vector1=as.vector(mod1$dbdbColumn) 现在我尝试使用barplot(table(as.vector1,as.vector2)

绘制我的条形图

但由于它们的长度不同，我无法使用它。

你能帮我吗？谢谢！我希望我的问题很清楚，对不起，如果它不是

最好的问候和thx提前

Answer 1

你的问题有点不清楚。这会给你想要的结果吗？请注意，我已将您的示例数据编辑为数据框，以便数字不会被强制为文字...

dat <- data.frame(category=c("dbdb1","dbdb2","dbdb1","dbdb4","dbdb1","dbdb1","dbdb2","dbdb4","dbdb1"),value=c(1,1,1,2,2,3,1,2,1))
tab <- table(dat$value,dat$category)
barplot(tab,legend=rownames(tab))

结果如下：