Computing trends in programming languages

fit.R

# Read all the collected data
java = read.csv(file = "java.csv", header = F, sep = ",")
javascript = read.csv(file = "javascript.csv", header = F, sep = ",")
python = read.csv(file = "python.csv", header = F, sep = ",")
ruby = read.csv(file = "ruby.csv", header = F, sep = ",")

# Sort the data by watchers/forks to format them
java_sorted = java[order(java$V4),]
javascript_sorted = javascript[order(javascript$V4),]
python_sorted = python[order(python$V4),]
ruby_sorted = ruby[order(ruby$V4),]

# Process it against any two programming languages
plotdata = data.frame(java = java_sorted$V4, javascript = javascript_sorted$V4)
f = javascript ~ java + 0
lmfit = lm(f, plotdata)
plot(plotdata)
abline(lmfit)
lmfit