相关矩阵的空值引起word文档编织表中的问题

Question

我试图使用knitr将关联表导出到word文档，但因为它包含NAs，所以我得到：

​

---
output:
  word_document: default
---

```{r setup, include=FALSE}

数据(“mtcar”)

图书馆(Tidyverse)

图书馆(可弯曲)

图书馆(科学酒吧)

图书馆(HtmlTable)

图书馆(Magrittr)

图书馆(Mvtnorm)

图书馆(港湾)

图书馆(费用)

图书馆(KableExtra)

```{r, results='asis',echo=F}

选项卡<-结构(V1=c(“)，

V2 = c("-.21**", "", "", "", "", "", "", "", "", ""), V3 = c(".09", 

"-.03", "", "", "", "", "", "", "", ""), V4 = c("-.23***", 

".18**", ".15*", "", "", "", "", "", "", ""), V5 = c(".01", 

".07", "-.03", "-.12", "", "", "", "", "", ""), V6 = c(".08", 

"-.07", ".29***", ".12", "-.22***", "", "", "", "", ""), 

V7 = c("-.09", ".21**", "-.02", ".13*", ".68***", "-.12", 

"", "", "", ""), V8 = c(".17*", ".25***", ".05", "-.01", 

".32***", ".13*", ".25***", "", "", ""), V9 = c(".16*", "-.20**", 

".29***", "-.10", ".08", ".14*", ".01", ".17**", "", ""), 

V10 = c("-.31***", ".14*", "-.26***", ".05", "-.08", "-.20**", 

".02", "-.15*", "-.36***", ""), V11 = c("-.02", "-.13*", 

"-.29***", "-.06", ".05", "-.05", ".07", "-.08", "-.23***", 

".26***"), V12 = c(".03", "-.02", ".29***", ".02", "-.09", 

".11", "-.07", ".12", ".20**", "-.32***"), V13 = c("-.10", 

".00", ".15*", "-.08", ".00", ".01", ".02", "-.02", ".01", 

".10"), V14 = c(".03", "-.17**", "-.15*", "-.09", ".01", 

".03", "-.10", "-.26***", "-.04", ".08"), V15 = c(".32***", 

"-.33***", ".32***", "-.31***", "-.07", ".21**", "-.13", 

"-.07", ".18**", "-.39***"), V16 = c(".25***", ".00", "-.09", 

"-.20**", ".01", ".08", ".04", "-.02", "-.21**", "-.15*")), row.names = c("all_fear_fail", 

"all_high_stat_entre“、”耐心“、”冒险“、”偏执“、"negrecip”、“利他主义”、"trust_gps“、"lrgdpch2005”、"gini_net2000“

)，类= "data.frame")

选项卡%>%

柔性() %>%

对齐(part= "all") %>% #左对齐

Set_caption(标题=“表1:示例”) %>%

字体(fontname= "Calibri (Body)"，part = "all") %>%

字体大小(大小= 10，部件=“主体”) %>%

如果需要，可以添加页脚

Add_footer_row(值= "* p< 0.05. p<0.0 1. * p<0.001.

共宽= 4) %>%

theme_booktabs() %>% #默认主题

自动装配()

Answer 1

您可以尝试这样做(如果不使用，请不要忘记删除冗余的库)：

---
output:
  word_document: default
---


```{r setup, include=FALSE}

图书馆(Magrittr)

图书馆(可弯曲)

图书馆(data.table)

```{r,echo=F}

选项卡<-结构(V1=c(“)，

V2 = c("-.21**", "", "", "", "", "", "", "", "", ""), V3 = c(".09", 

"-.03", "", "", "", "", "", "", "", ""), V4 = c("-.23***", 

".18**", ".15*", "", "", "", "", "", "", ""), V5 = c(".01", 

".07", "-.03", "-.12", "", "", "", "", "", ""), V6 = c(".08", 

"-.07", ".29***", ".12", "-.22***", "", "", "", "", ""), 

V7 = c("-.09", ".21**", "-.02", ".13*", ".68***", "-.12", 

"", "", "", ""), V8 = c(".17*", ".25***", ".05", "-.01", 

".32***", ".13*", ".25***", "", "", ""), V9 = c(".16*", "-.20**", 

".29***", "-.10", ".08", ".14*", ".01", ".17**", "", ""), 

V10 = c("-.31***", ".14*", "-.26***", ".05", "-.08", "-.20**", 

".02", "-.15*", "-.36***", ""), V11 = c("-.02", "-.13*", 

"-.29***", "-.06", ".05", "-.05", ".07", "-.08", "-.23***", 

".26***"), V12 = c(".03", "-.02", ".29***", ".02", "-.09", 

".11", "-.07", ".12", ".20**", "-.32***"), V13 = c("-.10", 

".00", ".15*", "-.08", ".00", ".01", ".02", "-.02", ".01", 

".10"), V14 = c(".03", "-.17**", "-.15*", "-.09", ".01", 

".03", "-.10", "-.26***", "-.04", ".08"), V15 = c(".32***", 

"-.33***", ".32***", "-.31***", "-.07", ".21**", "-.13", 

"-.07", ".18**", "-.39***"), V16 = c(".25***", ".00", "-.09", 

"-.20**", ".01", ".08", ".04", "-.02", "-.21**", "-.15*")), row.names = c("all_fear_fail", 

"all_high_stat_entre“、”耐心“、”冒险“、”偏执“、"negrecip”、“利他主义”、"trust_gps“、"lrgdpch2005”、"gini_net2000“

)，类= "data.frame")

tab1 <- data.table(选项卡，keep.rownames = TRUE)

tab1 %>%

柔性() %>%

对齐(part= "all") %>% #左对齐

Set_caption(标题=“示例”) %>%

字体(fontname= "Calibri (Body)"，part = "all") %>%

字体大小(大小= 9，part = "all") %>%

如果需要，可以添加页脚

Add_footer_row(值= "* p< 0.05. p<0.0 1. * p<0.001.

共宽= 4) %>%

theme_booktabs() %>% #默认主题

fit_to_width(max_width = 8)

​

​