title: reduce size of plots in ggplot
body: <p>I want to reduce size of GGplot I created. The size exceeds 50mbs I think there is a problem with size, Kindly help</p>
  
  <pre><code>data=read.csv("C:/Users/Muhammad Faisal/Desktop/WP07/FORMC.csv",header=T)
  tiff('FORMCOBSPRED.JPEG', units="in", width=4, height=3, res=1200)
  ggplot(data=data, aes(y=Enalapril, x=Predicted))+theme_bw()+ geom_abline( size=1,col="black",linetype=(1))+
    geom_point(data=data, colour="black", size=1)+
    theme(axis.title.x = element_text( size=12),
          axis.text.x  = element_text( vjust=0.5, size=12,colour = "black"))+
    theme(axis.title.y = element_text( size=12),
          axis.text.y  = element_text( vjust=0.5, size=12,colour = "black"))+
    scale_shape(solid =F)+geom_smooth(method="lm",se=F, size=1, colour="red",linetype=(2))+
    ylab("Observed enalapril (ug/L)")+xlab("Predicted enalapril (ug/L)")+ scale_y_continuous(breaks=seq(0,120,30))+ scale_x_continuous(breaks=seq(0,120,30))+
    theme(plot.title = element_text(hjust = 0.5 ))
  dev.off()
  </code></pre>