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) matplot(as.integer(strtrim(x[,1], 4)), x[,2:4], type="b", pch=16, xlab="年次", ylab="年平均気温(基準値からの偏差)") grid() legend("topleft", pch=16, lty=1:3, col=1:3, legend=names(x)[2:4])