使用 plot2docx 从 R 到 Word

Question

我正在尝试使用 plot2docx（来自 rrtable 包）将 ggplot 图形导出到 Word。我有这个数据代码：

data0 = data.frame(
    GrR=c("Ejército Nacional","Paramilitares","Farc","Policía Nacional",
          "Sin información","Grupo armado","Grupos de limpieza social",
          "DAS","ELN","CTI","Otros agentes del Estado"),
    Cantidad=c(127,49,11,5,5,4,3,3,1,1,1)
)

data0$GrR = factor(
    data0$GrR,
    levels = c("Ejército Nacional","Paramilitares","Farc","Policía Nacional",
               "Sin información","Grupo armado","Grupos de limpieza social",
               "DAS","ELN","CTI","Otros agentes del Estado"))

这是情节：

z = ggplot(data=data0, aes(x=GrR, y=Cantidad)) +
    geom_bar(stat="identity", width=0.5, fill = "blue") +
    geom_text(aes(label=scales::comma(Cantidad, scale = 1, accuracy = 1)),
              vjust=0.6,
              hjust=-0.5,
              color="black",
              position = position_dodge(0.5), size=5) +
    ggtitle("Víctimas de desaparición, según presunto grupo armado responsable") +
    labs(y="", x="") +
    coord_flip() +
    theme_minimal() +
    theme(plot.title = element_text(color="black", size=16, face="bold", hjust = 0.5)) +
    theme(axis.text.x=element_blank())

这用于将其发送到单词：

 plot2docx(z)

它给了我这个：

如您所见，标题不完整。此外，不会显示最后一根柱线的值。我尝试添加高度和宽度规格，但图像保持不变。关于如何解决它的任何想法？提前谢谢你。

Answer 1

您只需在标题中添加换行符即可将其断开。

+ ggtitle("Víctimas de desaparición, según presunto\ngrupo armado responsable")

Answer 2

如果您使用的是 RStudio，我建议您运行在 RMarkdown 文档中编写您的代码。将所有图表和结果导出到 Word 将变得更加容易。

为此，单击文件 -> 新建文件 -> R Markdown。将打开一个对话框。您可以根据需要选择标题，您可以保留 HTML，因为它更灵活，可以随时切换到 Word。

将打开一个示例文档。您可以先单击“编织”按钮，然后单击“编织到 Word”，看看它是如何工作的。

文档编入Word后，您可以关闭它，返回R，阅读文档。将您的代码复制到代码块中。然后再次将您的文档编织到 Word。

如果您仍然对图表大小有疑问，请检查此 post：How to set size for local image using knitr for markdown?

使用 plot2docx 从 R 到 Word

From R to Word using plot2docx

r

data-visualization

word

ggplot2