task-4147/different-exit-address-1.R

   1 library(ggplot2)
   2 d <- read.csv("out/different-exit-address.csv", stringsAsFactors = FALSE)
   3 d <- data.frame(
   4   date = as.Date(as.POSIXct(d$timestamp, origin = "1970-01-01 00:00:00")),
   5   differentaddress = d$differentaddress,
   6   writtenbytes = d$writtenbytes)
   7 d <- aggregate(list(writtenbytes = d$writtenbytes),
   8   by = list(date = d$date, differentaddress = d$differentaddress),
   9   FUN = sum)
  10 write.csv(d, file = "different-exit-address-aggregate.csv", quote = FALSE,
  11   row.names = FALSE)
  12