require(ggplot2)
require(dplyr)
require(reshape2)

parse_15_interval <- Vectorize(function (str) {
  split <- as.numeric(unlist(strsplit(as.character(str), "-")))
  split[2] <- split[2] * 15
  paste("2014-05-27", paste(split, collapse = ":"))
})

apc_shm_size <- 156
memory_available_to_php <- 7224

setwd("/Users/msonnabaum/Acquia/gardens_site_flex")

df.wide <- read.csv("Gardens SiteFlex Analysis - UniqueDomains.csv")
df <- melt(df.wide, id.vars=c("Timeframe"), value.name = "unique_sites", variable.name = "stage")
df <- mutate(df, time = parse_15_interval(Timeframe))

df.flex <- mutate(df, 
  active_apc_memory = unique_sites * apc_shm_size,
  arch = "flex" 
)
df.multisite <- mutate(df,
  active_apc_memory = apc_shm_size,
  arch = "multisite"
)  
df <- rbind(df.flex, df.multisite)
df$time <- as.POSIXlt(df$time)

ggplot(df, aes(time, active_apc_memory, alpha = 0.6)) +
  geom_bar(stat="identity", position = "dodge") +
  geom_hline(aes(yintercept=memory_available_to_php), colour="#CC0000", linetype="dashed") +
  ylab("Possible apc memory usage for active sites") +
  facet_grid(stage ~ arch)