Plot raw coverage for copy number data

I have raw copy number like

> head(cndata[,-1])
  Chromosome     Start       End Total_CN Minor_CN
1          1     10583   3457311        2        0
2          1   3458681 143542402        1        0
3          1 143542478 144839407        2        0
4          1 144839411 144951386        2        1
5          1 144951543 145380399        2        0
6          1 145380949 148192510        2        1
>

I need a plot for each chromosome

I have this but chromosome wise they are not clear, for instance for chromosome one enter image description here