Відео

좋네요.놀랐어요

주소창에 maruai.kr 입력하세요. 카톡 오픈체팅방은 open.kakao.com/o/guMLa9Bg 입니다 또는 "마루아이" 를 검색하세요

감사합니다. 잘 보겠습니다.

소리 낮습니다. 안 틀리네요.

더 자세한 내용은 다음 링크를 확인 하세요 www.youtube.com/@Persona-TV

youtube.com/@TV-vy1gm?si=0qUIwbZtSHYXDnRc 에 더 많은 자료가 있어요

내용이 좋아요.

안녕하세요, 선생님 좋은 영상 덕분에 워드클라우드 생성 어렵지 않게 성공했습니다. 그런데 유의어 처리할 때, "어머니"="엄마" 라고 적었더니 워드클라우드가 생성되었을 때 단어 '어머니'의 개수와 '엄마'의 개수가 합쳐져서 '엄마'로 나오는 게 아니라 이미지 상으로 '엄마' 라는 단어가 그냥 두개가 생겨버렸습니다. 이런 문제는 어떻게 해결해야하는지 알려주실수 있을까요?

다운로드 받은 R ,Rtools , RStudio 는 마우스 우 클릭 후 관리자 권한으로 설치 하세요

다음영상으로 보시고 설치하세요 요류가 나서 다시 작성 했습니다 ua-cam.com/video/937Gakk_CcI/v-deo.htmlsi=oxJeEQOmt44IYwPM

아래 뎃글의 자세히 보기를 누르시면 설치파일 다운로드와 코드를 확인 할 수 있습니다

다음의 순서와 코드를 확인 하세요 # R 버전 4.1.2 ## 필수_ 매우 중요 #www.npackd.org/p/r/4.1.2 # Rtools 설치 #cran.r-project.org/bin/windows/Rtools/rtools40.html # RStudio 설치 #posit.co/download/rstudio-desktop/ 다음을 복사해서 RStudio에서 실행하면 끝!! ###출처 jmook.tistory.com/15 install.packages(c("cli","hash", "tau", "Sejong", "RSQLite", "devtools", "bit", "rex", "lazyeval", "htmlwidgets", "crosstalk", "promises", "later", "sessioninfo", "xopen", "bit64", "blob", "DBI", "memoise", "plogr", "covr", "DT", "rcmdcheck", "rversions"), type = "binary") install.packages("remotes") remotes::install_github('haven-jeon/KoNLP', upgrade = "never", INSTALL_opts=c("--no-multiarch")) library(rJava) library(KoNLP) useSejongDic() # 1: ALL 선택 txt <- '나는 사과와 바나나가 좋아요' extractNoun(txt)

######################2023년 8월 확인결과 오류 다음 텍스트를 복사 사용하세요 출처는 jmook.tistory.com/15 R버전은 4.1.2 입니다 이후 버전은 오류가 생기네요 install.packages(c("cli","hash", "tau", "Sejong", "RSQLite", "devtools", "bit", "rex", "lazyeval", "htmlwidgets", "crosstalk", "promises", "later", "sessioninfo", "xopen", "bit64", "blob", "DBI", "memoise", "plogr", "covr", "DT", "rcmdcheck", "rversions"), type = "binary") install.packages("remotes") remotes::install_github('haven-jeon/KoNLP', upgrade = "never", INSTALL_opts=c("--no-multiarch")) library(rJava) library(KoNLP) useSejongDic() txt <- '나는 사과와 바나나가 좋아요' extractNoun(txt)

영상을 따라하면 오류가 납니다 2023년 8월 에 성공했어요 다음 을 복사하여 시행하세요 시간이 걸려요 기다리세요 # R 버전 4.1.2 ###출처 jmook.tistory.com/15 install.packages(c("cli","hash", "tau", "Sejong", "RSQLite", "devtools", "bit", "rex", "lazyeval", "htmlwidgets", "crosstalk", "promises", "later", "sessioninfo", "xopen", "bit64", "blob", "DBI", "memoise", "plogr", "covr", "DT", "rcmdcheck", "rversions"), type = "binary") install.packages("remotes") remotes::install_github('haven-jeon/KoNLP', upgrade = "never", INSTALL_opts=c("--no-multiarch")) library(rJava) library(KoNLP) useSejongDic() # 1: ALL 선택 txt <- '나는 사과와 바나나가 좋아요' extractNoun(txt)

마지막 정규성검증은 자유도가 다르게 나오네요 자유도가 299인데 .. 검토해 보겠습니다 파이썬 코드 에서 300개 자료가 아닌 201개의 자료를 생성하였네요 그레서 자유도가 200 이고 결과같이 다른것 으로

예제 자료는 노경섭 저 "제대로알고 쓰는 논문 통계분석 자료"를 활용하였습니다 "

선생님 안녕하세요 유익한 강의 정말 감사드립니다. 실습 중 해결되지 않은게 생겨 문의드립니다. unnest-tockens~ 코맨드 사용 후 문장이 단어별로 count 되지 않고 문장별로 하나씩 count 되는데 이런 경우 어떻게 해결해야할까요? 알려주시면 감사하겠습니다.

사용된 R 코드 입니다. 복사 후 사용하세요 ###작업공간 지정 setwd("E:/R 텍스트마이닝 특강") #작업공간 확인 getwd() install.packages("dplyr") library(dplyr) #자료불러오기 raw_writing <- readLines("E:/R 텍스트마이닝 특강/수능만점.txt", encoding = "UTF-8") # raw_writing #전체 확인_ 자료가 적을 때 head(raw_writing) #앞부분 확인 _자료가 많을 때 tail(raw_writing) #끝부분 확인 콘솔창 확인 #클라우드 만들기 # 기본적인 전처리 #install.packages("stringr") library(stringr) library(tidytext) #install.packages("tibble") library(tibble) writing <- raw_writing %>% str_replace_all("[^가-힣]", " ") %>% # 한글만 남기기 str_squish() %>% # 중복 공백 제거 as_tibble() # tibble로 변환 writing #전체확인 head(writing) #앞 부분 확인 tail(writing) # 뒷부분 확인 library(KoNLP) useNIADic() # 명사 기준 토큰화 word_noun <- writing %>% unnest_tokens(input = value, output = word, token = extractNoun) head(word_noun) word_noun <- word_noun %>% count(word, sort = T) %>% # 단어 빈도 구해 내림차순 정렬 filter(str_count(word) > 1) # 두 글자 이상만 남기기 word_noun#추출명사 확인 write.csv(word_noun,file="word_noun.csv",quote=FALSE) #쓰기 # 상위 20개 단어 추출 count_word <- word_noun # ------------------------------------------------------------------------- # tibble 구조로 불용어 목록 만들기 #위 문서 확인 후 불용어 사전 만들기 stopword <-tibble(word = c("들이", "하거", "하나","하려", "좋겠", "될까봐","뚜렸","못할까봐", "하다", "하게", "하면", "해서", "이번", "하네","첫째", "둘째", "셋째", "해요", "이것", "니들", "하기", "하지", "한거", "한데", "한대", "해하", "해도", "척하", "하러", "무엇", "어디", "여기", "까지", "이거", "하신", "만큼")) #추출명사 확인 후 추가 혹은 편집 # ------------------------------------------------------------------------- # 불용어, 유의어 처리하기 count_word <- count_word %>% filter(!word %in% stopword) %>% mutate(word = recode(word, "어머니" = "엄마", "친구들" = "친구", "친구들이" = "친구" )) #예시 어머니를 엄마로 통일 친구들을 친구 로 통일 count_word # ------------------------------------------------------------------------- # 불용어 목록 저장하기 install.packages("readr") library(readr) write_csv(stopword, "stopword.csv") #불용어 사전 저장 # 불용어 제거하기, 빈도 확인 count_word <- count_word %>% filter(!word %in% stopword$word) count_word# 빈도 확인 top20 <- count_word %>% head(20) #상위 20 단어 추출 top20 # 상위 20단어 확인 top20_2<-top20 write.table(top20_2,file="TOP20.txt") #TOP20 으로 저장 # 막대 그래프 만들기 library(ggplot2) ggplot(top20_2, aes(x = reorder(word, n), y = n)) + geom_col() + coord_flip() + geom_text(aes(label = n), hjust = -0.3) + labs(x = NULL) + theme(text = element_text(family = "nanumgothic")) #클라우드 만들기ok install.packages("wordcloud2") library('wordcloud2') count_word %>% wordcloud2() 😃

R 프로그램 버전을 4.0.5 입니다 다른 버전은 오류가 날 수 있습니다