week1 <- c(2383, 1214, 1164, 1037, 976, 914, 906, 874, 715, 712)
week2 <- c(2480, 1977, 1792, 1564, 1507, 1371, 1333, 1317, 1287, 1248)
week3 <- c(3421, 3126, 3049, 2882, 2826, 2768, 2292, 2107, 2082, 2057)
week4 <- c(13902, 11250, 7566, 7332, 7002, 6822, 6312, 6060, 5748, 5736)
week5 <- c(12720, 9204, 7740, 7536, 6312, 5844, 5790, 5736, 5106, 5004)
week6 <- c(9588, 7332, 7146, 6324, 6186, 5892, 5538, 5460, 5166, 5016)
week7 <- c(13482, 11874, 11190, 10764, 10440, 9318, 9246, 8958, 8760, 8634)
week8 <- c(13614, 10698, 9936, 7200, 5826, 5676, 5250, 5220, 4536, 3900)
week9 <- c(10584, 9666, 8784, 7770, 7560, 6240, 6216, 6006, 6000, 5022)
week10 <- c(3600, 3600, 3120, 2658, 2652, 2610, 2580, 2208, 2130, 1956)
week11 <- c(6330, 6000, 5526, 5064, 5022, 4716, 4590, 4572, 4278, 3996)
week12 <- c(17400, 16818, 15606, 14790, 14472, 14400, 12840, 12306, 12000,
11850)
week13 <- c(24786, 13608, 11790, 11526, 10620, 10434, 9606, 9426, 9240, 9204)
week14 <- c(30636, 20196, 17664, 15324, 13739, 13626, 11682, 11652, 9384,
7320)
week15 <- c(32460, 32442, 22296, 21012, 16482, 15858, 11784, 11550, 11538,
10572)
week16 <- c(30120, 26628, 26532, 20448, 19620, 19056, 18306, 18090, 15984,
15612)
week17 <- c(84582, 45702, 30438, 24582, 21936, 21288, 20988, 20658, 18210,
17214)

colors = rainbow(10)

allweeks <- matrix(c(week1, week2, week3, week4, week5, week6, week7, week8,
week9, week10, week11, week12, week13, week14, week15, week16, week17),
ncol=17, dimnames=list(c(1:10),c(1:17)))

png("top-hydra-killers.png")
barplot(allweeks, col=colors, main="Top Hydra killers per week", ylab="Points",
xlab="Week")
legend("topleft", c(paste("Player ",1:10)), fill=colors)
dev.off()