d<- read.csv(file.choose(),stringsAsFactors=F)
d
d<-na.omit(d)
d
max<- subset(d,d$X2060>=250)
max
min<- subset(d,d$X2060<=150)
min
as.matrix(max)
barplot(max)
¼öÁ¤.
Á¦°¡ ¿øÇϴ°ŴÂ
±¹°¡º° X2010 X2015 X2020 X2025 X2030 X2035 X2040 X2045 X2050 X2055 X2060
2 "¡¡¡¡¡¡Çѱ¹" " 67.2" " 93.1" "123.7" "165.6" "212.1" "253.7" "303.2" "352.7" "399.0" "418.8" "434.6"
4 "¡¡¡¡¡¡ÀϺ»" "168.5" "200.3" "221.6" "235.2" "248.2" "261.6" "279.8" "286.6" "289.7" "290.2" "287.7"
21 "¡¡¡¡¡¡±×¸®½º" "123.0" "137.1" "153.7" "187.5" "219.6" "248.0" "265.3" "280.0" "292.0" "297.1" "299.2"
25 "¡¡¡¡¡¡ÀÌÅ»¸®¾Æ" "146.3" "162.9" "181.3" "205.5" "230.3" "250.8" "264.1" "267.3" "264.5" "259.7" "253.1"
30 "¡¡¡¡¡¡Æú¶õµå" " 88.5" "104.9" "125.4" "156.5" "181.6" "201.4" "219.6" "238.4" "259.2" "277.2" "293.8"
31 "¡¡¡¡¡¡Æ÷¸£Åõ°¥" "125.0" "147.3" "175.5" "208.9" "241.5" "261.7" "279.4" "294.5" "305.1" "310.7" "311.9"
34 "¡¡¡¡¡¡½ºÆäÀÎ" "117.7" "126.6" "143.1" "175.7" "211.6" "244.0" "268.9" "284.3" "286.4" "283.5" "279.6"
¿©±â¼ X2010±âÁØÀ¸·Î °¢ ³ª¶óº° ¼öÄ¡¸¦ ºñ±³Çϴ°̴ϴÙ.