Mine tweets

Dette er min første app i R. Bare en visualisering af mine tweets over tid:

Sproget virker kraftfuldt. Jeg ville ønske, jeg havde flere virkelige opgaver at øve mig med R på.

tweets <- read.csv(file="tweets.csv",
                   head=TRUE,
                   sep=",",
                   colClasses=c("NULL","NULL","NULL",NA,"NULL","NULL","NULL"))

tweets$date <- as.Date(substr(tweets$timestamp, 0, 10))

tweets$hours <- as.integer(substr(tweets$timestamp, 12, 13))
tweets$minutes <- as.integer(substr(tweets$timestamp, 15, 16))
tweets$seconds <- as.integer(substr(tweets$timestamp, 18, 19))

tweets$numeric_time <- tweets$hours * 3600 + tweets$minutes * 60 + tweets$seconds

plot(tweets$date,
     tweets$numeric_time,
     xlab = "",
     ylab = "time of the day",
     yaxt="n")