1

2 つの行列がm1ありm2、それぞれの列数が等しいとします。

m1 = matrix(0, 10, 5, dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"), c(1, 2, 3, 4, 5)))
m1[1,] = c(0,0,0,0,1)
m1[2,] = c(0,0,0,1,1)
m1[3,] = c(0,0,1,1,1)
m1[4,] = c(0,0,1,1,0)
m1[5,] = c(1,0,0,0,0)
m1[6,] = c(1,1,1,0,0)
m1[7,] = c(0,1,1,0,0)
m1[8,] = c(0,1,1,0,0)
m1[9,] = c(0,1,1,1,0)
m1[10,] = c(1,1,1,0,1)

m2 = matrix(0, 10, 5, dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"), c(1, 2, 3, 4, 5)))
m2[1,] = c(0,0,0,0,1)
m2[2,] = c(0,0,0,1,1)
m2[3,] = c(0,0,1,1,1)
m2[4,] = c(0,0,1,1,0)
m2[5,] = c(1,0,0,0,0)
m2[6,] = c(1,1,1,0,0)
m2[7,] = c(0,1,1,0,0)
m2[8,] = c(0,1,1,0,0)
m2[9,] = c(0,1,1,1,0)
m2[10,] = c(1,1,1,0,1)

私が見たいのは、これら 2 つのマトリックスの円グラフの比較です。

私が考えることができる 1 つの方法は、列ごとに各行を追加し、それらを使用して円グラフの分数を取得することです。

sumcols <-function(x){
    for (i in 1:numcols(x)){
        sum <- sum(x[,i])
        sums.append(sum) #python here ...
    }
    return(sums)
}

これで、任意の行列を渡して合計のリストを取得できます。これを使用して円グラフを取得できると仮定します。

sums1 <- sumcols(m1)
sums2 <- sumcols(m2)
par(mfrow = c(1,2))
pie(c(sums1,sums2))

ご協力ありがとうございました！

4

1 に答える 1

3

これにより、最初の列の合計の円が得られます。

pie(c(colSums(m1)[1],colSums(m2)[1]))

barplot の方が有益だと思います：

barplot(c(colSums(m1),colSums(m2)), col=c(rep(1,ncol(m1)),rep(2,ncol(m1))))

アップデート：

これを試して：

#get col sums
m1_sums <- colSums(m1)
m2_sums <- colSums(m2)
#make negatives zero
m1_sums[m1_sums<0] <- 0
m2_sums[m2_sums<0] <- 0
#pie
par(mfrow = c(1,2))
pie(m1_sums,main="m1 - colSums")
pie(m2_sums,main="m2 - colSums")

ここに画像の説明を入力

于 2013-11-12T10:45:31.613 に答える