R로 하는 네트워크 분석대시보드

pre_data.RData 업로드 해주실 수 있나요?

가중치를 한줄씩 추가해서 만드는 방식이라면 가중치는 항상 정수만 가능한가요? 가중치를 실수형태로 부여해야하는 상황입니다. 그것이 불가능하다면 gephi 말고 사용가능한 다른 툴이 있나요?

lda분석 이후 강의자료와 같이 분석을 똑같이 수행했는데 sapply를 통해 tau에서 단어만 빼서 다시 묶어주는 작업을 하고 나서 for문을 돌리는데 자꾸 결과값이 null로 떴습니다. 라인바이라인으로 다시 확인해보니 강의자료와 같은 코딩을 사용했는데 key부분에서 sapply를 적용해 만든 데이터의 구조가 강사님의 자료와 달라서 이런 문제가 생기는듯 하여 질문드립니다. (저는 데이터를 다른 데이터로 사용했습니다. 또한 lda분석 후 단어수는 20개로 설정하였습니다.) q_topics <- tidy(lda.out, matrix="beta") q_top_terms <- q_topics %>%   group_by(topic) %>%   top_n(20, beta) %>%   ungroup() %>%   arrange(topic, -beta) tau<-tapply(q_top_terms$term,q_top_terms$topic,table) save(tau,file="tau.RData") load("tau.RData") tau unlist(tau) stw <- c("좋은", "대한") key <- c(sapply(tau, names)) key <- key[!key %in% stw] 위의 코딩을 사용하였더니 > key $`1`  [1] "교육"         "대학"         "대학교육"     "대학생"       "독서"         "분석"         "비교과"       "역량"         "요구도"       "인적자원개발" "자원봉사"     [12] "중요도실행도" "진로"         "청소년"       "프로그램"     "학생"         "학습"         "학습역량"     "핵심역량"     "활동"         $`2`  [1] "간호대학생"   "문제해결"     "문제해결역량" "비판적사고"   "상호작용"     "성향"         "시뮬레이션"   "융합"         "의사소통능력" "임상수행능력" "자기주도학습" [12] "자기효능감"   "지식"         "창의"         "플립러닝"     "학습"         "학습공동체"   "학습동기"     "학습성과"     "학습역량"     ... 이와 같이 값이 나왔습니다. 아래의 그림은 강의자료에서 나온 형태입니다. 결과가 안나오는 것이 이 부분때문인듯한데, 왜 다르게 나오는지 알고싶습니다ㅜㅜ 답변 부탁드립니다!

혹시 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("으로","하는","에서","입니다","합니다","있습니다",        "하고","에게","있는","라고","에도","이고","하게","또한","하기","매일경제",        "모르","재배포","되는","되지","이라고","이고","라는","됩니다","않습니다",

 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

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

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] } 이렇게 코드를 돌리면, 파일은 생기는데, 이미지는 저장되지 않습니다. 왜 그런건가요?