0

最初に私の問題/状況を説明したいと思います：私は膨大なデータセットを持っています。1つの列（> 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)

でも長さが違うので使えません。

お願いできますか？ありがとう！私の問題が明確であることを願っています、そうでなければ申し訳ありません

よろしくお願いいたします。

4

1 に答える 1

0

あなたの質問は少し不明確です。これはあなたが望む結果をあなたに与えますか？数字がテキストに強制されないように、サンプルデータをデータフレームに編集したことに注意してください...

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))

結果は次のとおりです。

積み上げ棒グラフ

于 2012-10-14T23:21:49.067 に答える