관리 메뉴

moozi

인구이동 통계 워드클라우드 본문

TIS_2019/R데이터분석_2기

인구이동 통계 워드클라우드

moozi 2019.11.09 10:27

##################

install.packages("worldcloud")
library(wordcloud)

word<-c("인천광역시","강화군","옹진군")
frequency<-c(651,85,61)

wordcloud(word, frequency, colors="blue" )

wordcloud(word, frequency, random.order = F, 
          random.color = F, colors = rainbow(length(word)))

install.packages("RColorBrewer")
library(RColorBrewer)

pal2<-brewer.pal(8,"Dark2")

wordcloud(word, frequency, random.order = F,
          random.color = F,colors = pal2)

data<-read.csv(file.choose(),header = T)

data2<-data[data$행정구역.시군구.별!="전국",]

x<-grep("구$",data2$행정구역.시군구.별)

x

##구 제외
data3<-data2[-c(x),]

data3

##순이동수 0 제외
data4 <- data3[data3$순이동.명>0,]

word<- data4$행정구역.시군구.별
frequency<-data4$순이동.명

wordcloud(word, frequency,
          random.order = F,
          random.color = F,
          colors=pal2)

 

 

 

101_DT_1B26001_A01_M.csv
0.02MB

'TIS_2019 > R데이터분석_2기' 카테고리의 다른 글

R Web crawling  (0) 2019.11.15
R 카카오맵  (0) 2019.11.09
인구이동 통계 워드클라우드  (0) 2019.11.09
oracle table to excel  (0) 2019.11.02
분석데이터  (0) 2019.11.02
script1.R  (0) 2019.11.02
0 Comments
댓글쓰기 폼