library(ggplot2)
library(dplyr)
data <- read.csv("http://zevross.com/blog/wp-content/uploads/2014/08/chicago-nmmaps.csv", as.is=TRUE)
data$date <- as.Date(data$date)
data <- data %>% filter(date > as.Date("1996-12-31"))
ggplot(data, aes(date, temp, color=season)) + geom_point(size=.5)
밥 아저씨만큼이나 쉽게 그릴 수 있어 참 좋아용. 물론 좀 더 멋지게 그리면 이런 저런 절차가 필요하지만 그것도 금방 익힙니다. ㅎㅎ
날짜 부분에 1996-**-31이 아니라 1996-12-31입니다. 이상하게 바뀌네. =_=