Gosunari 's diary

아나콘다 기반으로 matplotlib 실행할 때 차트가 잘 안나타난다면

아나콘다 설치경로 안에 matplotlibrc 이라는 파일을 실행

아래 부분에서 backend 부분을 수정

#### CONFIGURATION BEGINS HERE

# The default backend; one of GTK GTKAgg GTKCairo GTK3Agg GTK3Cairo

# MacOSX Qt4Agg Qt5Agg TkAgg WX WXAgg Agg Cairo GDK PS PDF SVG

# Template.

# You can also deploy your own backend outside of matplotlib by

# referring to the module name (which must be in the PYTHONPATH) as

# 'module://my_backend'.

backend      : TkAgg

기존 macosx -> TkAgg

The default backend 종류에서 하나 선택해서 변경하고 저장하면 됨

https://stackoverflow.com/questions/14558843/why-matplotlib-does-not-plot

Mac 터미널에서 아래 명령어 실행 후 

$ open -e .bash_profile

.bash_profile 창이 열리면 파이썬 설치 경로를 입력

export PATH="설치 경로"

# 한국어 텍스트마이닝을 위한 패키지 설치
install.packages("KoNLP")
library(KoNLP)

#한글 세종사전 이용
useSejongDic()

# 텍스트 파일 읽음
# working directory 내에 파일이 있다면 파일 이름만 적어주고
# 그렇지 않다면 파일이 저장되어 있는 경로까지 적어줘야함
# f <- file("파일 경로/test.txt", blocking = F)
f <- file("test.txt", blocking = F, encoding = "UTF-8")

# 텍스트 파일에 있는 문장을 한줄씩 읽어들임
txt <- readLines(f)

# sapply() 리스트 형태가 아닌 행렬 또는 벡터 형태로 결과 값을 반환하는 함수
# 읽어드린 텍스트 파일에서 명사만 추출
nouns <- sapply(txt, extractNoun, USE.NAMES = F)

# 추출된 명사 상위 30개, 하위 30개 확인
# unlist() 결과를 백터 형식으로 반환하는 함수
head(unlist(nouns), 30)
tail(unlist(nouns), 30)

# 두글자 이상인 명사만 추출
# nouns2 에 임시로 저장하고 다시 nouns에 저장
nouns2 <- unlist(nouns)
nouns <- Filter(function(x) {nchar(x) >= 2}, nouns2)

# 불필요한 단어 제거 및 변경
# 데이터명 <- gsub("변경할 단어", "변경 후 단어", 데이터명)
# 예) "지금"이라는 단어를 제거
nouns <- gsub("지금", "", nouns)

# 추출된 명사를 파일로 저장
# write(unlist(nouns), "저장될 폴더/test2.txt")
write(unlist(nouns), "test2.txt")