设置R标记输出的格式,以便将其复制并粘贴到twitter

设置R标记输出的格式,以便将其复制并粘贴到twitter,r,r-markdown,knitr,kableextra,flextable,R,R Markdown,Knitr,Kableextra,Flextable,试图用新冠病毒-19数据做每日报告。想要从表中推送前10个值,但迄今为止尝试的选项没有留下空格-按下推送按钮时,选项卡将被删除。已经尝试使用html输出{kableExtra}和word输出{flextable},但是在复制和粘贴时,列分隔符正在“消失”选项卡 有人对如何获得列之间有空格或逗号的表有什么建议吗 如果感兴趣,可以使用示例Rmarkdown脚本,但问题是一般性的,不需要查看脚本。创建一张表的图片如何(这样看起来很不错) 你可以这样做: library("knitr"

试图用新冠病毒-19数据做每日报告。想要从表中推送前10个值,但迄今为止尝试的选项没有留下空格-按下推送按钮时,选项卡将被删除。已经尝试使用html输出{kableExtra}和word输出{flextable},但是在复制和粘贴时,列分隔符正在“消失”选项卡

有人对如何获得列之间有空格或逗号的表有什么建议吗


如果感兴趣,可以使用示例Rmarkdown脚本,但问题是一般性的,不需要查看脚本。

创建一张表的图片如何(这样看起来很不错)

你可以这样做:

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
```
`{r,echo=F}

谢谢,斯蒂芬。缺点是必须让我的latex安装工作正常,这可能是可能的,但随后会打开四个不同的png。如果能找到一种方法,我会觉得从一份报告中复制和粘贴更安全。删除额外的空格并小心介绍讨论后,推文的字符数已低于限制。如果时间紧迫,我会缩短州名。我一直在用空格手动替换制表符。如果我使用kable中的任何格式,包括您建议的管道格式,则会提供选项卡。唯一的例外是rst格式,它也可以删除换行符。哦,我想你没有理解我的意思。现在看一下答案中的代码。我想通过R代码编辑表格以满足您的需要。试试这个,也许会有帮助:)当然你可以像你需要的那样修改它(我的只是一个例子)再次感谢Steffen。你帮我找到了答案。我将使用:
case\u报告%select(c(st,cases,cases\u-1M\u-pop))%%mutate(st=paste0(st,“”)%%>%mutate(cases=paste0(as.character(cases)”)%%>%mutate(cases\u-1M\u-pop=format(cases\u-1M\u-pop,digits=2))