2015-10-29 47 views
2

也许我的问题在某个地方回答,但在询问之前我已经使用了我的搜索资源。矩阵和表格名称/暗号

我有一个sample[R

 munic 
Gender  Mun1  Mun2 
    female  146980 285797 
    male  140436 270084 

当我使用dimnames(sample)我得到如下:

> dimnames(sample) 
$Gender 
[1] "female" "male" 

$munic 
[1] "Mun1" "Mun2" 

我想创建一个完全一样的。

所以我做到以下几点:

Mat<-matrix(c(148470,24721,22829,24777,26137,43169,49613,40406,48337,34296,19492,+ 
       176712, 27406, 23010, 25487, 27064, 48349, 52140, 44335, 50908, 35814, 18825), nrow=2) 

colnames(Mat) <-c("mun_5","mun_1","mun_2","mun_3","mun_4","mun_6","mun_7","mun_8","mun_9","mun_10","mun_11") 
rownames(Mat) <- c("Male", "Female") 

Mat<-as.table(Mat) 

但是我不能让它显示变量的通用标题可以这么说。

我尝试了很多东西,但没有帮助。

当我试图让我得到dimnames如下:

> dimnames(Mat) 
[[1]] 
[1] "Male" "Female" 

[[2]] 
[1] "mun_5" "mun_1" "mun_2" "mun_3" "mun_4" "mun_6" "mun_7" "mun_8" "mun_9" "mun_10" "mun_11" 

有什么办法增加了“未知”的属性?

+0

尝试'lapply(dimnames(sample),function(ll)ll [[1])'或类似的东西 – smci

回答

3

您需要将对象的属性设置为适当长度的列表。

attr(mat, "dimnames") <- list(Gender = c("Male", "Female"), 
           munic = c("mun_5","mun_1","mun_2","mun_3","mun_4","mun_6","mun_7","mun_8","mun_9","mun_10","mun_11")) 

> mat 
     munic 
Gender mun_5 mun_1 mun_2 mun_3 mun_4 mun_6 mun_7 mun_8 mun_9 mun_10 mun_11 
    Male 148470 22829 26137 49613 48337 19492 27406 25487 48349 44335 35814 
    Female 24721 24777 43169 40406 34296 176712 23010 27064 52140 50908 18825