Блог

Главная - Вопросы по программированию - Ошибка в grid.Call.graphics(C_text, как.graphicsAnnot(x$label), x$x, x$y, : неверный тип шрифта

Ошибка в grid.Call.graphics(C_text, как.graphicsAnnot(x$label), x$x, x$y, : неверный тип шрифта

#r #pdf #ggplot2 #fonts #r-markdown

Вопрос:

Я пытаюсь заставить rmarkdown выводить pdf-файл для каждого отдельного идентификатора(строки). У меня есть китайский шрифт в ggplot().

Содержимое rmarkdown выглядит следующим образом:

 #Report Analysis

library(ggplot2)

chinesetext=theme(text=element_text(family='STXihei')) # add support on chinese in ggplot

ggplot(subgroup) 
  geom_line(data=subgroup,aes(y=mpg,x=wt,color='c1')) geom_point(aes(y=mpg,x=wt)) 
  geom_line(data=subgroup,aes(y=cyl,x=wt,color='c2')) geom_point(aes(y=cyl,x=wt)) 
 scale_color_manual(values=c('c1'='red','c2'='orange'),labels=c('xx','yy')) 
  labs(x='t',y='score') 
  chinesetext

Сценарий R выглядит следующим образом:

 library(rmarkdown)
for (id in unique(mtcars$carb)){
  subgroup <- mtcars[mtcars$carb == id,]
  render("/Users/mtcars.Rmd",output_format='pdf_document',output_file = paste0('report.', id, '.pdf'))    
}

Я получил ошибку:

 Quitting from lines 10-25 (mtcars.Rmd) 
Error in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  : 
  invalid font type
In addition: There were 50 or more warnings (use warnings() to see the first 50)

Я перепробовал много решений, которые люди обсуждали в Интернете, но безуспешно. Я знаю, что это проблема со шрифтом, как указано в ошибке. Кто-нибудь испытал это и разобрался в этом? Я могу запустить код для вывода HTML-документов, но мне действительно нужен PDF. Большое спасибо.

Метки: , , , ,