Тексты в графиках не отображаются при копировании в текстовые документы [R, ggplot, MS WORD]

Question

Я сделал график в R с пакетом ggplot при изменении шрифта текстов, используя следующий код.

require(ggplot2)
require(extrafont)
x1 <- runif (100,0,1)
x2 <- x1 + runif (100,0,1)

d <- data.frame(x1=x1, x2=x2)
ggplot(d, aes(x1, x2))+geom_point()+
  geom_smooth()+
  ggtitle("") +
  xlab("A") + ylab("Proportion") +
  theme_bw() +
  theme(text=element_text(family="Times New Roman", face="bold", size=12))

Используя RStudio, я экспортировал график в формате PDF. Затем я импортировал график в мой текстовый документ. Тем не менее, тексты не отображаются на графике, когда я открываю документ с помощью Microsoft Word. Этого не происходит, когда я не меняю шрифт Times New Roman.

Буду признателен, если услышу какие-либо предложения. Спасибо.

Answer 1

Благодаря множеству полезных комментариев и особенно ссылке, предоставленной Джоном Спрингом, я смог решить свою проблему.Я хотел бы записать код здесь для тех, кто попадает сюда из-за аналогичной проблемы.

Подход, который я выбрал, заключался в том, чтобы встраивать шрифты в PDF-файлы с помощью функции embedFonts пакета extrafont.

require(ggplot2)
require(extrafont)
x1 <- runif (100,0,1)
x2 <- x1 + runif (100,0,1)
d <- data.frame(x1=x1, x2=x2)

pdf("a.pdf")

ggplot(d, aes(x1, x2))+geom_point()+
          geom_smooth()+
          ggtitle("") +
          xlab("A") + ylab("Proportion") +
          theme_bw() +
          theme(text=element_text(family="Times New Roman", face="bold", size=12))

dev.off()

embedFonts(file = "a.pdf")