代码之家 › 专栏 › 技术社区 › Chris

在给定大小的PowerPoint幻灯片中绘制ggplot2图-r

officer powerpoint ggplot2 r

Chris · 技术社区 · 6 年前

我想画一个 ggplot2 在Power Point幻灯片中使用 officer 包裹。实际上我能做到(打印 GGPROTT2 直接在PPT),但因为我需要增加 GGPROTT2 图表(PPT幻灯片),我明白 GGPROTT2 图形取决于窗口的大小(在 RStudio )或者,无论您将其设置为如何导出,我都在寻找一种方法:(1)导出具有给定大小的ggplot2图(例如: height=5, width=8 ),(2)从PPT代码导入/读取:

library(officer)
library(devEMF)
library(magrittr)
library(ggplot2)

t <- "../example.pptx"
filename <- gg

read_pptx() %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_img(src = filename, width = 6, height = 4, type = "body") %>% 
  print(target = t)

gg 是来自ggplot2的任何情节(实际上并不重要)。 t 是输出文件地址。

ph_with_img

PowerPoint documents and graphics

PD:如果有一些包/命令我不知道,但我仍然找不到,在那里我可以编辑ggplot2的大小,那么所有这些都是不必要的。

1 回复 | 直到 6 年前

Adam 6 年前

我首先成功地挽救了 ggplot2 图形化为.png,然后将该文件调用到 ph_with_img . 有点迂回,但它起作用。您还可以将图形另存为 ?tempfile 然后 ?unlink 但是我有点喜欢我的图表的文件夹。

ggplot() +
  (code for my ggplot)

ggsave("../thisplot.png", width = 6, height = 4)

read_pptx() %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_img(src = "../thisplot.png", width = 6, height = 4, type = "body") %>% 
  print(target = t)

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前