針對網路圖的分析

安裝需要的packages

packages = c("readr", "dplyr", "jiebaR", "tidyr", "tidytext", "igraph", "topicmodels", "ggplot2", "stringr")
existing = as.character(installed.packages()[,1])
for(pkg in packages[!(packages %in% existing)]) install.packages(pkg)

library(readr)
library(dplyr)
library(jiebaR)
library(tidyr)
library(tidytext)
library(igraph)
library(topicmodels)
library(stringr)
library(ggplot2)
# 文章資料
tp <- read_csv("./Tsai_articleMetaData.csv")          #修改過
hp <- read_csv("./Hen_articleMetaData.csv")

tr <- read_csv("./Tsai_articleReviews.csv")
hr <- read_csv("./Hen_articleReviews.csv")

# 文章資料
posts <- rbind(tp, hp)          #修改過
head(posts,10)
## # A tibble: 10 x 10
##    artTitle artDate    artTime  artUrl artPoster artCat commentNum  push
##    <chr>    <date>     <time>   <chr>  <chr>     <chr>       <dbl> <dbl>
##  1 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~        598   266
##  2 [新聞]柯文哲~ 2019-08-01 03:37:56 https~ anz5566   Gossi~         77    29
##  3 [新聞]華航贊~ 2019-08-01 03:39:07 https~ qqq5566   Gossi~          9     2
##  4 [新聞]202~ 2019-08-01 04:04:25 https~ ueewen    Gossi~        171    52
##  5 [新聞]陸限縮~ 2019-08-01 04:05:00 https~ LIN6627   Gossi~         50    11
##  6 [新聞]快訊/~ 2019-08-01 04:14:32 https~ Moogle    Gossi~        512   267
##  7 [新聞]范雲表~ 2019-08-01 04:31:15 https~ iasyt     Gossi~        393   243
##  8 Re:[新聞]~ 2019-08-01 04:36:04 https~ fifa186   Gossi~        118    46
##  9 [新聞]時力風~ 2019-08-01 04:38:14 https~ whokissw~ Gossi~         22     4
## 10 Re:[新聞]~ 2019-08-01 04:45:22 https~ attilalin Gossi~         67     7
## # ... with 2 more variables: boo <dbl>, sentence <chr>
# 回覆資料
reviews <- rbind(tr, hr) 
head(reviews,10)
## # A tibble: 10 x 10
##    artTitle artDate    artTime  artUrl artPoster artCat cmtPoster cmtStatus
##    <chr>    <date>     <time>   <chr>  <chr>     <chr>  <chr>     <chr>    
##  1 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ MoWillia~ 推       
##  2 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ Neverfor  推       
##  3 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ whiteadam →        
##  4 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ allyours~ →        
##  5 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ dream99   噓       
##  6 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ dream99   →        
##  7 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ iloveayk~ 噓       
##  8 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ lauver    推       
##  9 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ louis5265 噓       
## 10 [新聞]洪慈庸~ 2019-08-01 03:04:10 https~ armorblo~ Gossi~ DCcheng   →        
## # ... with 2 more variables: cmtDate <dttm>, cmtContent <chr>
# 選取需要的欄位
reviews <- reviews %>%
      select(artUrl, cmtPoster, cmtStatus, cmtContent)

發文者數量

length(unique(posts$artPoster))
## [1] 2734

回覆者數量

length(unique(reviews$cmtPoster))
## [1] 54191

總共有參與的人數

allPoster <- c(posts$artPoster, reviews$cmtPoster)
length(unique(allPoster))
## [1] 54795

整理所有參與人

# 整理所有出現過得使用者
# 如果它曾發過文的話就標註他爲poster
# 如果沒有發過文的話則標註他爲replyer
userList <- data.frame(user=unique(allPoster)) %>%
              mutate(type=ifelse(user%in%posts$artPoster, "poster", "replyer"))
head(userList,10)
##           user   type
## 1  armorblocks poster
## 2      anz5566 poster
## 3      qqq5566 poster
## 4       ueewen poster
## 5      LIN6627 poster
## 6       Moogle poster
## 7        iasyt poster
## 8      fifa186 poster
## 9   whokisswho poster
## 10   attilalin poster

建立社群網路圖

將原文與回覆Join起來

# 把原文與回覆依據artUrl innerJoin起來
posts_Reviews <- merge(x = posts, y = reviews, by = "artUrl")
head(posts_Reviews,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
##                                artTitle    artDate  artTime   artPoster
## 1  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 2  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 3  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 4  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 5  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 6  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 7  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 8  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 9  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 10 [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
##       artCat commentNum push boo
## 1  Gossiping        598  266 119
## 2  Gossiping        598  266 119
## 3  Gossiping        598  266 119
## 4  Gossiping        598  266 119
## 5  Gossiping        598  266 119
## 6  Gossiping        598  266 119
## 7  Gossiping        598  266 119
## 8  Gossiping        598  266 119
## 9  Gossiping        598  266 119
## 10 Gossiping        598  266 119
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 sentence
## 1  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 2  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 3  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 4  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 5  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 6  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 7  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 8  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 9  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 10 洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
##      cmtPoster cmtStatus                            cmtContent
## 1   MoWilliams        推                       :弟弟死而無憾了
## 2     Neverfor        推                                 :小綠
## 3    whiteadam         →                               :柯p呢?
## 4  allyourshit         →             :弟弟變韭菜割了一輪又一輪
## 5      dream99        噓 :力挺洪慈庸柯P盼「柯文哲現象」擴大-政
## 6      dream99         →                    :治-自由時報電子報
## 7   iloveayken        噓                     :書面不敢罵柯了喔
## 8       lauver        推                                 :Push
## 9    louis5265        噓                           :毫無作為的
## 10     DCcheng         →           :不會選前說一套選後做一套?

篩選欄位

# 取出2020年1月11號的 cmtPoster(回覆者)、artPoster(發文者)、artUrl(文章連結) 三個欄位
link <- posts_Reviews %>%
  filter(artDate == as.Date('2020-01-11')) %>%
  select(cmtPoster, artPoster, artUrl)
head(link,10)
##      cmtPoster artPoster
## 1         zold    vc5566
## 2  NohohonZoku    vc5566
## 3      punksir    vc5566
## 4    JoseReyes    vc5566
## 5      gwenwoo    vc5566
## 6      kidd085    vc5566
## 7     j3699939    vc5566
## 8      gwenwoo    vc5566
## 9      Lydia66    vc5566
## 10      to1322    vc5566
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1578730193.A.23D.html

建立網路關係

reviewNetwork <- graph_from_data_frame(d=link, directed=T)
head(reviewNetwork,10)
## 10 x 10393 sparse Matrix of class "dgCMatrix"
##    [[ suppressing 31 column names 'zold', 'NohohonZoku', 'punksir' ... ]]
##                                                                          
## zold        . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## NohohonZoku . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## punksir     . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## JoseReyes   . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## gwenwoo     . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## kidd085     . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## j3699939    . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## Lydia66     . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## to1322      . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
## dennistao   . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
##                   
## zold        ......
## NohohonZoku ......
## punksir     ......
## JoseReyes   ......
## gwenwoo     ......
## kidd085     ......
## j3699939    ......
## Lydia66     ......
## to1322      ......
## dennistao   ......
## 
##  .....suppressing 10362 columns in show(); maybe adjust 'options(max.print= *, width = *)'
##  ..............................

網路圖

# 畫出網路圖
plot(reviewNetwork)

> 名稱遮住了圖片,看不出甚麼結論

調整參數

# 把點點的大小和線的粗細調小,並不顯示使用者帳號。
plot(reviewNetwork, vertex.size=2, edge.arrow.size=.2,vertex.label=NA)

> 點跟線的數量太多,仍看不出聚集的情況

資料篩選

挑出2020-01-11當天的文章和它的回覆,選出2020-01-11當天發文數較多的帳號(5篇以上)以及文章留言數達400以上的文章

mposts <- posts_Reviews %>%          #修改過
  select(artUrl, artPoster) %>%
  group_by(artUrl) %>%
  unique() %>%
  ungroup() %>%
  group_by(artPoster) %>%
  summarise(fp = n()) 
mreview <- posts_Reviews %>%
  group_by(artUrl) %>%
  summarise(fr = n())
posts_Reviews <- posts_Reviews %>%
  left_join(mposts) %>%
  left_join(mreview)
## Joining, by = "artPoster"
## Joining, by = "artUrl"
link <- posts_Reviews %>%
  filter(fp > 5 & fr > 400) %>%
  filter(artDate == as.Date('2020-01-11')) %>%
  select(cmtPoster, artPoster, artUrl, fp, fr) %>% 
  unique()
head(link,10)
##      cmtPoster artPoster
## 1    Ives20130 ruby00514
## 2  chiu8512252 ruby00514
## 3    webberhan ruby00514
## 4        ak904 ruby00514
## 5    acergame5 ruby00514
## 6        kenro ruby00514
## 7       laukun ruby00514
## 8         A320 ruby00514
## 9        mudee ruby00514
## 10 zoidsa12101 ruby00514
##                                                      artUrl fp  fr
## 1  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 2  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 3  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 4  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 5  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 6  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 7  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 8  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 9  https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453
## 10 https://www.ptt.cc/bbs/Gossiping/M.1578737602.A.97A.html  6 453

過濾圖中的點(v)

# 這邊要篩選link中有出現的使用者
# 因爲如果userList(igraph中graph_from_data_frame的v參數吃的那個東西)中出現了沒有在link中出現的使用者
# 也會被igraph畫上去,圖片就會變得沒有意義
# 想要看會變怎麼樣的人可以跑一下下面的code
filtered_user <- userList %>%
          filter(user%in%link$cmtPoster | user%in%link$artPoster) %>%
          arrange(desc(type))
head(filtered_user,10)
##           user    type
## 1        hipab replyer
## 2       eko112 replyer
## 3    Albert666 replyer
## 4       MrNext replyer
## 5    force5566 replyer
## 6       k12551 replyer
## 7  LITTLEDENNY replyer
## 8    boogieman replyer
## 9     facewind replyer
## 10     r5110ay replyer

過濾使用者後

set.seed(487)
# 建立網路關係圖,因爲剛剛看的時候感覺箭頭有點礙眼,
# 所以這裏我們先把關係的方向性拿掉,減少圖片中的不必要的資訊
reviewNetwork <- graph_from_data_frame(d=link, v=filtered_user, directed=F)
plot(reviewNetwork, vertex.size=3, edge.arrow.size=0.3,vertex.label=NA)

> 可以看出每篇文章的留言帳號對其他的文章也有一些關聯
因此以下我們將資料集中的資訊加到我們的圖片中。

加強圖像的顯示資訊(1)

set.seed(487)
# 用使用者的身份來區分點的顏色,如果有發文的話是金色的,只有回覆文章的則用淺藍色表示
V(reviewNetwork)$color <- ifelse(V(reviewNetwork)$type=="poster", "gold", "lightblue")
plot(reviewNetwork, vertex.size=3, edge.arrow.size=0.3,vertex.label=NA)

> 太密集看不太出來有甚麼關係

加強圖像的顯示資訊(2)

set.seed(487)
# 篩選要顯示出的使用者,以免圖形被密密麻麻的文字覆蓋
# 顯示有超過5個關聯的使用者賬號
labels <- degree(reviewNetwork)
V(reviewNetwork)$label <- names(labels)

V(reviewNetwork)$color <- ifelse(V(reviewNetwork)$type=="poster", "gold", "lightblue")
plot(reviewNetwork, vertex.size=3, edge.arrow.size=0.2,
     vertex.label=ifelse(degree(reviewNetwork) > 70, V(reviewNetwork)$label, NA),  vertex.label.font=2)

> 為了查看上面degree高的帳號是否與link中所提取之帳號相同(發文>5,文章留言數>400)
找出link中的帳號

test <- link %>%
  group_by(artPoster) %>%          #修改過
  unique() %>%
  summarise(n = n())
head(test,10)
## # A tibble: 8 x 2
##   artPoster     n
##   <chr>     <int>
## 1 Anddyliu   1435
## 2 DreamYeh    617
## 3 medama      712
## 4 moneybuy    588
## 5 murray      432
## 6 nerudaliu   349
## 7 ruby00514   433
## 8 s110269     471

我們發現與link中的帳號一模一樣,但途中除了發文者外還有其他的較小的聚集,
也就是說鄉民除了因文章而有較高的關聯性,還有其他關聯性存在

主題分類

詳細內容請參考第十週的課程

前處理

load("lda.RData")

PTT八卦版2019.7.15~2020.1.10關於總統大選的文章

posts_tsai_data <- read_csv("Tsai_articleMetaData.csv")
## Parsed with column specification:
## cols(
##   artTitle = col_character(),
##   artDate = col_date(format = ""),
##   artTime = col_time(format = ""),
##   artUrl = col_character(),
##   artPoster = col_character(),
##   artCat = col_character(),
##   commentNum = col_double(),
##   push = col_double(),
##   boo = col_double(),
##   sentence = col_character()
## )
posts_hen_data <- read_csv("Hen_articleMetaData.csv")
## Parsed with column specification:
## cols(
##   artTitle = col_character(),
##   artDate = col_date(format = ""),
##   artTime = col_time(format = ""),
##   artUrl = col_character(),
##   artPoster = col_character(),
##   artCat = col_character(),
##   commentNum = col_double(),
##   push = col_double(),
##   boo = col_double(),
##   sentence = col_character()
## )
reviews_tsai_data <- read_csv("Tsai_articleReviews.csv")
## Parsed with column specification:
## cols(
##   artTitle = col_character(),
##   artDate = col_date(format = ""),
##   artTime = col_time(format = ""),
##   artUrl = col_character(),
##   artPoster = col_character(),
##   artCat = col_character(),
##   cmtPoster = col_character(),
##   cmtStatus = col_character(),
##   cmtDate = col_datetime(format = ""),
##   cmtContent = col_character()
## )
reviews_hen_data <- read_csv("Hen_articleReviews.csv")
## Parsed with column specification:
## cols(
##   artTitle = col_character(),
##   artDate = col_date(format = ""),
##   artTime = col_time(format = ""),
##   artUrl = col_character(),
##   artPoster = col_character(),
##   artCat = col_character(),
##   cmtPoster = col_character(),
##   cmtStatus = col_character(),
##   cmtDate = col_datetime(format = ""),
##   cmtContent = col_character()
## )
reviews_tsai_data <- reviews_tsai_data %>%
      select(artUrl, cmtPoster, cmtStatus, cmtContent)
reviews_hen_data <- reviews_hen_data %>%
      select(artUrl, cmtPoster, cmtStatus, cmtContent)
# 文章斷句
tsai_meta <- posts_tsai_data %>%
              mutate(sentence=gsub("[\n]{2,}", "。", sentence))
# 以全形或半形 驚歎號、問號、分號 以及 全形句號 爲依據進行斷句
tsai_sentences <- strsplit(tsai_meta$sentence,"[。!;?!?;]")
# 將每句句子,與他所屬的文章連結配對起來,整理成一個dataframe
tsai_sentences <- data.frame(
                        artUrl = rep(tsai_meta$artUrl, sapply(tsai_sentences, length)), 
                        sentence = unlist(tsai_sentences)
                      ) %>%
                      filter(!str_detect(sentence, regex("^(\t|\n| )*$")))
tsai_sentences$sentence <- as.character(tsai_sentences$sentence)
head(tsai_sentences,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
##                                                                                                                                                                                              sentence
## 1                                                                                                                                                                      洪慈庸:明確支持蔡英文連任2020
## 2                                                                                                                                                                                                自由
## 3                                                                                   記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統
## 4                                                              時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統
## 5                                                                                                                                                                                洪慈庸聲明全文如下:
## 6                                                                                                                                                                【時代力量的路,必須是團結台灣的路】
## 7                                                                                                                                  慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量
## 8                                                                                              但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前
## 9  時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合
## 10                                                                                                                                   時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題
hen_meta <- posts_hen_data %>%
              mutate(sentence=gsub("[\n]{2,}", "。", sentence))
# 以全形或半形 驚歎號、問號、分號 以及 全形句號 爲依據進行斷句
hen_sentences <- strsplit(hen_meta$sentence,"[。!;?!?;]")
# 將每句句子,與他所屬的文章連結配對起來,整理成一個dataframe
hen_sentences <- data.frame(
                        artUrl = rep(hen_meta$artUrl, sapply(hen_sentences, length)), 
                        sentence = unlist(hen_sentences)
                      ) %>%
                      filter(!str_detect(sentence, regex("^(\t|\n| )*$")))
hen_sentences$sentence <- as.character(hen_sentences$sentence)
head(hen_sentences,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
##                                                                                                                                                                                                                                              sentence
## 1                                                                                                                                                  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導
## 2                        前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請
## 3                                                                                                                                    王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶
## 4                                                                                                                                                      對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請
## 5                                                                                                          王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成
## 6  對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標
## 7                                                                                                                                                                                          對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話
## 8                                                                                                                                                                                                                        對媒體問到「韓王會」會繼續嗎
## 9                                                                                                                    王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說
## 10                                                                                                                                                              而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊
user_dict = read_file(file = "./dict/user_dict.txt")

stop_words <- read_file(file = "./dict/stop_words.txt")

user_dict = unlist(strsplit(user_dict, "\n"))

stop_words = unlist(strsplit(stop_words, "\n"))

jieba_tokenizer <- worker()
new_user_word(jieba_tokenizer, user_dict)
## [1] TRUE
# tokenize function
chi_tokenizer <- function(t) {
  lapply(t, function(x) {
    if(nchar(x)>1){
      tokens <- segment(x, jieba_tokenizer)
      tokens <- tokens[!tokens %in% stop_words]
      tokens <- tokens[nchar(tokens)>1]
      return(tokens)
    }
  })
}
tsai_tokens <- tsai_sentences %>%
  unnest_tokens(word, sentence, token=chi_tokenizer) %>%
  filter(!str_detect(word, regex("[0-9a-zA-Z]"))) %>%
  count(artUrl, word) %>%
  rename(count=n)
head(tsai_tokens,10)
## # A tibble: 10 x 3
##    artUrl                                                   word  count
##    <fct>                                                    <chr> <int>
##  1 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 一再      1
##  2 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 一致      1
##  3 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 一席      1
##  4 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 一條      1
##  5 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 入時      1
##  6 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 力量     13
##  7 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 大選      1
##  8 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 不利      1
##  9 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 不夠      1
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html 之前      1
hen_tokens <- hen_sentences %>%
  unnest_tokens(word, sentence, token=chi_tokenizer) %>%
  filter(!str_detect(word, regex("[0-9a-zA-Z]"))) %>%
  count(artUrl, word) %>%
  rename(count=n)
head(hen_tokens,10)
## # A tibble: 10 x 3
##    artUrl                                                   word   count
##    <fct>                                                    <chr>  <int>
##  1 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 一中       2
##  2 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 一事       4
##  3 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 一定       3
##  4 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 人選       1
##  5 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 力量       2
##  6 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 十幾萬     1
##  7 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 上午       1
##  8 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 上天       3
##  9 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 口號       1
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html 不宜       1
## 清理斷詞結果
# 挑出總出現次數大於3的字
reserved_word <- tsai_tokens %>% 
  group_by(word) %>% 
  count() %>% 
  filter(n > 3) %>% 
  unlist()

tsai_removed <- tsai_tokens %>% 
  filter(word %in% reserved_word)

tsai_dtm <- tsai_removed %>% cast_dtm(artUrl, word, count)

reserved_word <- hen_tokens %>% 
  group_by(word) %>% 
  count() %>% 
  filter(n > 3) %>% 
  unlist()

hen_removed <- hen_tokens %>% 
  filter(word %in% reserved_word)

hen_dtm <- hen_removed %>% cast_dtm(artUrl, word, count)
remove_word_tsai = c("蔡英文", "總統", "完整新聞", "媒體來源", "新聞內文", "完整新聞標題", "記者", "表示")
remove_word_hen = c("韓國瑜","國民黨", "完整新聞", "媒體來源", "新聞內文", "完整新聞標題", "記者", "表示", "連結", "來源","我們", "一定")

# LDA分成10個主題
start_time <- Sys.time()
#tsai_lda <- LDA(tsai_dtm, k = 10, control = list(seed = 1234))
# 看各群的常用詞彙
tidy(tsai_lda, matrix = "beta") %>%
  filter(! term %in% remove_word_tsai) %>% 
  group_by(topic) %>%
  top_n(10, beta) %>%
  ungroup() %>%
  mutate(topic = as.factor(topic),
         term = reorder_within(term, beta, topic)) %>%
  ggplot(aes(term, beta, fill = topic)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~ topic, scales = "free") +
  coord_flip() +
  scale_x_reordered()

print(paste("topic(s) and use time is ",Sys.time() -start_time))
## [1] "topic(s) and use time is  1.82157111167908"
# LDA分成10個主題
start_time <- Sys.time()
#hen_lda <- LDA(hen_dtm, k = 10, control = list(seed = 1234))
# 看各群的常用詞彙
tidy(hen_lda, matrix = "beta") %>%
  filter(! term %in% remove_word_hen) %>% 
  group_by(topic) %>%
  top_n(10, beta) %>%
  ungroup() %>%
  mutate(topic = as.factor(topic),
         term = reorder_within(term, beta, topic)) %>%
  ggplot(aes(term, beta, fill = topic)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~ topic, scales = "free") +
  coord_flip() +
  scale_x_reordered()

print(paste("topic(s) and use time is ",Sys.time() -start_time))
## [1] "topic(s) and use time is  1.45364594459534"
#save.image("lda.RData")
# 使用LDA分類每篇文章的主題
tsai_topics <- tidy(tsai_lda, matrix="gamma") %>% # 在tidy function中使用參數"gamma"來取得 theta矩陣。
                  group_by(document) %>%
                  top_n(1, wt=gamma)

hen_topics <- tidy(hen_lda, matrix="gamma") %>% # 在tidy function中使用參數"gamma"來取得 theta矩陣。
                  group_by(document) %>%
                  top_n(1, wt=gamma)
# 把原文與回覆依據artUrl innerJoin起來
tsai_posts_Reviews <- merge(x = posts_tsai_data, y = reviews_tsai_data, by = "artUrl")
head(tsai_posts_Reviews,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
##                                artTitle    artDate  artTime   artPoster
## 1  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 2  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 3  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 4  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 5  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 6  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 7  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 8  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 9  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 10 [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
##       artCat commentNum push boo
## 1  Gossiping        598  266 119
## 2  Gossiping        598  266 119
## 3  Gossiping        598  266 119
## 4  Gossiping        598  266 119
## 5  Gossiping        598  266 119
## 6  Gossiping        598  266 119
## 7  Gossiping        598  266 119
## 8  Gossiping        598  266 119
## 9  Gossiping        598  266 119
## 10 Gossiping        598  266 119
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 sentence
## 1  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 2  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 3  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 4  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 5  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 6  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 7  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 8  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 9  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 10 洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
##      cmtPoster cmtStatus                            cmtContent
## 1   MoWilliams        推                       :弟弟死而無憾了
## 2     Neverfor        推                                 :小綠
## 3    whiteadam         →                               :柯p呢?
## 4  allyourshit         →             :弟弟變韭菜割了一輪又一輪
## 5      dream99        噓 :力挺洪慈庸柯P盼「柯文哲現象」擴大-政
## 6      dream99         →                    :治-自由時報電子報
## 7   iloveayken        噓                     :書面不敢罵柯了喔
## 8       lauver        推                                 :Push
## 9    louis5265        噓                           :毫無作為的
## 10     DCcheng         →           :不會選前說一套選後做一套?
hen_posts_Reviews <- merge(x = posts_hen_data, y = reviews_hen_data, by = "artUrl")
head(hen_posts_Reviews,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
##                                        artTitle    artDate  artTime
## 1  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 2  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 3  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 4  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 5  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 6  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 7  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 8  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 9  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 10 [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
##    artPoster    artCat commentNum push boo
## 1     yenkin Gossiping        152   93  10
## 2     yenkin Gossiping        152   93  10
## 3     yenkin Gossiping        152   93  10
## 4     yenkin Gossiping        152   93  10
## 5     yenkin Gossiping        152   93  10
## 6     yenkin Gossiping        152   93  10
## 7     yenkin Gossiping        152   93  10
## 8     yenkin Gossiping        152   93  10
## 9     yenkin Gossiping        152   93  10
## 10    yenkin Gossiping        152   93  10
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                sentence
## 1  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 2  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 3  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 4  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 5  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 6  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 7  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 8  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 9  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 10 來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
##    cmtPoster cmtStatus                             cmtContent
## 1       Atwo         →                          :還想當正的啊
## 2    STi2011         →                      :我忍這麼久還當副
## 3  allen0981        推                    :王金平配柯建銘才穩
## 4    chh1470        推                          :南一中真一中
## 5   stvn2567         →                                :樁腳王
## 6     xu4wei         →                              :韓下王上
## 7      baiya         →                  :韓總為什麼不找蛀蛀姊
## 8      vesia        推        :把你拱上市長就是要你幫我選總統
## 9   jack2324        推      :要也是當果凍副手,誰要跟那個酒空
## 10     vesia         → :結果你過河拆橋自己選總統(純屬設計對白
# 把文章資訊和主題join起來
tsai_posts_Reviews <- merge(x = tsai_posts_Reviews, y = tsai_topics, by.x = "artUrl", by.y="document")
head(tsai_posts_Reviews,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564657817.A.607.html
##                                artTitle    artDate  artTime   artPoster
## 1  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 2  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 3  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 4  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 5  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 6  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 7  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 8  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 9  [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
## 10 [新聞]洪慈庸:明確支持蔡英文連任2020 2019-08-01 03:04:10 armorblocks
##       artCat commentNum push boo
## 1  Gossiping        598  266 119
## 2  Gossiping        598  266 119
## 3  Gossiping        598  266 119
## 4  Gossiping        598  266 119
## 5  Gossiping        598  266 119
## 6  Gossiping        598  266 119
## 7  Gossiping        598  266 119
## 8  Gossiping        598  266 119
## 9  Gossiping        598  266 119
## 10 Gossiping        598  266 119
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 sentence
## 1  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 2  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 3  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 4  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 5  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 6  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 7  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 8  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 9  洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
## 10 洪慈庸:明確支持蔡英文連任2020\n\n自由\n\n記者歐素美/台中報導\nhttps://imgur.com/B0E5QnI\n時代力量立委洪慈庸(中)發表聲明,明確支持蔡英文總統連任2020總統。\n\n\n時代力量立委洪慈庸今天以【時代力量的路,必須是團結台灣的路】發表聲明,強調站在\n支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n\n\n洪慈庸聲明全文如下:\n\n\n【時代力量的路,必須是團結台灣的路】\n\n\n慈庸首先要向大家報告,我仍然在做最後的努力,目前沒有要離開時代力量。但同時,我\n理解、尊重昶佐的決定,我也認為,我們的目標仍然一致——2020,國家的利益要在任何\n政黨利益之前。\n\n時代力量現在的困境,不僅是因黨內路線紛擾,導致外界霧裡看花、讓支持者猶豫,同時\n也是不夠謙卑的傲氣,一再阻斷時代力量與其他政黨之間的對話,讓許多有意接觸甚至加\n入的人打退堂鼓,不利本土勢力的整合。\n\n時代力量今天上午召開決策委員會,我認為我們仍然在逃避最關鍵的問題。我也在此公開\n說明我的主張——\n\n第一,站在支持本土政權延續的立場,明確支持蔡英文總統連任2020總統。\n\n第二,對於2020區域立委提名,必須要能用謙虛的心態,主動展開各政黨間的協調,匯聚\n本土能量,共同贏得大選。\n\n我可以理解,黨中央尊重每一席候選人的參選意願,但既然如此,就更該積極去協調、讓\n這些投入的候選人真的有機會贏。而不是消極地同意提名之後,放著候選人在地方自生自\n滅,犧牲掉這些從政的理想。\n\n更重要的是,時代力量與外界的對話,更要以防範親中媚共勢力擴張、凝聚本土力量為最\n大目標。如果我們都清楚,本土及進步的力量分裂,最後將無法贏、甚至被國民黨拿下,\n那這樣的提名方式,恐怕只會辜負社會的期待,甚至對本土力量造成傷害。如果最後真的\n造成親共勢力復辟的機會,我會義無反顧離開。\n\n為了溝通出一條時代力量的路,我們已經花了非常多時間和心力,很遺憾今天還是沒有定\n論。而我當初加入時力,就是希望台灣有一個新的本土政黨,讓年輕人可以透過這個平台\n參政,我從不認為這是容易的事,但我想為了這份初衷再努力試試看。\n\n許多朋友對這個黨的期待,還是存在的,我希望,在2020,時力要能善用累積的影響力,\n為本土勢力、守護台灣發揮正向的影響,真正成為國會中的關鍵少數。\n\n為此,我願意再做最後的努力。\nhttps://tinyurl.com/y5688yfe\n仲丘 你可以安息了~\n\n
##      cmtPoster cmtStatus                            cmtContent topic
## 1   MoWilliams        推                       :弟弟死而無憾了     5
## 2     Neverfor        推                                 :小綠     5
## 3    whiteadam         →                               :柯p呢?     5
## 4  allyourshit         →             :弟弟變韭菜割了一輪又一輪     5
## 5      dream99        噓 :力挺洪慈庸柯P盼「柯文哲現象」擴大-政     5
## 6      dream99         →                    :治-自由時報電子報     5
## 7   iloveayken        噓                     :書面不敢罵柯了喔     5
## 8       lauver        推                                 :Push     5
## 9    louis5265        噓                           :毫無作為的     5
## 10     DCcheng         →           :不會選前說一套選後做一套?     5
##        gamma
## 1  0.7812153
## 2  0.7812153
## 3  0.7812153
## 4  0.7812153
## 5  0.7812153
## 6  0.7812153
## 7  0.7812153
## 8  0.7812153
## 9  0.7812153
## 10 0.7812153
hen_posts_Reviews <- merge(x = hen_posts_Reviews, y = hen_topics, by.x = "artUrl", by.y="document")
head(hen_posts_Reviews,10)
##                                                      artUrl
## 1  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 2  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 3  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 4  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 5  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 6  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 7  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 8  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 9  https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
## 10 https://www.ptt.cc/bbs/Gossiping/M.1564714689.A.199.html
##                                        artTitle    artDate  artTime
## 1  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 2  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 3  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 4  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 5  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 6  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 7  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 8  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 9  [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
## 10 [新聞]王金平拒當韓國瑜副手原因曝光! 「一定 2019-08-01 18:52:07
##    artPoster    artCat commentNum push boo
## 1     yenkin Gossiping        152   93  10
## 2     yenkin Gossiping        152   93  10
## 3     yenkin Gossiping        152   93  10
## 4     yenkin Gossiping        152   93  10
## 5     yenkin Gossiping        152   93  10
## 6     yenkin Gossiping        152   93  10
## 7     yenkin Gossiping        152   93  10
## 8     yenkin Gossiping        152   93  10
## 9     yenkin Gossiping        152   93  10
## 10    yenkin Gossiping        152   93  10
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                sentence
## 1  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 2  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 3  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 4  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 5  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 6  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 7  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 8  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 9  來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
## 10 來源:ETtoday新聞雲\nhttps://www.ettoday.net/news/20190802/1504121.htm\n內文:\n記者林悅/台南報導\n\n前立法院長王金平,8月2日上午,前往台南一中參與新任校長就職典禮,王金平對台北市長柯文哲組黨一事表示,柯文哲組黨是希望代表中道力量,他尊重與祝福,對於「韓王會」一事,王金平則表示「慢一點」,但王金平證實拒絕韓國瑜的副手邀請。\n\n王金平說,他今天回到台南一中母校,心情非常的高興,他去看一下初一時候跟高三時候的教室跟座位,是很開心、難忘的回憶。\n\n對於外界說韓國瑜市長有當面請王金平當副手,被王金平拒絕一事,王金平則坦承他拒絕韓國瑜市長的邀請。王金平說,韓國瑜市長可以考量的人是非常的多,可以邀請的對象很多,所以請盡量去考量別人,讓韓去充分考慮,應該什麼樣的人選才是能夠跟他相輔相成。\n\n對媒體詢問柯文哲現在組黨的事,還有郭台銘也回台了,王金平對此有什麼看法時,王金平指出,對於柯文哲組黨,他給予尊重也給予祝福,這也就是大家對藍綠好像都沒有太大期待的時候,那柯文哲來組這個黨,希望能夠代表中道的力量,他也祝福柯能夠順利達成他的目標。對於柯陣營是否持續與王金平接觸一事,王金平則表示不宜多說話。\n\n對媒體問到「韓王會」會繼續嗎?王金平則說,韓王會目前連先生還在安排,他跟連說慢一點,沒有說不要,因為已經幾度聚過會了,所以他說目前還沒有這個必要,那慢一點再說。而媒體問到個陳水扁說柯P一定會出來選,問王金平的看法時,王金平回稱:「這你要去請教他啊!」。\n\n王金平強調,他有講過他一定參選到底!這句話從來沒有變過,怎麼參選到底,「只有上天知道、上天安排」,上天怎麼安排他怎麼走,他以前講過的,他從來都是算數,從來沒有改變過講法。對於是否有支持者在幫忙連署,王金平則稱這是支持者他們自動自發的連署,他還沒有發動,但是聽說已經連署不少了,應該連署了十幾萬份。對於是否與柯P的政黨會有一些合作可能性?王金平則稱這未來再說。\n\n\n卦點:公道伯說他一定會聯絡上郭台銘!快去鬥死草包口號魚!
##    cmtPoster cmtStatus                             cmtContent topic
## 1       Atwo         →                          :還想當正的啊     9
## 2    STi2011         →                      :我忍這麼久還當副     9
## 3  allen0981        推                    :王金平配柯建銘才穩     9
## 4    chh1470        推                          :南一中真一中     9
## 5   stvn2567         →                                :樁腳王     9
## 6     xu4wei         →                              :韓下王上     9
## 7      baiya         →                  :韓總為什麼不找蛀蛀姊     9
## 8      vesia        推        :把你拱上市長就是要你幫我選總統     9
## 9   jack2324        推      :要也是當果凍副手,誰要跟那個酒空     9
## 10     vesia         → :結果你過河拆橋自己選總統(純屬設計對白     9
##        gamma
## 1  0.6107801
## 2  0.6107801
## 3  0.6107801
## 4  0.6107801
## 5  0.6107801
## 6  0.6107801
## 7  0.6107801
## 8  0.6107801
## 9  0.6107801
## 10 0.6107801
tsai_link <- tsai_posts_Reviews %>%
      group_by(cmtPoster, artUrl) %>% 
      filter(n()>15) %>% 
      ungroup() %>% 
      filter(topic == 1 | topic == 4) %>% 
      select(cmtPoster, artPoster, artUrl, topic) %>% 
      unique()
head(tsai_link,10)
## # A tibble: 10 x 4
##    cmtPoster  artPoster artUrl                                        topic
##    <chr>      <chr>     <chr>                                         <int>
##  1 cycutom    pp520     https://www.ptt.cc/bbs/Gossiping/M.156500420~     4
##  2 spa41260   qqq5566   https://www.ptt.cc/bbs/Gossiping/M.156508983~     4
##  3 sadmonkey  ebsd      https://www.ptt.cc/bbs/Gossiping/M.156581433~     4
##  4 PowerPro   deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
##  5 v2tsbasa   deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
##  6 bingreen   deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
##  7 Meerz      deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
##  8 wish770924 deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
##  9 hilosima   deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
## 10 ferb       deann     https://www.ptt.cc/bbs/Gossiping/M.156582918~     4
hen_link <- hen_posts_Reviews %>%
      group_by(cmtPoster, artUrl) %>% 
      filter(n()>15) %>% 
      ungroup() %>% 
      filter(topic == 4 | topic == 8) %>% 
      select(cmtPoster, artPoster, artUrl, topic) %>% 
      unique()
head(hen_link,10)
## # A tibble: 10 x 4
##    cmtPoster    artPoster artUrl                                      topic
##    <chr>        <chr>     <chr>                                       <int>
##  1 Cassander    Aqqqa     https://www.ptt.cc/bbs/Gossiping/M.1565243~     8
##  2 WTF55665566  Tina7412~ https://www.ptt.cc/bbs/Gossiping/M.1565248~     8
##  3 WTF55665566  kcbill    https://www.ptt.cc/bbs/Gossiping/M.1565359~     8
##  4 peterwww     kcbill    https://www.ptt.cc/bbs/Gossiping/M.1565359~     8
##  5 WTF55665566  arkroyal  https://www.ptt.cc/bbs/Gossiping/M.1565414~     8
##  6 KCKCLIN      pujipuji  https://www.ptt.cc/bbs/Gossiping/M.1565691~     4
##  7 KEYSOLIDER   pujipuji  https://www.ptt.cc/bbs/Gossiping/M.1565691~     4
##  8 eric999      zi98btcc  https://www.ptt.cc/bbs/Gossiping/M.1565712~     4
##  9 WeGoYuSheng  buladeik  https://www.ptt.cc/bbs/Gossiping/M.1565760~     4
## 10 Ipadhotwater Desire55~ https://www.ptt.cc/bbs/Gossiping/M.1565840~     4
tsai_allPoster <- c(posts_tsai_data$artPoster, reviews_tsai_data$cmtPoster)

tsai_userList <- data.frame(user=unique(tsai_allPoster)) %>%
              mutate(type=ifelse(user%in%posts_tsai_data$artPoster, "poster", "replyer"))
head(tsai_userList,10)
##           user   type
## 1  armorblocks poster
## 2      anz5566 poster
## 3      qqq5566 poster
## 4       ueewen poster
## 5      LIN6627 poster
## 6       Moogle poster
## 7        iasyt poster
## 8      fifa186 poster
## 9   whokisswho poster
## 10   attilalin poster
hen_allPoster <- c(posts_hen_data$artPoster, reviews_hen_data$cmtPoster)

hen_userList <- data.frame(user=unique(hen_allPoster)) %>%
              mutate(type=ifelse(user%in%posts_hen_data$artPoster, "poster", "replyer"))
head(hen_userList,10)
##         user   type
## 1     yenkin poster
## 2  s910443tw poster
## 3   derekgao poster
## 4    jacklyl poster
## 5    jiunyee poster
## 6     xamous poster
## 7  btm978952 poster
## 8      Bluce poster
## 9    meiyouo poster
## 10  shokotan poster
# 篩選link中有出現的使用者
tsai_filtered_user <- tsai_userList %>%
          filter(user%in%tsai_link$cmtPoster | user%in%tsai_link$artPoster) %>%
          arrange(desc(type))
head(tsai_filtered_user,10)
##            user    type
## 1       Moratti replyer
## 2  avantlapluie replyer
## 3       julia66 replyer
## 4   Howard61313 replyer
## 5      fifi0828 replyer
## 6       dan5209 replyer
## 7       demitri replyer
## 8        youjan replyer
## 9      flybirdy replyer
## 10       zebra7 replyer
hen_filtered_user <- hen_userList %>%
          filter(user%in%hen_link$cmtPoster | user%in%hen_link$artPoster) %>%
          arrange(desc(type))
head(hen_filtered_user,10)
##            user    type
## 1       Moratti replyer
## 2  Ipadhotwater replyer
## 3      hank7218 replyer
## 4   protect6090 replyer
## 5      chunglee replyer
## 6        kakain replyer
## 7      fifi0828 replyer
## 8        stoxin replyer
## 9  greedypeople replyer
## 10     tomo1026 replyer
# 建立網路關係
tsai_reviewNetwork <- graph_from_data_frame(d=tsai_link, v=tsai_filtered_user, directed=F)
hen_reviewNetwork <- graph_from_data_frame(d=hen_link, v=hen_filtered_user, directed=F)

# 依據使用者身份對點進行上色
labels <- degree(tsai_reviewNetwork)
V(tsai_reviewNetwork)$label <- names(labels)
V(tsai_reviewNetwork)$color <- ifelse(V(tsai_reviewNetwork)$type=="poster", "gold", "lightblue")

labels <- degree(hen_reviewNetwork)
V(hen_reviewNetwork)$label <- names(labels)
V(hen_reviewNetwork)$color <- ifelse(V(hen_reviewNetwork)$type=="poster", "gold", "lightblue")

# 依據回覆發生的文章所對應的主題,對他們的關聯線進行上色
E(tsai_reviewNetwork)$color <- ifelse(E(tsai_reviewNetwork)$topic == "1", "lightgreen", "palevioletred")

E(hen_reviewNetwork)$color <- ifelse(E(hen_reviewNetwork)$topic == "4", "lightgreen", "palevioletred")

# 畫出社群網路圖
set.seed(5432)
plot(tsai_reviewNetwork, vertex.size=3, edge.width=3, vertex.label.dist=1,
     vertex.label=ifelse(degree(tsai_reviewNetwork) > 5, V(tsai_reviewNetwork)$label, NA),vertex.label.font=2)

# 加入標示
legend("bottomright", c("發文者","回文者"), pch=21, 
  col="#777777", pt.bg=c("gold","lightblue"), pt.cex=1, cex=1)

legend("topleft", c("博士論文","一例一休"), 
       col=c("lightgreen","palevioletred"), lty=1, cex=1)

set.seed(5432)
plot(hen_reviewNetwork, vertex.size=3, edge.width=3, vertex.label.dist=1,
     vertex.label=ifelse(degree(hen_reviewNetwork) > 5, V(hen_reviewNetwork)$label, NA),vertex.label.font=2)

# 加入標示
legend("bottomright", c("發文者","回文者"), pch=21, 
  col="#777777", pt.bg=c("gold","lightblue"), pt.cex=1, cex=1)

legend("topleft", c("遲到","民調"), 
       col=c("lightgreen","palevioletred"), lty=1, cex=1)

# PTT的回覆有三種,推文、噓文、箭頭
# 我們只要看推噓就好,因此把箭頭清掉
tsai_link <- tsai_posts_Reviews %>%
      filter(cmtStatus!="→") %>%
      group_by(cmtPoster, artUrl) %>% 
      filter(n()>7) %>% 
      ungroup() %>% 
      select(cmtPoster, artPoster, artUrl, cmtStatus) %>% 
      unique()

hen_link <- hen_posts_Reviews %>%
      filter(cmtStatus!="→") %>%
      group_by(cmtPoster, artUrl) %>% 
      filter(n()>7) %>% 
      ungroup() %>% 
      select(cmtPoster, artPoster, artUrl, cmtStatus) %>% 
      unique()

# 篩選link中有出現的使用者
tsai_filtered_user <- tsai_userList %>%
          filter(user%in%tsai_link$cmtPoster | user%in%tsai_link$artPoster) %>%
          arrange(desc(type))

hen_filtered_user <- hen_userList %>%
          filter(user%in%hen_link$cmtPoster | user%in%hen_link$artPoster) %>%
          arrange(desc(type))

# 建立網路關係
tsai_reviewNetwork <- graph_from_data_frame(d=tsai_link, v=tsai_filtered_user, directed=F)
hen_reviewNetwork <- graph_from_data_frame(d=hen_link, v=hen_filtered_user, directed=F)

# 依據使用者身份對點進行上色
labels <- degree(tsai_reviewNetwork)
V(tsai_reviewNetwork)$label <- names(labels)
V(tsai_reviewNetwork)$color <- ifelse(V(tsai_reviewNetwork)$type=="poster", "gold", "lightblue")

labels <- degree(hen_reviewNetwork)
V(hen_reviewNetwork)$label <- names(labels)
V(hen_reviewNetwork)$color <- ifelse(V(hen_reviewNetwork)$type=="poster", "gold", "lightblue")

# 依據回覆發生的文章所對應的主題,對他們的關聯線進行上色
E(tsai_reviewNetwork)$color <- ifelse(E(tsai_reviewNetwork)$cmtStatus == "推", "lightgreen", "palevioletred")

E(hen_reviewNetwork)$color <- ifelse(E(hen_reviewNetwork)$cmtStatus == "推", "lightgreen", "palevioletred")

# 畫出社群網路圖
set.seed(5432)
plot(tsai_reviewNetwork, vertex.size=2, edge.width=3, vertex.label.dist=1,
     vertex.label=ifelse(degree(tsai_reviewNetwork) > 5, V(tsai_reviewNetwork)$label, NA),vertex.label.font=2)
# 加入標示
legend("bottomright", c("發文者","回文者"), pch=21,
  col="#777777", pt.bg=c("gold","lightblue"), pt.cex=1, cex=1)

legend("topleft", c("推","噓"), 
       col=c("lightgreen","palevioletred"), lty=1, cex=1)

set.seed(5432)
plot(hen_reviewNetwork, vertex.size=2, edge.width=3, vertex.label.dist=1,
     vertex.label=ifelse(degree(hen_reviewNetwork) > 5, V(hen_reviewNetwork)$label, NA),vertex.label.font=2)

# 加入標示
legend("bottomright", c("發文者","回文者"), pch=21,
  col="#777777", pt.bg=c("gold","lightblue"), pt.cex=1, cex=1)

legend("topleft", c("推","噓"), 
       col=c("lightgreen","palevioletred"), lty=1, cex=1)