R ggplot2画误差折线图

传送门 http://blog.csdn.net/tanzuozhev/article/details/51106089 

          http://blog.csdn.net/tanzuozhev/article/details/51108040

          http://blog.sina.com.cn/s/blog_69ffa1f90101siel.html

数据集 

ggplot(tgc, aes(x=thickness,  

 y=temperature,colour=factor(Laser.energy),shape=factor(Laser.energy),group=Laser.energy)) + 

      geom_errorbar(aes(ymin=temperature-se, ymax=temperature+se),colour="black",width=.1) +
      geom_line()+
      geom_point(size=3,fill="white")+
     xlab("thickness[mm]")+

            ylab("temperature[℃]")+
           ggtitle("LASER ALL-CERAMIC CROWN REMOVE")+
           scale_colour_discrete( name  ="Laser energy",
                          breaks=c(300,250,200,150,100,50),
                          labels=c("300 mJ", "250 mJ","200 mJ","150 mJ","100 mJ","50 mJ"))+
            scale_shape_discrete( name  ="Laser energy",
                          breaks=c(300,250,200,150,100,50),
                          labels=c("300 mJ", "250 mJ","200 mJ","150 mJ","100 mJ","50 mJ"))

效果图