Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (12 sloc) 0.601 kB
# This has two colors.
overflow <- read.csv('overflow.csv', stringsAsFactors = F)
png('original.png')
stripchart(overflow$precipi ~ overflow$after.9.am, method='stack', pch = 22, bg = overflow$overflow + 1, vertical = T, col = 0)
dev.off()
# I wanted continuous bands of color, so I sorted the data frame.
# But after sorting, it only had one color.
overflow.sorted <- overflow[order(overflow$overflow),]
png('sorted.png')
stripchart(overflow.sorted$precipi ~ overflow.sorted$after.9.am, method='stack', pch = 22, bg = overflow.sorted$overflow + 1, vertical = T, col = 0)
dev.off()
# What's wrong?
Jump to Line
Something went wrong with that request. Please try again.