循环中的Pixiedust表在r标记下不呈现

Question

与问题相关的是，我有一个包含州(“马萨诸塞州”、“加利福尼亚”等)和两个值字段的数据集。我想为每个状态创建一个图表，下面有一个表格，显示相关字段和这些字段之间的差异。我发现使用循环似乎需要一个结果= 'asis‘选项和循环末尾的cat(“\n")来打印图像。那还行。但是，唯一能得到表的方法似乎是使用xtable或xtable。我想用吸尘器给桌子上颜色和其他的美化。

下面是一个很小的例子：

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

图书馆(Pixiedust)

图书馆(Ggplot2)

图书馆(针织品)

图书馆(Xtable)

df <- data.frame(state = c("MA"，"CA")，last_year = c(105，90)，this_year = c(110，85))

# Here is the loop

```{r loops, results = 'asis', echo = FALSE}

(i in 1:nrow(df)){

state_dat <- dfi，

p1 <- ggplot(state_dat，aes(last_year，this_year)) +

geom_point()

打印(P1)

禁止酷刑委员会(“\n")

选项卡<- data.frame(last_year = state_dat$last_year，this_year = state_dat$this_year，yoy_percent = 100*(state_dat$this_year - state_dat$last_year)/state_dat$last_year)

尘埃(标签) %>%

sprinkle(rows = 1, bg = "orchid")

禁止酷刑委员会(“\n")

打印( row.names = FALSE，对齐=“c”)

禁止酷刑委员会(“\n")

打印(标签，自动=真)，类型= "html"，注释=假，include.rownames = F)

禁止酷刑委员会(“\n")

}

我还尝试将尘埃命令的结果分配给一个对象，并打印如下：

pixie <- dust(tab) %>%
    sprinkle(rows = 1, bg = "orchid")
print(pixie)
cat("  \n")

都没有用。

在带有选项asis的块中，pixiedust表可以作为html生成吗？在循环中还有其他方法来生成表和图表吗？

Answer 1

是的，这是可以做到的。要达到这个目的，您必须关闭asis方法中的print.dust打印。这可以通过以下方式来完成：

dust(tab) %>%
    sprinkle(rows = 1, bg = "orchid") %>% 
  print(asis = FALSE) %>% 
  cat()

最终，我希望能找到一个更好的解决方案。