a <- 1:5 a1 <- (a*2)+20 a2 <- (a+10)*1.2 a3 <- (a^1.1)/15 +20 range(a1) range(a2) range(a3) plot(a, ylim = c(0,max(a1)), type='b') lines(a1, col='red', type='b') lines(a2, col='blue', type='b') lines(a3, col='green', type='b') varNames <- c('사과', '배', '당근','말')varNames #---------- scatter plot ------------years <- 2010:2014plot(years, a, ylim = c(..
