R로 배우는 코딩 1 - 파이차트, 바차트, 에니메이션(카운트다운), 구글맵에 위치 나타내기

1. 파이차트 

3시 방향을 기준으로 시작하며 시계 반대방향을 순서로 나타낸다.

> x<-c(9, 15, 20, 6)

> x

[1]  9 15 20  6

> label<-c("영업1팀", "영업2팀", "영업3팀", "영업4팀")

> label

[1] "영업1팀" "영업2팀" "영업3팀" "영업4팀"

> pie(x, labels=label, main="부서별 영업 실적")

2. 바 차트

> height<-c(9, 15, 20, 6)

> heignt

[1]  9 15 20  6

> name<-c("영업1팀", "영업2팀", "영업3팀", "영업4팀")

> barplot(height, names.arg=name, main="부서별 영업 실적", col=rainbow(length(height)), xlab="부서", ylab="영업실정(억 원)")

3. 에니메이션을 숫자 카운트다운 하기

> install.packages("animation") //에니메이션을 위한 패키지 설치

> library(animation) //패키지 로딩

> ani.options(interval=1) //1초 간격

> plot.new() //새로운 그래픽 프레임 출력

> for(i in 10:0) //i값을 10~0까지 1씩 감소

+ {rect(0, 0, 1, 1, col="yellow")  //그래픽 출력 영역 최대 설정, 색상은 노란색

+     text(0.5, 0.5, i, cex=5, col=rgb(.2,.2,.2,.7)) //0.5, 0.5 위치에서 i값 출력, cex - 글자 크기(5가 디폴트), rgb - 글자 색, alpha - 투명도 

+     ani.pause()}

4. 구글맵에 위치 나타내기

//패키지 설치

> install.packages("ggplot2")

> install.packages("RgoogleMaps")

> install.packages("ggmap")

//패키지 로딩

> library(ggplot2)

> library(RgoogleMaps)

> library(ggmap)

> names <- c("1.도담삼봉/석문", "2, 구담/옥순봉")

> names

[1] "1.도담삼봉/석문" "2, 구담/옥순봉" 

> addr<-c("충청북도 단양군 매포읍 삼봉로 644-33", "충청북도 단양군 단성면 월악로 3827")

> addr

[1] "충청북도 단양군 매포읍 삼봉로 644-33" "충청북도 단양군 단성면 월악로 3827"  

> gc<-geocode(enc2utf8(addr)) //주소지의 위도, 경도

> gc

       lon      lat

1 128.3433 37.00300

2 128.2560 36.93046

> df<-data.frame(name=names, lon=gc$lon, lat=gc$lat) //이름, 경도, 위도에 대한 항목명을 각각 name, lon, lat로 하는 데이터 프레임 만들기

> df

             name      lon      lat

1 1.도담삼봉/석문 128.3433 37.00300

2  2, 구담/옥순봉 128.2560 36.93046

> cen<-c(mean(df$lon), mean(df$lat)) //데이터 프레임에 있는 모든 경도, 위도에 대한 평균치

> cen

[1] 128.29964  36.96673

> map<-get_googlemap(center=cen, maptype="roadmap", zoom=11, marker=gc) //지도 중심을 위도, 경도 평균값으로 설정, marker : 각 위도, 경도에 마커 설정

> ggmap(map, fullpage=TRUE) //fullpage = TRUE :여백 없이 지도 출력