添加不工作

Question

此代碼邊距：

x=c(10,20,30,40,50) 
y=c(17,30,37,50,56) 
my.tbl=cbind(x,y,x-mean(x),y-mean(y),(x-mean(x))*(y-mean(y)), 
      (x-mean(x))^2,(y-mean(y))^2) 
colnames(my.tbl)=c("x","y","x-xbar","y-ybar", 
       "(x-xbar)(y-ybar)","(x-xbar)^2","(y-ybar)^2") 
my.tbl 
addmargins(my.tbl) 

給出了這樣的錯誤：

錯誤陣列（值，暗淡= newdim，dimnames = newdimnames）： 長度 'dimnames'[1]不等於數組範圍

無法弄清楚我做錯了什麼。

基於R版本3.1.1（2014年7月10日），RStudio版0.98.1091

Answer 1

據至R幫助「表或陣列。該函數使用存在‘模糊’和」 dimnames 「A的屬性」。鑑於RStudent和我都發現你需要暗號。如您所見，my.tbl沒有rownames。你想添加下面的rownames。那麼，你將會得到正確的結果。

dimnames(my.tbl)[[1]] <- c("A", "B", "C", "D", "E") 
addmargins(my.tbl) 

class(my.tbl) 
#[1] "matrix" 

str(my.tbl) 
#num [1:5, 1:7] 10 20 30 40 50 17 30 37 50 56 ... 
#- attr(*, "dimnames")=List of 2 
#..$ : NULL 
#..$ : chr [1:7] "x" "y" "x-xbar" "y-ybar" ... 

或者，您可能可以執行以下操作來分配rownames。至少，這是在我的MAC上工作。通過轉換爲表格，你會得到rownames。

my.tbl2 <- as.table(my.tbl) 

#class(my.tbl2) 
#[1] "table" 

#str(my.tbl2) 
#table [1:5, 1:7] 10 20 30 40 50 17 30 37 50 56 ... 
#- attr(*, "dimnames")=List of 2 
#..$ : chr [1:5] "A" "B" "C" "D" ... 
#..$ : chr [1:7] "x" "y" "x-xbar" "y-ybar" ... 

addmargins(my.tbl2) 

#  x y x-xbar y-ybar (x-xbar)(y-ybar) (x-xbar)^2 (y-ybar)^2 Sum 
#A  10 17 -20 -21    420  400  441 1247 
#B  20 30 -10  -8    80  100   64 276 
#C  30 37  0  -1    0   0   1 67 
#D  40 50  10  12    120  100  144 476 
#E  50 56  20  18    360  400  324 1228 
#Sum 150 190  0  0    980  1000  974 3294 

Answer 2

我解決了這個與rownames(my.tbl) <- 1:dim(my.tbl)[1]：

> rownames(my.tbl) <- 1:dim(my.tbl)[1] 
> addmargins(my.tbl) 
     x y x-xbar y-ybar (x-xbar)(y-ybar) (x-xbar)^2 (y-ybar)^2 Sum 
1 10 17 -20 -21    420  400  441 1247 
2 20 30 -10  -8    80  100   64 276 
3 30 37  0  -1    0   0   1 67 
4 40 50  10  12    120  100  144 476 
5 50 56  20  18    360  400  324 1228 
Sum 150 190  0  0    980  1000  974 3294