Create ggplot_echos.R