Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 15 lines (12 sloc) 0.601 kb
bfba8cf3 »
2012-11-28 r-help
1 # This has two colors.
2 overflow <- read.csv('overflow.csv', stringsAsFactors = F)
9f62f04e »
2012-11-28 ask a question
3 png('original.png')
bfba8cf3 »
2012-11-28 r-help
4 stripchart(overflow$precipi ~ overflow$after.9.am, method='stack', pch = 22, bg = overflow$overflow + 1, vertical = T, col = 0)
9f62f04e »
2012-11-28 ask a question
5 dev.off()
bfba8cf3 »
2012-11-28 r-help
6
9f62f04e »
2012-11-28 ask a question
7 # I wanted continuous bands of color, so I sorted the data frame.
8
9 # But after sorting, it only had one color.
bfba8cf3 »
2012-11-28 r-help
10 overflow.sorted <- overflow[order(overflow$overflow),]
9f62f04e »
2012-11-28 ask a question
11 png('sorted.png')
bfba8cf3 »
2012-11-28 r-help
12 stripchart(overflow.sorted$precipi ~ overflow.sorted$after.9.am, method='stack', pch = 22, bg = overflow.sorted$overflow + 1, vertical = T, col = 0)
9f62f04e »
2012-11-28 ask a question
13 dev.off()
14
15 # What's wrong?
Something went wrong with that request. Please try again.