如何用官员更改R的字体系列？

Question

如何在官员中更改R中标题的字体系列？我尝试使用函数fp_text(font.family = "Arial")，但问题是我用fp_text定义的标题不会在目录中结束。

Answer 1

有点痛苦，但我的方式是：

1. 在标题栏中使用ph_empty()添加一个空的占位符
2. 使用ph_add_fpar()，fpar()和ftext()使用fp_text()添加格式化文本，以创建格式化文本对象。

这里是一个示例，说明如何更改标题幻灯片以及标题和内容幻灯片上的标题，假设您要使用的字体为“ Rage Italic”和“ Goudy Stout”：

library(officer)
library(magrittr)

# the formatting you want to use goes here -- check your fonts()
format_main_title <- fp_text(font.family='Rage Italic', font.size=72)
format_page_title <- fp_text(font.family='Goudy Stout', font.size=24)

read_pptx() %>% 
  add_slide(layout = 'Title Slide', master='Office Theme') %>%
  ph_empty(type='ctrTitle') %>%
  ph_add_fpar(fpar(ftext('Fancy Main Title', prop=format_main_title)), 
                      type = 'ctrTitle') %>%
  add_slide(layout = 'Title and Content', master='Office Theme') %>%
  ph_empty(type='title') %>%
  ph_add_fpar(fpar(ftext('Fancy Page Title', prop=format_page_title)), 
                                     type = 'title')  %>%
  ph_with_text(type = 'body', str = 'Boring stuff goes here') %>%
  print('test.pptx')

产生：

您可以在目录中看到这些标题：

话虽如此-如果您发现自己不断将标题字体更改为相同的新格式，则最好使用自己的使用所需字体的Slide Master（相对于默认的“ Office Theme”）创建模板平台并以此开始您的连锁店（即read_pptx('your_template.pptx') %>% etc.）