具有字符值的Xtabs

Question

我正在用xtabs对一些表进行拟合，以便能够更好地用kable函数将它们转换为减价表。到目前为止，它对我来说非常有用，但是一旦我想创建一个包含字符值的表，就会收到以下消息：

Error in FUN(X[[i]], ...) : invalid 'type' (character) of argument

我想要转换的数据格式如下所示：

# A tibble: 6 x 4
# Groups:   CandidateType [2]
  CandidateType       Step   Amount  Pct
        <fctr>       <chr>   <dbl>  <chr>
1      External Applications 12567 100.0%
2      Internal Applications  1174 100.0%
3      External Interview     1204   9.6%
4      Internal Interview      541  46.1%
5      External Hiring         157   1.2%
6      Internal Hiring         198  16.9%

当我执行以下操作时，所有的计算结果都很好，因为总量变量是一个数值类变量：

inExQ1DFtbl <- xtabs(Amount ~ CandidateType + Step, inExQ1DF)

kable(inExQ1DFtbl, caption = "Q1 2018")

然而，每当我试图运行几乎完全相同的代码时，我都会得到错误代码，但使用的是Pct而不是Amount：

inExQ1DFtbl <- xtabs(Pct ~ CandidateType + Step, inExQ1DF)
Error in FUN(X[[i]], ...) : invalid 'type' (character) of argument

有没有人对此有快速的解决办法，或者有其他的解决方案？

Answer 1

你可以用data.table和tableHTML

library(data.table)
library(tableHTML)

首先，使用dcast()将数据从长转换到宽，然后使用tableHTML创建一个HTML表。

dcast(inExQ1DF,
      CandidateType ~ Step,
      value.var = "Pct") %>% 
  tableHTML(rownames = FALSE,
            caption = "Q1 2018",
            theme = 'scientific')

其结果是：

​