initial virtual life ~ n (average interactions), natural isolates

Plot initial virtual life ~ n (average interactions)

plot( report2$t0 ~ report2$n, col='red', xlim=c(5.5, 9), ylim=c(25, 80), pch=19, xlab='n', ylab='t0')
my.x = report2$n + 0.1; my.y = report2$t0 + 2; 
names(my.x) = report2$strains; names(my.y) = report2$strains; 
my.y[c("M14","SGU57", "M32","M13" )]=c(52, 52, 33, 38)
text(my.x,my.y, report2$strains )