Hi everybody,
I have some CNV data that need to be turned into a chromosomal plot. The format is like this:

    chr start end ploidy loss/gain
    
    chr1 86000000 117150000 1 loss
    
    chr2 70250000 70500000 3 gain
    
    chr2 203050000 204650000 3 gain

(The last column can probably be omitted as we have all the info we need in the ploidy column).
I would like to visualize them on a chromosomal plot. The only tool I've managed to make work with my data is CNANorm (http://www.bioconductor.org/packages/devel/bioc/vignettes/CNAnorm/inst/doc/CNAnorm.pdf), but it insists on analyzing my already analyzed data, so I can't get the results I need. Here's my CNANorm output, although the data points are all wrong because of the extra analysis. ![enter image description here][1]

Any help would be appreciated, please keep in mind that I don't have that much R experience, and that I only need a viewer for the time being.
Thanks everyone :)


  [1]: https://dl.dropboxusercontent.com/u/13728657/TEMP/Public%20-%20Don%27t%20overwrite/CNV%20for%20PR.png
You can plot your data like this. CNVs are plotted as segments with a point corresponding to their midpoint. Chromosomes are separated out into facets. 

    library("ggplot2")

    chr <- c("chr1", "chr2", "chr2")
    start <- c(86000000, 70250000, 203050000)
    end <- c(117150000, 70500000, 204650000)
    center <- start + (end - start)/2
    ploidy <- c(1, 3, 3)
    
    ploidy_df <- data.frame(chr, start, end, center, ploidy)
    
    ggplot(ploidy_df, aes(x=center, y=ploidy)) + 
      geom_point() +
      geom_segment(aes(x=start, y=ploidy, xend=end, yend=ploidy, colour="segment")) + 
      geom_hline(y=2, linetype=2) +
      facet_wrap(~chr) +
      xlab("Position") +
      theme_bw()
![enter image description here][1]

       


  [1]: https://i.imgsafe.org/39e3a1b.jpeg