R로 배우는 코딩 2 - 워드 클라우드, 동전 던지기 시뮬레이션

1. 워드 클라우드

//패키지 설치

> install.packages("wordcloud")         //워드 클라우드 패키지

> install.packages("RColorBrewer")     //팔레트 패키지

//패키지 로딩

> library(wordcloud)

> library(RColorBrewer)

> pa12<-brewer.pal(8, "Dark2")         //Dark2 팔레트 생성

> x<-c("국민", "신한국사회", "민족", "정치", "문학")     //키워드

> y<-c(5, 4, 12, 5, 8)                                             //키워드의 빈도

> wordcloud(x, y, colors=pa12) //단어의 크기를 빈도수에 따라 Dark2 팔레트의 색으로 출력

2. 동전 던지기 시뮬레이션

> interation<-5000                      //시행 횟수

> plot(0, 0, xlab="동전 던진 횟수", ylab="앞면이 나오는 비율", xlim=c(0, interation), ylim=c(0 , 1))     

//xlab, ylab : 라벨, xlim, ylim : 크기

> abline(a=0.5, b=0, col="red")     //수학적 확률(b:기울기, a:y절편)

> sum<-0 //앞면이 나오는 횟수

> for(x in 1:interation){                 //x를 1부터interation(5000)까지 할당하면서 반복

+     y<-sample(c("front", "back"), 1, replace=T) //동전에서 한 면 추출

+     if(y=="front")                     //앞 면 나오면 앞면이 나오는 횟수에 1추가

+         sum=sum+1

+     prob<-sum/x                     // 동전을 던진 총 시행 횟수에 대한 앞면이 나온 비율

+     points(x, prob)                  // 시행 횟수와 비율을 그래프에 추가

+ }