格式化R Markdown输出，以便可以将其复制并粘贴到twitter

问题描述

尝试使用Rmarkdown对covid-19数据进行每日报告。想要从表中发布前10个值，但到目前为止尝试过的选项都没有空格-按下tweet按钮时，选项卡将被删除。尝试使用{kableExtra}和html输出以及{flextable}和单词输出，但是当复制和粘贴时，列分隔符是“消失的”选项卡。

有人对如何获取在列之间使用空格或逗号的表有何建议？

如果感兴趣，示例Rmarkdown脚本为here，但问题是笼统的，不需要查看脚本。

解决方法

如何创建表格图片（看起来不错）。

您可以这样做：

library("knitr")
library(kableExtra")
knitr::kable(mtcars,"latex") %>%
  kableExtra::kable_styling(latex_options = "striped") %>%
  kableExtra::save_kable("test.png")

这是否有您不想要的缺点？

添加： 好吧，我没有看您的文件-似乎您想添加4个表但不复制4个图像。

这里的问题很简单-Twitter的280个字符限制不就那么难吗？？

但是您可以执行以下操作：

```{r,echo = F}

aa <- knitr::kable(head(mtcars[,1:4]),"pipe")
for (i in 1:length(aa)) {
   aa[i] <- gsub(" ",",aa[i])
   aa[i] <- paste(aa[i],"\n")
}
aa
```

在您的代码块中，将表保存到变量中。然后，这将只是降价格式的表格。现在，您可以解析并替换和更改chars（按需）。