如何在R Markdown中嵌入table()函数的控制台输出？

方法1：直接运行代码块（控制台样式输出） #

把你的R代码放到R Markdown的R代码块里，默认情况下 knit 生成Word文档时，会直接输出和R控制台一致的table结果。示例代码块：

setwd("C:/Users/romeo/OneDrive/Documents/VCU Masters Program/Fall 2023 Classes/BIOS 543")
COVID_Data <- read.csv("COVID_19_Data.csv" )
Jurisdiction <- COVID_Data$Jurisdiction

# 直接输出原始地区统计
table(Jurisdiction)

# 处理地区名称并输出统计结果
Jurisdiction_New = ifelse(grepl("Wash", Jurisdiction), "WA",
  ifelse(grepl("Ar", Jurisdiction), "AZ",
    ifelse(grepl("Cali", Jurisdiction), "CA", 
      ifelse(grepl("Ill", Jurisdiction), "IL", 
        ifelse(grepl("Mass", Jurisdiction), "MA", 
          ifelse(grepl("Mich", Jurisdiction), "MI", 
            ifelse(grepl("Jers", Jurisdiction), "NJ", 
              ifelse(grepl("York", Jurisdiction), "NY", 
                ifelse(grepl("Vir", Jurisdiction), "VA",
                  ifelse(grepl("exas", Jurisdiction), "TX", 
                    ifelse(grepl("Penn", Jurisdiction), "PA",
                      ifelse(grepl("Un", Jurisdiction), "US",
                        ifelse(grepl("U.S", Jurisdiction), "US", "FL")))))))))))))))
table(Jurisdiction_New)

生成的Word文档里会显示和控制台一模一样的表格文本。

方法2：用knitr::kable生成规范的Word表格 #

如果想要更适合作业提交的规整表格（Word里可编辑的标准表格样式），推荐用knitr包的kable()函数转换table对象：

# 先安装并加载knitr包（首次使用需安装）
# install.packages("knitr")
library(knitr)

setwd("C:/Users/romeo/OneDrive/Documents/VCU Masters Program/Fall 2023 Classes/BIOS 543")
COVID_Data <- read.csv("COVID_19_Data.csv" )
Jurisdiction <- COVID_Data$Jurisdiction

# 生成带标题的格式化表格
kable(table(Jurisdiction), caption = "原始地区分布统计")

# 处理地区名称后生成格式化表格
Jurisdiction_New = ifelse(grepl("Wash", Jurisdiction), "WA",
  ifelse(grepl("Ar", Jurisdiction), "AZ",
    ifelse(grepl("Cali", Jurisdiction), "CA", 
      ifelse(grepl("Ill", Jurisdiction), "IL", 
        ifelse(grepl("Mass", Jurisdiction), "MA", 
          ifelse(grepl("Mich", Jurisdiction), "MI", 
            ifelse(grepl("Jers", Jurisdiction), "NJ", 
              ifelse(grepl("York", Jurisdiction), "NY", 
                ifelse(grepl("Vir", Jurisdiction), "VA",
                  ifelse(grepl("exas", Jurisdiction), "TX", 
                    ifelse(grepl("Penn", Jurisdiction), "PA",
                      ifelse(grepl("Un", Jurisdiction), "US",
                        ifelse(grepl("U.S", Jurisdiction), "US", "FL")))))))))))))))
kable(table(Jurisdiction_New), caption = "标准化后地区分布统计")

额外提示 #

• 如果只想显示表格、不想显示代码，把代码块开头改成 r echo=FALSE 即可。
• 确保你的R环境里已经安装了knitr包，没装的话先运行install.packages("knitr")。

内容的提问来源于stack exchange，提问作者Daniel Sanchez