R> sample = ggplot(data=data.frame(x=runif(10),y=runif(10)),aes(x,y)) +
         geom_point(aes(color=x))

tikz("./figures/sample.tikz",width = 6,height=6/sqrt(2))
  print(sample)
dev.off()

begin{figure}[htbp]
    centering
    input{figures/sample.tikz}
end{figure}

pgfimage[width= 14.45pt,height= 72.27pt,interpolate=true]{sample_ras1}};

pgfimage[width= 14.45pt,height= 72.27pt,interpolate=true]{figures/sample_ras1}};