Create Cis_trans_plot.R