Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 13 lines (10 sloc) 0.365 kb
#!/usr/bin/env Rscript
require(ggplot2)
args <- commandArgs(TRUE)
filename <- args[1]
dance.data <- read.table(filename, col.names=c("label", "x", "y", "theta", "sine"))
dance.data$time <- 1:nrow(dance.data)
dance.plot <- ggplot(dance.data, aes(time, sine)) + geom_line(aes(color=label, group=1))
svg(paste(filename, ".svg", sep=""))
print(dance.plot)
dev.off()
Jump to Line
Something went wrong with that request. Please try again.