IQ and birth year

It is said that Goethe's IQ is over 200. Really?
I got data from URL below and add birth year.
I visualized famous IQ. (The legend shows only 5 categories (others are turned off). You can click and show other categories.)
http://aceviper.net/estimated_iq_of_famous_people.php

So what?

Interestingly, before 17th Century, there is no people who have under 150 IQ.
At that time, IQ test was not developed yet, their IQs are just speculation.
The IQ which people hope the genius to have seems to be 150 at least. Hmm...

Code

library(rCharts)
library(RCurl)
# get data
s <- "https://docs.google.com/spreadsheet/pub?key=0AroiXQuUrfhwdGhTUEN1TXBDUE9GLW9KcUg3OWltWkE&output=csv"
x <- getURL(s, ssl.verifypeer = FALSE, .encoding ="UTF-8")
iqdata <- read.csv(text=x, as.is=TRUE)
iqdata <- subset(iqdata, !is.na(birth))
iqdata$x <- iqdata$birth
iqdata$y <- iqdata$IQ

# visualize
h1 <- Highcharts$new()
h1$chart(type="scatter")
for(des in unique(iqdata$description)[1:5]){
  h1$series(data=toJSONArray2(subset(iqdata, description==des), json = F),
            name=des)
  }
for(des in unique(iqdata$description)[-(1:5)]){
  h1$series(data=toJSONArray2(subset(iqdata, description==des), json = F),
            name=des,
            visible=FALSE)
  }

h1$xAxis(title = list(text = "Birth Year"))
h1$yAxis(title = list(text = "IQ"))
h1$legend(align = 'right', 
          verticalAlign = 'top', 
          layout = 'vertical',
          title = list(text = "description"))
h1$plotOptions(scatter = list(marker = list(symbol = 'circle')))
h1$tooltip(useHTML = T, 
           formatter = "#! function() {
           return  '<p><h4>' + this.point.name + '</h4></p>'+
           this.point.description; } !#")
h1$title(text = "IQ and birth year")
h1$show("iframesrc", cdn=TRUE)