Обновление:
Когда я использовал ggsave()
или pdf()
для сохранения рисунка, он работает, но с предупреждением:
семейство шрифтов 'Times-Roman' не найдено, будет использоватьвместо 'sans'
На самом деле у меня установлен этот шрифт в моей ОС, и R studio может правильно его отобразить. И вывод в растровые файлы хорошо, такие как PNG, TIFF. Проблема возникает только при выводе в PDF-файлы. Может быть, что-то не так в моей ОС ENV.
Спасибо за помощь.
Когда я экспортировал рисунок в pdf, нажав кнопку Export
в R studio, я нашелчто после установки семейства шрифтов экспортированный pdf-файл будет содержать только часть моей фигуры.
Это ошибка или просто некоторые ошибки, которые я ошибаюсь?
Вот мой код и результат:
R version 3.5.2 (2018-12-20) -- "Eggshell Igloo"
Platform: x86_64-apple-darwin16.7.0 (64-bit)
library('ggplot2')
library('gridExtra')
x = c(1:30)
y1 = 1.3^x + 10
y2 = x
class = c(rep('A',14),'B',rep('A',14),'D')
df1 = data.frame(x=x,y=y1,class = class)
df2 = data.frame(x=x,y=y2,clas = class)
P1 <- ggplot(df1,aes(x=x,y=y1,fill=class)) + geom_bar(stat = "identity") +
theme(text = element_text(family = 'Times-Roman'))
P2 <- ggplot(df2,aes(x=x,y=y2,fill=class)) + geom_bar(stat = "identity") +
theme(text = element_text(family = 'Times-Roman'))
grid.arrange(P1,P2,ncol=2)
И я не могу получить всю цифру после экспорта