姓名學 PTT r=h:www.ptt.cc

爬網＋社群網絡分析

目錄 Show

安裝 Rstudio
安裝 ubuntu 套件
安裝 R 套件
整理資料
最後畫圖

PTT是台灣最大的社群網站（http://zh.wikipedia.org/wiki/批踢踢），很多人介紹過我就不多費脣舌，PTT中很特別的功能就是可以推文回應作者，畢竟回文相對來說比較正式，推文感覺更加閒聊的性質．Wxxxxd版相對PTT中的其他版來說，由於有每日發文限制，版友之間更頃向利用推文的方式來互動，而且因為男多女少的緣故，通常女生的推文比較多人推，男生（例如我）可能發文都沒人鳥，然後網友之間彼此也會利用推文互動，本文就是要以圖像化的方式來展現這種推文互動關係。

我知道大家對程式語言沒興趣，所以我先講怎樣看圖：

每個圈圈代表一個網友，圈圈的大小代表該網友被“不同人”推文的文章次數
箭頭代表的推文的方向Ａ -> B表示Ａ推Ｂ的文章，而且不同大小的圈圈

從圖中來看，可以發現網友之間的互動真的非常密切和多樣，除了幾位人氣王之外，也有很多小團體和出現眾星拱月的情況．人氣王彼此之間的互動也不在少數，相信有逛過wanted版的朋友看起來會更有感觸．至於ＩＤ的部分我就隱藏起來了，雖然是這是公開資料，但是畢竟不是每個人都喜歡被別人分析ＸＤ

以下講的是做法：本次分析包含資料截取到畫圖都是利用Ｒ軟體來實做，用的主要方法包括爬網和社群網絡分析（social network analysis)，以下是原始碼．

安裝 Rstudio

當然要用 Docker 比較方便…

docker pull rocker/rstudio

開啟的時候記得要開 root 才能安裝套件

docker run -d -p 8787:8787 -e ROOT=TRUE rocker/rstudio

安裝 ubuntu 套件

sudo apt-get update
sudo apt-get install libxml2-dev

安裝 R 套件

install.packages(c("xml2","XML","httr","stringr", "igraph", "dplyr"));

爬網

library("XML")
library("httr")
library("stringr")
library("igraph")
library("dplyr")##這部分是爬網，先從網頁版ＰＴＴ中抓下每篇文章的聯結
rm(data)
data <- list()
for( i in 1628:1630){
  url <- paste('bbs/Wanted/index', i, '.html', sep='')
  html <- content(GET("https://www.ptt.cc/", path = url),as = 'parsed')
  htmlParsed <- htmlParse(html, asText=TRUE)
  url.list <- xpathSApply(htmlParsed, "//div[@class='title']/a[@href]", xmlAttrs)
  data <- rbind(data, url.list[[1]])
}##把一些空值刪掉
data = Filter(function(x) x != "www.ptt.cc",data)##根據每篇文章代碼進去抓作者和推文的資料
popu <- function(link){
  html <- content(GET('https://www.ptt.cc', path = data[[link]]), as = 'parsed')
  htmlParsed <- htmlParse(html, asText=TRUE)
  poster <- xpathApply(htmlParsed,"//div[@class='article-metaline']/span[@class='article-meta-value']",xmlValue)[[1]]    #這邊特別說明一下，因為作者這個欄位很討厭，除了ＩＤ之外還有暱稱，要把暱稱刪掉
  poster <- str_split_fixed(poster, "\\(",2)[,1]
  puller <- xpathApply(htmlParsed,"//div[@class='push']/span[@class='f3 hl push-userid']",xmlValue)
    #這個if是排除那些沒人有推文的作者（例如我）
  if (length(puller) >0 ){
    puller <- as.data.frame(matrix(unlist(puller),nrow = length(puller),T))
    edgelist <- merge(poster,puller,all = TRUE)
    return (edgelist)
  }
}

整理資料

edge = list()
for (l in 1:length(data)){
  edge <- rbind(edge, popu(l))
}#依照推文和被推者分組，計算每個pair的數量
edge2 <- group_by(edge,x,V1)
edge2 <- summarise(edge2,weight=n())#from 表示推文者 in 表示被推文的
edge2 <- data.frame(from = edge2$V1, to = edge2$x,weight = edge2$weight)

原始的 Edge

計算 Weight

最後畫圖

g <- graph.data.frame(edge2,directed = TRUE)#用被推文的數量“in"來決定大小
V(g)$size <- degree(g,mode = ("in"))/2#接下來就是畫圖輸出了
png(filename="org_network.png", height=1080, width=1080) 
plot(g, layout = layout.fruchterman.reingold,
     vertex.label=NA, 
     edge.arrow.size = 1
)

作者yemi (詩三百)

看板ntnuch92b

標題[心得] 分享命名網站

時間Tue Nov 8 02:40:17 2011

因為黑鬼問起，所以順便分享一下我收集的命名網站: 1.http://www.name104.com/ 姓名取名命名網有決定名字後判斷吉凶的網頁、決定第二個字要湊第三個字的網頁、名字相似度查詢 (取好之後怕太菜市場可以來查一下) 2.http://www.meimingteng.com/Naming/Default.aspx?Tag=4 美名騰可以解析取好的名字，有字義分析喔 3.http://name.renren.com/xingming/search 人人網查看同名同姓(大陸) 4.http://www.dearmoney.idv.tw/babyname/ 【劍靈姓名學命名寶典】這也是取好名字後用的 5.http://clickfate.com.tw/namefate/pname81plus.shtml 免費算命毫無頭緒時可以輸入生辰八字，會跑出推薦筆劃組合和參考名字 6.http://www.dearmoney.idv.tw/babyname/menu_paperlist.asp?ID=47&list=view 生肖「卯兔」姓名學禁忌 7.http://www.richyli.com/name/index.asp 中文姓名產生器可以當靈感來源? 8.http://www.neighbor168.com/name543/name7.htm 線上康熙筆劃字庫據說筆劃要以康熙字典為準 ============================================================================== 至於我家阿米名字怎麼取的? 本來我是想從唐詩宋詞或古文找靈感的，但是孕期看的宋詞都沒感覺，唐詩一直沒找出來看...... 後來決定第二字要用「米」，沒事就和丸四亂想有哪些喜歡的字可以跟米搭，無聊時拿去用第一個網頁看吉凶。其實我不太信這套啦，因為我的名字也沒算過，活到現在還不是很好?不過看到喜歡的名字是吉會增強信心XD 可惜生北鼻後，取好的名字被打槍，我爸拿著生辰去請教一位家族友人，她建議筆劃最好是要第二個字幾畫、第三個字幾畫。得到這消息時很怒，本想直接用我取的名字殺去報戶口，但在寧可信其有的壓力下屈服了 (如果她給的是直接的名字叫我選，那我一定翻桌) 所以開始痛苦的把康熙字典所有符合的筆劃字印出來，喜歡的挑出來、配對、家人再挑比較喜歡的(此時還有幾十個)、繼續刪除、GOOGLE看看有沒有很多人用(基於自己名字很特別，實在無法忍受同名)、看看兩個字解釋義好不好、開放票選。其實還是媽媽私心喜歡的大勝，因為我跟丸四說:「寶寶都姓劉了，名字當然是我取。」阿米最後叫做「秧實」，一定要跟米有關就對了! 報告完畢，下台一鞠躬。 -- ◤ ◥ ◥ ▏ ; ◥- ◥ ◢◤ ◣ ◢◥◣ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.34.45.45