## Constructing an example data frame
pos <- c("start", "start", "start", "region", "region","region","region", "stop","stop","stop")
upstream <- c(500, 0, 250, 0, 0, 500, 500, 500, 0, 250)
downstream <- c(0, 500, 250, 0, 500, 0, 500, 0, 500, 250)
level <- c(1, 1, 2, 3, 4, 5, 6, 1, 1, 2)
cor <- seq(-1,1, length=10)
info <- data.frame(pos=pos, upstream=upstream, downstream=downstream, level=level, cor=cor, stringsAsFactors=FALSE)
rownames(info) <- letters[1:10]
## Generate plot
correlationPlot(info)
Run the code above in your browser using DataLab