Thumbnail
데이터 사이언스 데이터 분석
R로 하는 네트워크 분석
74명이 수강하고 있어요.

33,000원

지식공유자 : 코코
총 13개 수업˙총 3시간 18분
평생 무제한 수강
수료증 발급 강의
중급이상 대상
내 목록 추가 103 공유
cucu2250 프로필

key 에서 데이터 형태가 다르게 나옵니다 cucu2250 2달 전
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] "자기효능감"   "지식"         "창의"         "플립러닝"     "학습"         "학습공동체"   "학습동기"     "학습성과"     "학습역량"     ... 이와 같이 값이 나왔습니다. 아래의 그림은 강의자료에서 나온 형태입니다. 결과가 안나오는 것이 이 부분때문인듯한데, 왜 다르게 나오는지 알고싶습니다ㅜㅜ 답변 부탁드립니다!

1
dgdg dgdg 프로필

stopwords 궁금... dgdg dgdg 4달 전
혹시 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 4달 전
 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 데이터 관련 백영은 5달 전
LDA 수업에서 pre_pro_news 데이터를 사용하는데, example 파일에는 포함되어있지 않아 문의드립니다. 확인부탁드립니다^^

1
GKTJD 프로필

LDA 이미지 저장 GKTJD 8달 전
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

33,000원

내 목록 추가 103 공유
지식공유자 : 코코
총 13개 수업˙총 3시간 18분
평생 무제한 수강
수료증 발급 강의
중급이상 대상
지식공유자 되기
많은 사람들에게 배움의 기회를 주고,
경제적 보상을 받아보세요.
지식공유참여
기업 교육을 위한 인프런
“인프런 비즈니스” 를 통해 모든 팀원이 인프런의 강의들을
자유롭게 학습하는 환경을 제공하세요.
인프런 비즈니스