ggplot2 : 포함 된 글꼴이 포함 된 EPS로 플롯 저장

Question

저널은 수치를 EPS 파일로 제출하기를 원합니다. ggplot2를 사용하여 EPS 파일로 EPS 파일로 내 보낸 다음 Adobe Illustrator에서 EPS 파일을 열면 "시스템에서 글꼴을 찾을 수 없습니다"라는 메시지가 나타납니다.

어떻게 해결합니까? 다음은 현재 사용하고있는 구문입니다.

library(ggplot2)  
a <-c("Sad Mood", "Cognition", "Fatigue", "Interest Loss", "Slowed", "Self-blame", "Suicidal Ideation", "Early insomnia", "Appetite", "Late insomnia", "Agitated", "Weight", "Middle insomnia", "Hypersomnia", "Age", "Sex") 
b <-c(20.7,16.5,13.8,13.1,8.8,6.4,6.1,3.6,3.0,2.5,2.1,1.3,0.9,0.7,0.4,0.1) 
c <-c(17.90,13.64,11.36,10.72,6.99,4.60,4.68,2.38,2.09,1.65,1.35,0.76,0.47,0.24,0.15,0.03) #lower CI 
d <-c(23.47,19.27,16.28,15.74,10.64,8.20,7.95,5.07,4.21,3.63,2.99,2.22,1.59,1.62,0.95,0.31) #upper CI 

data <- data.frame(a,b,c,d) 
data1 <- transform(data, a = reorder(a, order(b, decreasing = FALSE))) 
data1$label <-sprintf("%.1f", data1$b) 

ggplot(data1, aes(x=as.factor(a), y=b, order=a))+ 
    geom_bar(stat="identity",fill='#888888',colour='#888888') +theme_bw() +coord_flip() + 
    ylab("Relative importance estimation in %") +xlab("") + 
    geom_errorbar(aes(ymin=c, ymax=d), width=.3, size=.5)+ 
    geom_text(aes(label=label), size=4.5, vjust=.4,hjust=-1.5)+ 
    scale_y_continuous(limits = c(-0, 25))+ 
    theme(axis.text.x = element_text(size = 13))+ 
    theme(axis.text.y = element_text(size = 13))+ 
    theme(axis.title.x = element_text(size = 14, vjust=-.2)) 

Answer 1

내가 과거에이 같은 문제를 해결하는 데 사용 extrafont라는 R 패키지가있다. Here은 내가 사용한 해결책입니다.

기본적으로 R이 사용할 글꼴 데이터베이스와 포스트 스크립트에서 사용할 글꼴 데이터베이스가 있습니다. 대부분 내가 위의 작업을 12-27 행으로 할 필요는 없지만 비표준 명명 체계가있는 글꼴을 사용하는 경우 R의 글꼴 데이터베이스를 수동으로 편집해야합니다.

주요 문제는 R 및 PS에서 글꼴 이름 (및 글꼴 패밀리 이름)이 동일하다는 것입니다. extrafont (글꼴 데이터베이스를 처음으로 설치하여 R로 설치)를 설치하고 글꼴을 올바른 장치로로드하여 그렇게 할 수 있어야합니다.