library("XML") URL <- "http://www.data.jma.go.jp/cpdinfo/temp/list/an_wld.html" x <- readHTMLTable(URL, colClasses=c("character",rep("numeric",3)), which=1) y <- as.integer(strtrim(x[,1], 4)) z <- ts(x[,2:4], start=head(y, 1), end=tail(y, 1), freq=1) plot(z, main="年平均気温(摂氏での基準値からの偏差)の推移", xlab="年")