添加不工作

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