我检查代码没有发现错误，却不知问题出现在哪里，坐标轴的字体只能显示为宋体却不能加粗，各位帮帮忙解答一下，谢谢各位~
下面我的代码
setwd("C:/R/temp")
library(RColorBrewer)
library(directlabels)
library(extrafont)
library(graphics)
library(extrafont)
library(ggplot2)
data <- read.csv("肝癌数据.csv")
data$Age <- factor(data$Age,levels=unique(data$Age))
old_theme <- theme_update(
axis.title.x=element_text(family="simsun", size=10,face="bold",colour="black"),
axis.title.y=element_text(family="simsun", size=10,face="bold",colour="black", angle=90),
axis.text.x=element_text(family="simsun", size=10, colour="black"),
axis.text.y=element_text(family="simsun", size=10, colour="black"),
axis.ticks=element_line(colour="black"),
panel.grid.major=element_blank(),
panel.grid.minor=element_blank(),
panel.background=element_blank(),
legend.position="none",
axis.line=element_line(size=0.2))
mycolors = c(brewer.pal(name="Dark2", n = 8), brewer.pal(name="Paired", n = 6))
p <-
ggplot(data, aes(x=period,y=rate,group=Age,color=Age))+
geom_line(size=0.2)+
scale_y_log10(breaks = c(0,1,10,100,200))+
scale_x_continuous(limits=c(1920,2000),breaks = seq(1920,2000,20))+
xlab("出生年份")+
ylab("发病率（1/10万）")+
geom_dl(aes(label = Age),
method = list(dl.combine("last.points"),
cex = 0.8))+
scale_color_manual(values = mycolors)+
old_theme
require(Cairo)
Cairo(5.5, 4, file="Figure9.pdf", type="pdf", units = "in")
print(p)
dev.off()
这是部分数据
period rate Age
1980 0.345108135 20
1981 0.330864259 20
1982 0.244632358 20
1983 0.386849191 20
1984 0.348185172 20
1985 0.60524794 20
1986 0.216910329 20
1987 0.418737016 20
1988 0.358014879 20
1989 0.396457454 20
1990 0.678819981 20
1991 0.402451505 20
1992 0.182738408 20
1993 0.200432132 20
1994 0.067254606 20
谢谢~
