All my life

Here is a little script to show you your life. In weeks. Each point is a week. Each black point is a week that you have already spent. The number of weeks corresponds to 90 years, which is higher than the current life expectancy anywhere in the world.

Have fun.

birthdate <- "1973-05-25"
seq1 <- 1:(as.numeric((Sys.Date() - as.Date(birthdate)))/7) - 1
seq2 <- 1:(90*52) - 1
plot(NULL, xlim=c(0,53), ylim=c(91, 0), bty="n", xlab="Week of the year", ylab="Age")
points(seq2 %% 52, floor(seq2 / 52), pch=15, col="grey")
points(seq1 %% 52, floor(seq1 / 52), pch=15)

mylife

Advertisements

2 thoughts on “All my life

  1. Your past looks a bit depressing. How about this?

    birthdate <- "1989-08-29"
    seq1 <- 1:(as.numeric((Sys.Date() - as.Date(birthdate)))/7) - 1
    seq2 <- 1:(90*52) - 1
    plot(NULL, xlim=c(0,53), ylim=c(91, 0), bty="n", xlab="Week of the year", ylab="Age")
    points(seq2 %% 52, floor(seq2 / 52), pch=15, col="grey")
    points(seq1 %% 52, floor(seq1 / 52), pch=15, col = sample(rainbow(20)))
    

Comments are closed.