Incheon GRDP

R ggplot

#making a table

year <- rep(grdp1[,1],17)

city <- rep(colnames(grdp1)[-1],each=14)

grdp = grdp1[,2]

for(i in 3:18){grdp <- c(grdp,grdp1[,i])}

grdptable <- data.frame(year, city, grdp)

#추리기

grdpsor <- grdptable[city=='전국'| city=='인천광역시'| city=='충청남도'| city=='서울특별시'| city=='울산광역시'| city=='대구광역시'| city=='광주광역시'| city=='제주특별자치도',]

#line_plot

ggplot(data=grdptable, aes(x=year, y=grdp, color=city, group=city))+geom_line()+geom_point()

ggplot(data=grdpsor, aes(x=year, y=grdp, color=city, group=city))+geom_line()+geom_point()

ggplot(data=grdpsor, aes(x=year, y=grdp, color=city, group=city))+geom_line()+geom_point()+ggtitle('주요 시도 지역내총생산 추이')+xlab('연도')+ylab('지역내총생산')