Create dot_line_ggplot2.R