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

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

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