패턴인식 겨울학교 2013

오늘 관련 발표자료를 받아 봤는데, 발표자도 작년과 크게 다르지 않고 발표 자료도 업데이트 되는 수준인거 같다. 그래도 새로운 발표자분들이 오셔서 약간 기대는 하고 있다.

예상과 다르게 패턴인식 겨울학교가 빨리 마감되었는데, 너무 많이 등록해서 오프라인 등록도 받지 않는다 한다. 그럼 거의 참석자들은 정해졌다고 볼 수 있는데, 참석자분들의 소속이 어디인지 궁금해서 살짝 시각화를 해봤다.

관련 기술에 대한 관심도에 따른 학교나 조직의 순위가 어떤 것과 연관성이 있을지는 각자 상상에 맞긴다.

ps. 주최 학교인 서울대학교는 제외하고 보는게 나을거 같다.

library(XML)

li <- "http://www.kiise.or.kr/evt/prml2013/pay/list_registers.asp?SHOW_FLD=&SHOW_VLU=&personIdSet=&personNumSet=&show_page=7&SHOW_PAGESIZE=500"

tables <- readHTMLTable(li)

sub1 <- tables[[3]]
sub <- sub1[-1, ]



sub$V1 <- NULL

names(sub) <- c("이름", "소속/학교", "부서/학과", "직위", "메모", 
    "등록일", "확인여부")


library(ggplot2)
library(plyr)

sub_muted <- ddply(sub, .(`소속/학교`), mutate, cnt = length(등록일))

ggplot(sub_muted, aes(reorder(`소속/학교`, cnt))) + geom_bar() + theme(axis.text.x = element_text(angle = 90))

plot of chunk unnamed-chunk-1

CC BY-NC 4.0 패턴인식 겨울학교 2013 by from __future__ import dream is licensed under a Creative Commons Attribution-NonCommercial 4.0 International License.