Skip to content

Instantly share code, notes, and snippets.

@guilespi

guilespi/mutagenesis.R

Created October 28, 2013 16:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save guilespi/7200247 to your computer and use it in GitHub Desktop.
Save guilespi/7200247 to your computer and use it in GitHub Desktop.
Download ZIP
charting
Raw
mutagenesis.R
library(ggplot2)
library(reshape2)
results <- read.csv("/Users/guilespi/Downloads/practico 3 - datos - mutagenesis.csv")
results$NroGrupo <- paste(results$Grupo, ".", results$Subgrupo)
timedMeasures <- melt(results, id.vars = c("Grupo", "Subgrupo", "NroGrupo", "Hongo", "Distancia", "Potencia"), value.name="Colonias", variable.name="Tiempo")
ggplot(timedMeasures, aes(x = Tiempo, y = Colonias, colour = NroGrupo)) + geom_line(aes(group = NroGrupo))
results$sobrevida <- (results$t5 / results$t0) * 100
ggplot(data=results, aes(x=NroGrupo, y=sobrevida, fill=Potencia)) +
geom_bar(colour="black", stat="identity")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment