如何调整在 R 中创建的图表的大小并粘贴到 powerpoint 中，同时仍保持图表清晰易读？

Question

我正在用 PowerPoint 创建演示文稿，需要将在 R 中创建的一些图表复制并粘贴到演示文稿中。虽然我知道我可以使用 rmarkdown 创建演示文稿，但我需要使用非常小的文本并将多个图表与多个表格并排粘贴以适应 5 页的演示文稿，我不太确定如何使用 rmarkdown 这样做，所以我手动创建演示文稿。但是，当我将 R 中的图表放在 powerpoint 中时，它们会失去清晰度并变得模糊。请参见下面的示例 -

有没有办法从 R 调整我的图表大小并手动粘贴到 powerpoint 中，同时仍然保持照片清晰。请参阅下面的可重现代码 -

data <- mutate(mtcars, car.name = row.names(mtcars))
data %>% 
    slice(1:20) %>% 
    ggplot(aes(mpg, car.name))+
    geom_col()+
    geom_text(aes(label = mpg))+
    theme_bw()+
    labs(title = "MPG by Car Brand", x = "", y = "")+
    theme(plot.title = element_text(face = "bold"),
          axis.text.y = element_text(size = 12),
          axis.text.x = element_text(size = 12))

Answer 1

首先使用

设置一个目录

setwd()

那么你可以只使用“ggsave()”，并设置高度和宽度

ggsave("My_plot.jpg", My_Plot, width = 4, height = 6 )

绘图应保存在您刚刚定义的目录中。您也可以在定义文件名时只粘贴整个方向。

如何调整在 R 中创建的图表的大小并粘贴到 powerpoint 中，同时仍保持图表清晰易读？

How do I resize charts created in R and paste in powerpoint while still keeping the figures sharp and readable?

powerpoint

r

ggplot2

r-markdown