col<-c("#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602")
P1=ggplot(data=data_IL6[!is.na(data_IL6$Conc),],aes(x=Time,y=Conc,color=ID,group=ID))+geom_point(size=1)+geom_line(size=0.5)+theme_bw()
P1=P1+facet_wrap(~Group,scales = "free")
P1=P1+ylab("IL-6 concentration (pg/mL)")+xlab("Time (h)")
P1=P1+scale_x_continuous(breaks=seq(0,3528, 168))
P1=P1+scale_color_manual(values=c("#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602","#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602"))
P1=P1+theme(axis.title=element_text( family = "serif",face='bold', size=7,lineheight = 1),axis.text = element_text( family = "serif",face="bold", color="black", size=4))
P1=P1+theme(axis.text.x=element_text(angle = 45,vjust = 0.85,hjust = 0.75))
P1=P1+theme(legend.text=element_text(size=4))+theme(legend.title=element_blank())
P1=P1+theme(panel.grid=element_blank())
P1
ggsave(P1, file="IL-6.pdf", width=10, height=5)
dev.off()
theme_bw()放前面和放最后,做出来的图片不一样。
放最后,我设置的斜向x坐标轴刻度出不来,哪位大神解答一下,谢谢!