Advertisement
Guest User

Untitled

a guest
Jan 26th, 2011
63
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(ggplot2)
  2.  
  3. data <- read.table("c:\\backup\\src\\prd6287\\system_monitor_parser_tinky.csv",
  4. header=TRUE,
  5. sep=",",
  6. quote="\"")
  7. data$timestamp_obj <- as.POSIXct(data$timestamp, format="%Y:%M:%D %H:%M:%S")
  8. dfm1 <- melt(data, id="timestamp_obj", measure=c("kernel_size", "total_process_rss", "page_cache_size", "used_memory"))
  9.  
  10. # variable scales
  11. # qplot(timestamp_obj, value, data=dfm1, geom="line", colour=variable) + facet_grid(facets = variable ~ ., scales="free") + opts(title=expression("aku"))
  12.  
  13. # constant scales
  14. qplot(timestamp_obj, value, data=dfm1, geom="line", colour=variable) + facet_grid(facets = variable ~ .) + opts(title=expression("tinky"), panel.grid.major = theme_line("grey", size=0.1))
Advertisement
RAW Paste Data Copied
Advertisement