r - 为什么 noquote 不能删除我矩阵中的引号？

Question

在 r 中创建学校日历很酷，为什么 noquote 函数不能删除我矩阵中的引号？

start<-as.Date("2013-09-02")
x<-start+0:139
rows<-paste(1:20,"th","week",sep="")
cols<-c("mon","tue","wed","thu","fri","sat","sun") 
y<-matrix(noquote(as.character(format(x,"%m%d"))),nrow=20,byrow=TRUE,dimnames=list(rows,cols))
y
          mon    tue    wed    thu    fri    sat    sun   
1thweek  "0902" "0903" "0904" "0905" "0906" "0907" "0908"
2thweek  "0909" "0910" "0911" "0912" "0913" "0914" "0915"
(omitted.....)

为什么我无法获取格式:

        mon    tue    wed    thu    fri    sat    sun   
1thweek  0902  0903   0904 0905 0906 0907 0908
(omitted.....)

Answer 1

交换对 matrix 和 noquote 的调用。比较:

matrix(letters, nrow = 2)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
## [1,] "a"  "c"  "e"  "g"  "i"  "k"  "m"  "o"  "q"  "s"   "u"   "w"   "y"  
## [2,] "b"  "d"  "f"  "h"  "j"  "l"  "n"  "p"  "r"  "t"   "v"   "x"   "z"  
matrix(noquote(letters), nrow = 2)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
## [1,] "a"  "c"  "e"  "g"  "i"  "k"  "m"  "o"  "q"  "s"   "u"   "w"   "y"  
## [2,] "b"  "d"  "f"  "h"  "j"  "l"  "n"  "p"  "r"  "t"   "v"   "x"   "z" 
noquote(matrix(letters, nrow = 2))
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
## [1,] a    c    e    g    i    k    m    o    q    s     u     w     y    
## [2,] b    d    f    h    j    l    n    p    r    t     v     x     z