R twitteR Analysis: How HOT is the Lynas Rare Earths Mining Malaysia?

Since Lynas Malaysia Corporation, Australia Rare Earth Refiner Granted Malaysia License, it is always a very hot topic. This can be proven through the daily tweets across recent 7 days. This chart was built by Tweets Keyword Trending Application @ http://www.cloudstat.org/index.php?do=/kaichew/blog/tweets-keyword-trending-application/

Result:

> xA
[1]  300  293  359  860 1167 1488 1490

Source code:

y < -“lynas”

library(twitteR)

n=1500
z=1:7

#Today
s0 < - searchTwitter(y, n, since=as.character(Sys.Date()))
x0 < - length(s0)

#Yesterday
s1 < - searchTwitter(y, n, since=as.character(Sys.Date()-1), until=as.character(Sys.Date()))
x1 < - length(s1)

#Yesterday2
s2 < - searchTwitter(y, n, since=as.character(Sys.Date()-2), until=as.character(Sys.Date()-1))
x2 < - length(s2)

#Yesterday3
s3 < - searchTwitter(y, n, since=as.character(Sys.Date()-3), until=as.character(Sys.Date()-2))
x3 < - length(s3)

#Yesterday4
s4 < - searchTwitter(y, n, since=as.character(Sys.Date()-4), until=as.character(Sys.Date()-3))
x4 < - length(s4)

#Yesterday5
s5 < - searchTwitter(y, n, since=as.character(Sys.Date()-5), until=as.character(Sys.Date()-4))
x5 < - length(s5)

#Yesterday6
s6 < - searchTwitter(y, n, since=as.character(Sys.Date()-6), until=as.character(Sys.Date()-5))
x6 < - length(s6)

xA < - c(x6, x5, x4, x3, x2, x1, x0)

df.bar < - barplot(xA)

barplot(xA, main=”How Hot is Lynas Recently?”, xlab=”Days”, 
   ylab=”Total”, names.arg=c(“Yes6”,”Yes5”,”Yes4”,”Yes3”,”Yes2”,”Yes1”,”Today”),
   border=”blue”, density=c(10,20,30,40,50,60,70))
lines(x = df.bar, y = xA, col=”red”)
points(x = df.bar, y = xA, col=”yellow”)
abline(lm(xA~z))
#

Last but not least. Save Malaysia, Stop Lynas!