R로 하는 네트워크 분석
R로 하는 네트워크 분석
수강정보
(1개의 수강평)
48명의 수강생
33,000원
지식공유자 : 코코
13회 수업 · 총 3시간 18분 수업
기간 : 평생 무제한 시청
수료증 : 발급 강의
수강 난이도 : 중급이상
dgdg dgdg 프로필

stopwords 궁금... dgdg dgdg 22일 전
혹시 lda로 나온 결과 값인데. stopwords가 안되는 이유가 있을까요 stopwords가 제대로 나오기 위한 패키지같은게 따로 있을까요 =============  lda로 나온 결과 값 $`4` 뉴스 무단전재     밝히     위하 이데일리   이벤트   재배포     진행     창업     통하         1        1        1        1        1        1        1        1        1        1  ============= DocumentTermMatrix에서 stopwords=stw dtm <- DocumentTermMatrix(corpus, control=list(   removePunctuation=TRUE,stopwords=stw,   removeNumbers=TRUE,weighting=weightTf))  dtm<-dtm[apply(dtm,1,sum) != 0,] ============ stw<-c("으로","하는","에서","입니다","합니다","있습니다",        "하고","에게","있는","라고","에도","이고","하게","또한","하기","매일경제",        "모르","재배포","되는","되지","이라고","이고","라는","됩니다","않습니다",

1
dgdg dgdg 프로필

q_topics 입력시 오류가 생기는 이유는 dgdg dgdg 24일 전
 q_topics을 입력하면 왜 계속 아래와 같은 오류상태로 출력이 되는 걸까요. 수업시간 강의를 보면 한글단어가 잘나오는데 말입니다.  topic term                   beta    <int> <chr>                 <dbl>  1     1 "\xb0\xa1\xb0\xdd" 0.00202   2     2 "\xb0\xa1\xb0\xdd" 0.000510  3     3 "\xb0\xa1\xb0\xdd" 0.00146   4     4 "\xb0\xa1\xb0\xdd" 0.000532  5     5 "\xb0\xa1\xb0\xdd" 0.000549  6     6 "\xb0\xa1\xb0\xdd" 0.00242   7     7 "\xb0\xa1\xb0\xdd" 0.000502  8     8 "\xb0\xa1\xb0\xdd" 0.00365   9     9 "\xb0\xa1\xb0\xdd" 0.00616  10    10 "\xb0\xa1\xb0\xdd" 0.000805 # ... with 644,960 more rows

4
백영은 프로필

pre_pro_news.RData 데이터 관련 백영은 1달 전
LDA 수업에서 pre_pro_news 데이터를 사용하는데, example 파일에는 포함되어있지 않아 문의드립니다. 확인부탁드립니다^^

1
GKTJD 프로필

LDA 이미지 저장 GKTJD 4달 전
for (i in 8:12) {                                  q_lda <- LDA(dtm, k=i)                  q_topics <- tidy(q_lda, matrix="beta")                 q_top_terms <- q_topics %>%                                 group_by(topic) %>%                                 top_n(15, beta) %>%                                 ungroup() %>%                                 arrange(topic, -beta)                 q_top_terms$term<-repair_encoding(q_top_terms$term)                 tau<-tapply(q_top_terms$term,q_top_terms$topic,table)                           png(paste0("nate",i,".png"),width=500,height = 500)                 q_top_terms %>%                                 mutate(term=reorder(term, beta)) %>%                                 ggplot(aes(term, beta, fill=factor(topic))) +                                 geom_col(show.legend=FALSE) +                                 facet_wrap(~ topic, scales="free") +                                 coord_flip() +                                 theme(axis.text.y=element_text(family="HYGothic-Extra"))                                  dev.off()                                  key<-c(sapply(tau,names))                 key_list[[i]]<-key[!key %in% stw] } 이렇게 코드를 돌리면, 파일은 생기는데, 이미지는 저장되지 않습니다. 왜 그런건가요?

2
지식공유자 되기
많은 사람들에게 배움의 기회를 주고,
경제적 보상을 받아보세요.
지식공유참여
기업 교육을 위한 인프런
“인프런 비즈니스” 를 통해 모든 팀원이 인프런의 강의들을
자유롭게 학습하는 환경을 제공하세요.
인프런 비즈니스