Question

我正在尝试找出使用grid.table将矩阵打印为pdf的方法。

当我执行以下操作时：

grid.table(m[[1]])

其中m [[1]]如下：

> m[[1]]
[,1]      [,2]                                                                                                             
mat Logical,0 Logical,0                                                                                                        
"adapter" "GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGACAAGATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGT" [truncated]

我收到此错误：

Error in (function (label, parse = FALSE, col = "black", fontsize = 12,  : 
  unused arguments (label.1 = dots[[5]][[1]], label.2 = dots[[6]][[1]])
In addition: Warning message:
In data.frame(fg_params, label = as.vector(label_matrix), stringsAsFactors = FALSE) :
  row names were found from a short variable and have been discarded
7: (function () 
   traceback(2))()
6: (function (FUN, ..., MoreArgs = NULL, SIMPLIFY = TRUE, USE.NAMES = TRUE) 
   {
       FUN <- match.fun(FUN)
       dots <- list(...)
       answer <- .Internal(mapply(FUN, dots, MoreArgs))
       if (USE.NAMES && length(dots)) {
           if (is.null(names1 <- names(dots[[1L]])) && is.character(dots[[1L]])) 
               names(answer) <- dots[[1L]]
           else if (!is.null(names1)) 
               names(answer) <- names1
       }
       if (!identical(SIMPLIFY, FALSE) && length(answer)) 
           simplify2array(answer, higher = (SIMPLIFY == "array"))
       else answer
   })(parse = c(FALSE, FALSE, FALSE, FALSE), col = c("black", "black", 
   "black", "black"), fontsize = c(12, 12, 12, 12), fontfamily = c("", 
   "", "", ""), label.1 = list(mat = logical(0), "adapter", mat = logical(0), 
       "adapter"), label.2 = list(mat = logical(0), "GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGACAAGATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACAGTCCTGAATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGTCAAGATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACCGTCCTGAATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACAATCCTGAATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGATAAGATATCTCGTATGCCGTCTTCTGCTTG", 
       mat = logical(0), "GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGACAAGATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACAGTCCTGAATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGTCAAGATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACCGTCCTGAATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACAATCCTGAATATCTCGTATGCCGTCTTCTGCTTG, GATCGGAAGAGCACACGTCTGAACTCCAGTCACTCGATAAGATATCTCGTATGCCGTCTTCTGCTTG"), 
       FUN = function (label, parse = FALSE, col = "black", fontsize = 12, 
           cex = 1, fontfamily = "", fontface = 1L, lineheight = 1.2, 
           alpha = 1, rot = 0, check.overlap = FALSE, name = NULL, 
           vp = NULL, just = "centre", hjust = 0.5, vjust = 0.5, 
           x = 0.5, y = 0.5, default.units = "npc") 
       {
           if (parse) {
               label <- tryCatch(parse(text = label), error = function(e) label)
           }
           textGrob(label = label, x = x, y = y, just = just, hjust = hjust, 
               vjust = vjust, rot = rot, check.overlap = check.overlap, 
               default.units = default.units, name = name, vp = vp, 
               gp = gpar(col = col, cex = cex, fontfamily = fontfamily, 
                   fontface = fontface, fontsize = fontsize, lineheight = lineheight, 
                   alpha = alpha))
       }, SIMPLIFY = FALSE)
5: do.call(mapply, c(fg_params, list(FUN = fg_fun, SIMPLIFY = FALSE)))
4: gtable_table(d, name = "core", fg_fun = theme$core$fg_fun, bg_fun = theme$core$bg_fun, 
       fg_params = theme$core$fg_params, bg_params = theme$core$bg_params, 
       padding = theme$core$padding, ...)
3: tableGrob(...)
2: grid.draw(tableGrob(...))
1: grid.table(m[[1]])

我的列名是否有某些内容阻止我使用grid.table？

尝试打印矩阵会导致R

0 个答案: