2個發文領袖的分析
第15組：龔雪燕、鄭宇翔、鄭子婷、余任濤
2020/06
系統設置
## [1] "LC_CTYPE=zh_TW.UTF-8;LC_NUMERIC=C;LC_TIME=zh_TW.UTF-8;LC_COLLATE=zh_TW.UTF-8;LC_MONETARY=zh_TW.UTF-8;LC_MESSAGES=en_US.UTF-8;LC_PAPER=en_US.UTF-8;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=en_US.UTF-8;LC_IDENTIFICATION=C"安裝 Packages
packages = c("readr", "tm", "data.table", "dplyr", "stringr", "jiebaR", "tidytext", "ggplot2", "tidyr", "topicmodels", "LDAvis", "igraph","knitr", "webshot", "purrr", "ramify", "RColorBrewer", "htmlwidgets", "servr")
existing = as.character(installed.packages()[,1])
for(pkg in packages[!(packages %in% existing)]) install.packages(pkg)# 載入packages
library(readr)
library(tm)
library(dplyr)
library(jiebaR)
library(tidyr)
library(tidytext)
library(igraph)
library(topicmodels)
library(stringr)
library(ggplot2)
library(knitr)
library(RColorBrewer)
require(data.table)
require(wordcloud2)
require(scales)
require(reshape2)
require(widyr)
require(ggraph)
require(wordcloud)
mycolors <- colorRampPalette(brewer.pal(8, "Set3"))(20)讀取資料
載入資料
# 文章資料
HongKong <- fread("articleMetaData.csv", encoding = "UTF-8")
HongKong$artDate = HongKong$artDate %>% as.Date("%Y/%m/%d") # 將日期欄位格式由chr轉為date
#回覆資料
HongKong_review <- fread("articleReviews.csv", encoding = "UTF-8")
# 選取需要的欄位
HongKong_review <- HongKong_review %>%
select(artUrl, cmtPoster, cmtStatus, cmtContent)
HongKong_review2 <- fread("articleReviews.csv", encoding = "UTF-8")order <- fread("hongkong3.csv", encoding = "UTF-8")
order$artDate = order$artDate %>% as.Date("%Y/%m/%d")
order## artTitle artDate artTime
## 1: [新聞]寶礦力挺反送中？陸偶像女團GNZ48終止合 2019-07-11 14:14:16
## 2: [新聞]寶礦力挺反送中？陸偶像女團GNZ48終止合 2019-07-11 14:14:16
## 3: [新聞]寶礦力挺反送中？陸偶像女團GNZ48終止合 2019-07-11 14:14:16
## 4: [新聞]寶礦力挺反送中？陸偶像女團GNZ48終止合 2019-07-11 14:14:16
## 5: [新聞]寶礦力挺反送中？陸偶像女團GNZ48終止合 2019-07-11 14:14:16
## ---
## 763867: Re:[新聞]香港女吐心聲「不想移民台灣」！196字淚 2020-05-28 06:46:32
## 763868: Re:[新聞]香港女吐心聲「不想移民台灣」！196字淚 2020-05-28 06:46:32
## 763869: Re:[新聞]香港女吐心聲「不想移民台灣」！196字淚 2020-05-28 06:46:32
## 763870: Re:[新聞]香港女吐心聲「不想移民台灣」！196字淚 2020-05-28 06:46:32
## 763871: Re:[新聞]香港女吐心聲「不想移民台灣」！196字淚 2020-05-28 06:46:32
## artUrl word count
## 1: https://www.ptt.cc/bbs/Gossiping/M.1562883620.A.B88.html 寶礦力 8
## 2: https://www.ptt.cc/bbs/Gossiping/M.1562883620.A.B88.html 廣告 5
## 3: https://www.ptt.cc/bbs/Gossiping/M.1562883620.A.B88.html 水特 4
## 4: https://www.ptt.cc/bbs/Gossiping/M.1562883620.A.B88.html 完整 3
## 5: https://www.ptt.cc/bbs/Gossiping/M.1562883620.A.B88.html GNZ48 3
## ---
## 763867: https://www.ptt.cc/bbs/Gossiping/M.1590648394.A.2B5.html 友善 1
## 763868: https://www.ptt.cc/bbs/Gossiping/M.1590648394.A.2B5.html 港人 1
## 763869: https://www.ptt.cc/bbs/Gossiping/M.1590648394.A.2B5.html 移民 1
## 763870: https://www.ptt.cc/bbs/Gossiping/M.1590648394.A.2B5.html 慢走 1
## 763871: https://www.ptt.cc/bbs/Gossiping/M.1590648394.A.2B5.html 不送 1資料預覽
發文者數量
length(unique(HongKong$artPoster))## [1] 3537回覆者數量
length(unique(HongKong_review$cmtPoster))## [1] 45674總參與人數量
allPoster <- c(HongKong$artPoster, HongKong_review$cmtPoster)
length(unique(allPoster))## [1] 46709整理參與人
# 整理所有出現過的使用者：
# 若曾發過文則標註爲：Poster；不曾發過文則標註爲：Replyer
userList <- data.frame(user = unique(allPoster)) %>%
mutate(type = ifelse(user%in%HongKong$artPoster, "poster", "replyer"))#整體分析 ###資料處理
data <- order %>%
select(artDate, artUrl) %>% # 選出文章和日期欄位
distinct() ###日期折線圖
article_count_by_date <- data %>%
group_by(artDate) %>%
summarise(count = n())
article_count_by_date %>%
arrange(desc(count))%>%
top_n(10)## Selecting by count## # A tibble: 10 x 2
## artDate count
## <date> <int>
## 1 2019-08-12 297
## 2 2019-10-04 271
## 3 2019-08-11 193
## 4 2019-10-22 191
## 5 2020-05-26 183
## 6 2020-05-24 182
## 7 2020-05-23 174
## 8 2019-07-21 173
## 9 2019-11-13 167
## 10 2019-11-18 164plot_date <-
# data
article_count_by_date %>%
# aesthetics
ggplot(aes(x = artDate, y = count)) +
# geometrics
geom_line(color = "#00AFBB", size = 1) +
geom_vline(xintercept = as.numeric(as.Date("2019-08-12")), col='red') +
geom_vline(xintercept = as.numeric(as.Date("2019-10-04")), col='red') +
geom_vline(xintercept = as.numeric(as.Date("2019-10-22")), col='red') +
geom_vline(xintercept = as.numeric(as.Date("2020-05-26")), col='red') +
# coordinates
scale_x_date(labels = date_format("%Y/%m/%d")) +
ggtitle("反送中討論文章數") +
xlab("日期") +
ylab("文章數")
plot_date
圖中可以看出，2019年8月以來反送中熱度不斷上漲，在8月12日達到頂峰。 隨後下滑並一度幾乎降為0 進入10月後再次回暖，分別在10月4日及22日達到第二第三高峰。 在進入十一月後也出現不同程度的高峰。 2020年後反送中熱度出現很長一段時間的低谷，直到5月中旬才出現回暖。
找出聲量高的議題
order %>%
filter(artDate == as.Date('2020/05/26')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
distinct(artTitle, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 Re:[新聞]停止港澳條例？陸委會：不是要放棄香港
## 2 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 3 [新聞]入境比照大陸人反嚇到香港人
## 4 Re:[新聞]蔡拋停用港澳條例反送中黃絲批：事前支
## 5 [新聞]98歲賭王何鴻燊驚爆腎衰竭病危！港媒傳打
## 6 [新聞]撐香港，是撐台灣自己學者：修港澳條例
## 7 Re:[問卦]香港問題各國除了嘴砲攻擊還能做什麼？
## 8 [問卦]香港律師被暴徒圍毆的八掛
## 9 [新聞]快訊／被質疑選後切割香港 蔡英文親口
## 10 [新聞]國民黨批停用「港澳條例」切割香港蔡英
## 11 Re:[新聞]快訊／被質疑選後切割香港 蔡英文親口
## 12 [爆卦]香港廢青對臺灣最新5大訴求
## 13 Re:[新聞]國民黨批停用「港澳條例」切割香港蔡英
## 14 [問卦]要怎麼跟香港人解釋廢除港澳條例不是放棄
## 15 [問卦]精兵2萬可以打下香港嗎?
## 16 [問卦]香港人真的不希望台灣收留他們嗎？
## 17 [新聞]中共回應港版國安法遭民間再次反擊
## 18 [新聞]遭指切割香港蔡總統：國民黨講法錯誤
## 19 Re:[問卦]要怎麼跟香港人解釋廢除港澳條例不是放棄
## 20 [問卦]說真的，台灣可以對香港幫助什麼==
## 21 Re:[問卦]說真的，台灣可以對香港幫助什麼==
## 22 [問卦]為什麼香港沒有富商號召買地建國？
## 23 [問卦]去年沒香港暴動的話台灣歷史軌跡會變嗎
## 24 [新聞]林鄭月娥：港版國安法勢在必行
## 25 [問卦]全世界都只能用嘴巴救香港了嗎
## 26 [爆卦]台灣會提供香港必要協助上了Reddit
## 27 [問卦]有沒有南亞裔香港人的八卦??
## 28 Re:[問卦]全世界都只能用嘴巴救香港了嗎
## 29 [問卦]中華民國能接收香港移(難)民的上限？
## 30 [新聞]港版國安法爭議林鄭強調遵守國家憲法
## 31 [問卦]台灣需要那種香港人?
## 32 Re:[新聞]港版國安法爭議林鄭強調遵守國家憲法
## 33 [問卦]香港人到底鬥不鬥得過共產黨?
## 34 [新聞]支持香港反送中...卻冷看移民揭曉台灣
## 35 Re:[問卦]香港特殊關稅地位...美國會取消嗎？
## 36 Re:[問卦]中華民國能接收香港移(難)民的上限？
## 37 [問卦]不能直接佔領香港嗎？
## 38 [問卦]高雄收下香港人人數會不會達標呢？
## 39 [問卦]支持香港反共爭民主變成支持移民??
## 40 [問卦]讓香港人移民有什麼優點？
## 41 [爆卦]5ch論""中國/香港/台灣差別在哪？""
## 42 [問卦]社運圈沒人挺香港嗎?
## 43 [問卦]香港在歷史上有幫過台灣嗎?????
## 44 [問卦]香港比賽結束了??
## 45 [問卦]香港人是不是軟土深掘
## 46 [問卦]幫助民風愛壞人的香港是不是害香港
## 47 [問卦]港仔該不會把「撐香港」當真了吧
## 48 Re:[問卦]香港人是不是軟土深掘
## 49 [問卦]台灣是香港的7-11嗎？
## 50 Re:[問卦]香港人是不是得寸進尺
## 51 [問卦]用力撐香港一年了港仔居然還不滿足？
## 52 Re:[新聞]北京推「港版國安法」國民黨:支持香港民主與雙普選、民
## 53 [問卦]香港人邏輯是不是有毛病阿
## 54 [問卦]香港人：香港幫了台灣選舉台灣該還債了
## 55 [問卦]為什麼某些人這麼想讓香港人來台灣呀？
## 56 Re:[問卦]香港在歷史上有幫過台灣嗎?????
## 57 [問卦]當初領中華民國無戶籍護照的香港人？
## 58 [問卦]台灣被打壓時，香港人有站出來過嗎
## 59 [問卦]港版國安法只是試水溫
## 60 Re:[問卦]香港人：香港幫了台灣選舉台灣該還債了吧
## 61 [問卦]這波香港移民議題到底如分辨敵我？
## 62 [問卦]香港人任賢齊現在在想什麼？
## 63 [問卦]如果香港人花錢集體買台灣地那邊可賣?
## 64 [問卦]撐香港的風向怎麼變那麼快
## 65 [問卦]為什麼香港以前拍得出那麽多白爛電影？
## 66 Re:[問卦]港版國安法只是試水溫
## 67 [問卦]香港是不是患難見真情啊?
## 68 Re:[問卦]讓香港人移民有什麼優點？
## 69 [問卦]現在支持香港移民台灣的ID=五毛對嗎？
## 70 [問卦]台灣為什麼不收香港人?
## 71 [問卦]香港就是中國一部分對吧？
## 72 [問卦]台灣該怎麼撐香港？
## 73 Re:[問卦]撐香港的風向怎麼變那麼快
## 74 [新聞]林飛帆掛保證：「台灣絕不會放棄香港！
## 75 [問卦]苗栗可以賣給香港嗎
## 76 Re:[新聞]林飛帆掛保證：「台灣絕不會放棄香港！
## 77 [問卦]柴契爾夫人為何放棄香港？
## 78 [問卦]香港人是不是很自私
## 79 [問卦]關心香港=讓你移民？
## 80 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 81 [問卦]誰相信說香港小波浪的人是真心挺香港?
## 82 [問卦]今天台灣幫助香港之後會不會有人靠北
## 83 [問卦]黎先生到底是代表誰要臺灣救香港？
## 84 [問卦]香港人會認同臺灣這片土地嗎
## 85 [問卦]當年香港97回歸台灣會怎麼樣
## 86 Re:[問卦]當年香港97回歸台灣會怎麼樣
## 87 [問卦]香港人的路如何走下去
## 88 Re:[新聞]遭指切割香港蔡總統：國民黨講法錯誤
## 89 [問卦]要怎麼跟香港人說加油
## 90 [新聞]審香港「國歌法」衝突再現？港人喊大三罷
## 91 [問卦]香港難民收到金門/馬祖，是不是兩全其美?!
## 92 [問卦]所以撐香港是要怎麼撐法？
## 93 [問卦]香港人要移民不容易嗎?
## 94 [問卦]成立中華民國香港市政府是不是可行？
## 95 [問卦]香港難民會變成新版外省人嗎?
## 96 [問卦]港仔為什麼喜歡把今日香港明日台灣掛在嘴
## 97 [問卦]香港人可以不可先跟中國打一仗看看
## 98 [問卦]以後還要細分香港人跟中國人嗎？
## 99 [問卦]香港風向變成移民嗎
## 100 [問卦]支持香港人來台灣！
## 101 [問卦]台灣有能力接受香港全部人吧
## 102 [問卦]香港到底跟台灣啥關係？
## 103 Re:[問卦]港仔為什麼喜歡把今日香港明日台灣掛在嘴
## 104 [問卦]香港人要來,房價要飆了嗎？
## 105 [問卦]移民來台灣的香港人會為台灣而戰嗎？
## 106 [問卦]台灣可以收多少香港人
## 107 [問卦]為何台灣人均GDP從沒接近過香港！
## 108 [問卦]香港人會用ptt嗎？
## 109 [問卦]香港正妹來台會收嗎？
## 110 Re:[問卦]香港到底跟台灣啥關係？
## 111 [新聞]北京推港版國安法白宮：港難維持金融中
## 112 Re:[新聞]國民黨已提法案撐香港民進黨別只喊口號
## 113 [問卦]香港殺人魔陳同佳會不會又想投案了??
## 114 Re:[問卦]香港殺人魔陳同佳會不會又想投案了??
## 115 [問卦]香港人是不是很沒種?
## 116 [新聞]王炳忠：蔡英文批評港版國安法自己卻修2019年8月12日：示威者佔領香港國際機場 2019年10月04日：林鄭月娥頒布蒙面法 2019年10月22日：陳同佳出獄（這一事件被認為是反送中的導火索之一，潘曉穎命案：https://zh.wikipedia.org/wiki/%E6%BD%98%E6%9B%89%E7%A9%8E%E5%91%BD%E6%A1%88） 2020年5月26日：國安法頒布，民進黨欲停用港澳條例
###文字雲
stop_words <- fread("stop_words.txt", encoding = "UTF-8") #設定停用字
order <- order %>%
filter(!word %in% stop_words$word)
#將文章按照文字分群並計算每一個字的總詞頻
word_count <- order %>%
group_by(word) %>%
summarise(sum = sum(count)) %>%
arrange(desc(sum))詞頻最高的前二十名
head(word_count, 20)## # A tibble: 20 x 2
## word sum
## <chr> <int>
## 1 台灣 12554
## 2 中國 9205
## 3 中共 5315
## 4 記者 3935
## 5 警察 3463
## 6 美國 3125
## 7 警方 3037
## 8 政府 3017
## 9 示威者 2852
## 10 反送 2761
## 11 支持 2654
## 12 報導 2504
## 13 遊行 2360
## 14 抗爭 2320
## 15 民主 2117
## 16 國家 2105
## 17 港人 2050
## 18 自由 2029
## 19 抗議 1926
## 20 大陸 1879cloud <- order %>%
group_by(word) %>%
summarise(sum = sum(count)) %>%
arrange(desc(sum)) %>%
filter(sum > 850) %>%
wordcloud2()
cloud可以看出反送中議題涉及的角度很廣 ###長條圖 與文字雲相比，長條圖可以查看較精確的「最常出現詞彙」。
order %>%
group_by(word) %>% #根據word分組
filter(!word %in% stop_words$word) %>%
summarize(count = n()) %>% #計算每組
top_n(n = 20, count) %>%
ungroup() %>%
mutate(word = reorder(word, count)) %>%
ggplot(aes(word, count)) +
geom_col()+
ggtitle("Word Frequency ") +
theme(text=element_text(size=14))+
coord_flip()
議題主要集中於反送中活動本身與民主自由等政治方面
#情緒分析 ### 以LIWC字典判斷文集中的word屬於正面字還是負面字
# 正向字典txt檔
# 以,將字分隔
P <- read_file("positive.txt")
# 負向字典txt檔
N <- read_file("negative.txt")#將字串依,分割
#strsplit回傳list , 我們取出list中的第一個元素
P = strsplit(P, ",")[[1]]
N = strsplit(N, ",")[[1]]
# 建立dataframe 有兩個欄位word,sentiments，word欄位內容是字典向量
P = data.frame(word = P, sentiment = "positive")
N = data.frame(word = N, sentiment = "negative")LIWC = rbind(P, N)#以LIWC情緒字典分析
統計每天的文章正面字的次數與負面字的次數
sentiment_count_word = order %>%
select(artDate,word,count) %>%
inner_join(LIWC) %>%
group_by(artDate,sentiment)## Joining, by = "word"## Warning: Column `word` joining character vector and factor, coercing into
## character vectorsentiment_count = order %>%
select(artDate,word,count) %>%
inner_join(LIWC) %>%
group_by(artDate,sentiment) %>%
summarise(count=sum(count))## Joining, by = "word"## Warning: Column `word` joining character vector and factor, coercing into
## character vectorsentiment_count %>%
arrange(desc(count))## # A tibble: 621 x 3
## # Groups: artDate [315]
## artDate sentiment count
## <date> <fct> <int>
## 1 2019-08-12 negative 984
## 2 2019-11-17 negative 750
## 3 2019-10-04 negative 747
## 4 2019-08-11 negative 664
## 5 2019-11-13 negative 661
## 6 2020-05-22 negative 649
## 7 2019-07-22 negative 645
## 8 2019-08-12 positive 633
## 9 2019-10-22 negative 582
## 10 2019-11-18 negative 582
## # … with 611 more rows(負向)
sentiment_count %>%
ggplot()+
geom_line(aes(x=artDate,y=count,colour=sentiment))+
scale_x_date(labels = date_format("%y/%m/%d"))+
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/08/12'))
[1]])),colour = "blue") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/11/17'))
[1]])),colour = "blue") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/10/04'))
[1]])),colour = "blue") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/08/11'))
[1]])),colour = "blue") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2020/05/22'))
[1]])),colour = "blue") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/11/13'))
[1]])),colour = "blue") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/07/22'))
[1]])),colour = "blue") 
#geom_vline畫出vertical line，xintercept告訴他要在artDate欄位的哪一個row畫線order %>%
filter(artDate == as.Date('2019/07/22')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 [新聞]反送中昨遊行一度包圍中聯辦警強勢清場
## 2 Re:[爆卦]請台灣的朋友別到香港元朗地區
## 3 [新聞]柯文哲：台灣問題不解決就會像香港一樣
## 4 [問卦]香港警察片以後怎麼拍
## 5 [新聞]黑社會發出禁進元朗令?港媒:今晚可能
## 6 [新聞]林鄭月娥譴責元朗暴力指示警方緝凶
## 7 [問卦]香港怎麼這麼亂
## 8 [問卦]香港人怎麼不反擊？
## 9 [新聞]香港瀕臨失控？曾慶紅：越亂越好
## 10 [爆卦]香港孕婦被元朗白衣黑道追打影片曝光
## 11 Re:[爆卦]香港孕婦被元朗白衣黑道追打影片曝光
## 12 Re:[新聞]影／孕婦也打！香港白衣人元朗暴行曝光1
## 13 [爆卦]香港公部門反了！
## 14 [爆卦]7月21日，香港發生了什麼事
## 15 [問卦]國軍這時候可以收復香港嗎？
## 16 [爆卦]香港Applestore提早關門
## 17 [新聞]傳反送中示威者求庇護移民署未接獲申請
## 18 Re:[問卦]用藤條就把香港雨傘仔打到下跪，何必槍？
## 19 [新聞]香港局勢惡化中共出動黑社會至少36傷
## 20 Re:[新聞]林鄭月娥譴責元朗暴力指示警方緝凶
## 21 [問卦]有人跟我一樣看到反送中港仔被揍很爽的嗎?
## 22 [新聞]香港最黑暗的一夜：元朗「白衣黑幫」無差別行兇，1市民命危
## 23 [問卦]孕婦參加反送中就該承擔被打的風險吧
## 24 Re:[問卦]有人跟我一樣看到反送中港仔被揍很爽的嗎?
## 25 [問卦]說香港白衣人是中共派來的?你們有證據嗎?
## 26 [問卦]為什麼香港蘋果水管直播一堆五毛
## 27 Re:[新聞]林鄭月娥譴責元朗暴力指示警方緝凶
## 28 Re:[新聞]香港白衣人暴毆柯:想想台灣何嘗不是這樣
## 29 [問卦]香港是亞洲最安全的城市
## 30 [新聞]準備鎮壓香港？解放軍在湛江舉行反恐演習
## 31 [問卦]如果想真人格鬥,是不是去香港幫忙?
## 32 Re:[問卦]寒戰說香港治安很好是騙人的嗎？
## 33 [新聞]香港反送中黃國昌：殘暴垃圾行徑宛如台
## 34 [新聞]影片為證！港警縱黑幫毆反送中45傷1命
## 35 [問卦]香港三大黑幫有哪個不舔共的嗎
## 36 [問卦]中國人微博回應香港孕婦被打事件
## 37 [問卦]現在去香港玩是不是要穿白衣服?
## 38 Re:[新聞]香港反送中黃國昌：殘暴垃圾行徑宛如台
## 39 [新聞]港白衣人攻擊《反送中》館長：中天你敢
## 40 [爆卦]別人推特上面錄到的香港白衣暴徒過警車
## 41 [新聞]不明群眾爆打香港抗議市民國際媒體關注
## 42 Re:[問卦]中國人微博回應香港孕婦被打事件
## 43 Re:[爆卦]別人推特上面錄到的香港白衣暴徒搭警車
## 44 [新聞]林鄭月娥遭連串質問記者會場面火爆
## 45 [新聞]與元朗白衣人握手香港議員何君堯服務處被
## 46 影／孕婦也打！香港白衣人元朗暴行曝光1人命危
## 47 Re:[新聞]影／孕婦也打！香港白衣人元朗暴行曝光1人命危
## 48 [問卦]新、舊香港的差異處及成因在哪呢？
## 49 [新聞]白衣人襲擊民眾香港特首出面允全力緝凶
## 50 Re:[新聞]港白衣人攻擊《反送中》館長：中天你敢
## 51 Re:[問卦]香港無政府狀態了?
## 52 [問卦]香港黑道只有棍子?
## 53 Re:[問卦]新、舊香港的差異處及成因在哪呢？
## 54 [問卦]香港尖沙咀死人
## 55 [問卦]香港白衣最後會查無不法嗎？
## 56 [新聞]香港血腥視頻：中共黑幫釀至少45傷（視頻）
## 57 [爆卦]香港民政局做出懲處了！
## 58 [問卦]香港未來有救嗎?
## 59 [問卦]台灣八家將有比香港古惑仔高尚嗎~?
## 60 [問卦]香港3345678
## 61 Re:[問卦]新、舊香港的差異處及成因在哪呢？
## 62 [問卦]香港加油！！！
## 63 [問卦]為啥覺青們還沒飛去香港幫忙？
## 64 Re:[問卦]香港未來有救嗎?
## 65 Re:[問卦]為啥覺青們還沒飛去香港幫忙？
## 66 Re:[問卦]新、舊香港的差異處及成因在哪呢？
## 67 [新聞]香港反送中紅二代披露多名涉港官員遭處分
## 68 Re:[問卦]香港未來有救嗎?
## 69 Re:[問卦]為啥覺青們還沒飛去香港幫忙？
## 70 [問卦]香港被打氣噗噗，覺青被打你們會？
## 71 [問卦]政府現在走私軍火去香港有沒有搞頭？
## 72 [問卦]現在去香港到底安不安全啊？
## 73 [問卦]被屏蔽被禁言但支持香港的中國人有多少
## 74 [問卦]喪屍在香港元朗怎麼辦
## 75 Re:[問卦]現在去香港到底安不安全啊？
## 76 [新聞]川普讚習近平處理香港反送中非常負責任
## 77 [爆卦]香港國泰航空聲援721事件
## 78 [新聞]反送中》香港出現暴力韓國瑜譴責
## 79 [新聞]川普談香港反送中 讚習近平：處理得「非
## 80 Re:[問卦]現在去香港到底安不安全啊？
## 81 [問卦]私菸事件是不是掩蓋香港抗爭
## 82 [問卦]香港現在狀況到底怎樣
## 83 [爆卦]香港元朗「鄉黑」形成的歷史原因與現況
## 84 [問卦]看完香港還不預防性雞鴨含粉嗎？
## 85 [問卦]去香港街頭驗收武術實戰成果
## 86 [問卦]把香港事件打成網軍操作誰可以得利?
## 87 [爆卦]香港TVB員工反了
## 88 [新聞]香港白衣人施暴洪慈庸：拒絕在台跟中共
## 89 Re:[爆卦]香港TVB員工反了
## 90 Re:[問卦]為啥覺青們還沒飛去香港幫忙？
## 91 Re:[爆卦]香港TVB員工反了
## 92 [問卦]如果今天香港明日台灣，警察會？
## 93 Re:[新聞]反送中》香港出現暴力韓國瑜譴責
## 94 [新聞]一張照片道盡香港悲哀更深沉的是經濟問
## 95 [新聞]香港元朗濺血事件顏寬恒指民進黨選戰打
## 96 [問卦]所以美國的民主外送要送到香港了嗎？
## 97 Re:[問卦]所以美國的民主外送要送到香港了嗎？
## 98 Re:[爆卦]7月21日，香港發生了什麼事
## 99 Re:[問卦]政府現在走私軍火去香港有沒有搞頭？
## 100 Re:[爆卦]香港TVB員工反了
## 101 [爆卦]港府開始收買人心了
## 102 [問卦]有操作香煙議題掩蓋香港事件的八卦嗎
## 103 [問卦]香港人是不是比中國人有種多了？
## 104 Re:[爆卦]港府開始收買人心了order %>%
filter(artDate == as.Date('2019/10/04')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 [問卦]在香港的回教徒在想什麼
## 2 [問卦]台灣幫香港人開幾個遠鵬班有沒有搞頭?
## 3 [問卦]急！要去香港迪士尼看的到米奇嗎
## 4 Re:[問卦]香港變這樣是不是咎由自取？
## 5 [問卦]在香港感冒咳嗽可以戴口罩？
## 6 Re:[問卦]台灣該出兵幫香港了吧！
## 7 [問卦]香港以後是不是沒有飛虎隊了？
## 8 [問卦]香港是不是無法出現超級英雄了？
## 9 [問卦]瘋狂甲面去香港會被抓走嗎
## 10 [問卦]返校484要在香港上映了？
## 11 [新聞]反送中／栽贓中彈學生？港警疑「掉包物證
## 12 Re:[新聞]林鄭引用《緊急法》強調不等於香港「進入
## 13 [問卦]上班不要看的關關是不是不能去香港了?
## 14 [問卦]香港人的萬聖節怎麼過?
## 15 [問卦]香港資金可以逃去哪裡？
## 16 [問卦]香港要蒙面是不是就不會有受害者了?
## 17 Re:[新聞]林鄭引用《緊急法》強調不等於香港「進入
## 18 Re:[爆卦]香港禁止蒙面公文流出
## 19 Re:[問卦]香港不能蒙面了有解嗎？
## 20 [問卦]去香港可以化妝或戴眼鏡嗎？
## 21 [問卦]蜘蛛人484無法入境香港惹？
## 22 [問卦]屌面人以後去香港怎麼辦？
## 23 [問卦]去香港可以玩VR嗎
## 24 [問卦]小丑去香港也會被抓嗎？
## 25 [爆卦]川普願為貿易戰放棄香港
## 26 [問卦]香港是不是在幫台灣轉移注意力?
## 27 [新聞]遊行戴口罩就關一年！林鄭月娥宣布《禁止蒙面規例》5日生效
## 28 [問卦]胡婷婷明天去香港會被抓嗎？
## 29 [問卦]明天在香港舉辦超級英雄COSPLAY嘉年華會?
## 30 Re:[新聞]遊行戴口罩就關一年！林鄭月娥宣布《禁止蒙面規例》5日
## 31 [問卦]香港穆斯林現在的感想是什麼???
## 32 [問卦]以後香港不能蒙面加菲貓???
## 33 Re:[問卦]香港不能蒙面了有解嗎？
## 34 [新聞]香港正在進行種族滅絕？臉書粉專：已到
## 35 Re:[爆卦]川普願為貿易戰放棄香港
## 36 [問卦]KYT現在回香港會被抓嗎?
## 37 [問卦]下週去香港出差可以戴口罩嗎?!
## 38 [問卦]香港下一次200萬遊行全部口罩？
## 39 Re:[爆卦]川普願為貿易戰放棄香港
## 40 [問卦]香港演藝圈大震盪
## 41 [新聞]1200億流向新加坡？香港資本外逃風聲再起
## 42 [新聞]香港遊行反蒙面是戒嚴？民進黨打臉徐國勇
## 43 [問卦]請問現在去香港迪士尼夢想會破滅嗎？
## 44 [問卦]為什麼香港美心要被砸店的卦?!要抵制嗎?!
## 45 Re:[新聞]香港遊行反蒙面是戒嚴？民進黨打臉徐國勇
## 46 [問卦]香港會亂到1111嗎?
## 47 Re:[問卦]香港會亂到1111嗎?
## 48 [問卦]現在只關心香港的都是些甚麼人？
## 49 [問卦]香港禁止蒙面，迪士尼穿布偶裝的怎麼辦？
## 50 [新聞]香港政府將頒布《反蒙面法》，民間記者
## 51 [問卦]復仇者聯盟去香港會有多少人被抓？
## 52 Re:[問卦]現在只關心香港的都是些甚麼人？
## 53 [問卦]484應該把愛戒嚴的中老年人送去香港？
## 54 Re:[問卦]為什麼香港美心要被砸店的卦?!要抵制嗎?!
## 55 [問卦]香港會走向新疆化嗎？
## 56 [問卦]如果台灣警察跟香港一樣？
## 57 [問卦]香港出現伊波拉病毒疑似案例
## 58 [問卦]Re:[新聞]香港遊行反蒙面是戒嚴？民進
## 59 [問卦]香港仔在討論今晚成立香港臨時政府?
## 60 Re:[問卦]香港仔在討論今晚成立香港臨時政府?
## 61 Re:[問卦]香港仔在討論今晚成立香港臨時政府?
## 62 [問卦]香港人親中多還是反中多？
## 63 [問卦]0000坦克會開進香港嗎？
## 64 [問卦]上過PTT可以去香港玩嗎??
## 65 [爆卦]香港鄉民目擊到解放軍在香港各地
## 66 [問卦]現在的香港跟雷洛的香港哪個亂？
## 67 Re:[問卦]香港仔在討論今晚成立香港臨時政府?
## 68 Re:[爆卦]香港鄉民目擊到解放軍在香港各地
## 69 [爆卦]香港又三個墜樓案了
## 70 [問卦]鄭健和有沒有希望成為香港未來的預言家?
## 71 Re:[問卦]香港仔在討論今晚成立香港臨時政府?
## 72 [問卦]滿洲跟香港484都被某國搞爛了?
## 73 Re:[爆卦]香港鄉民目擊到解放軍在香港各地
## 74 Re:[問卦]香港抗議是不是高房租高房價造成的
## 75 [問卦]剛才在香港元朗LIVE有白衣男頭流血手持槍
## 76 [新聞]義大利男高音唱粵語版《願榮光歸香港》
## 77 [問卦]香港同樣事件如果在台灣?
## 78 [新聞]示威者撐傘「塞爆中環」!抗議港府反蒙面
## 79 Re:[問卦]香港是不是快爆了?
## 80 [爆卦]香港人開挖土機上街了!!
## 81 [問卦]有人跟我一樣覺得今天香港會發生大事嗎
## 82 Re:[問卦]香港仔在討論今晚成立香港臨時政府?
## 83 [新聞]反送中延燒大馬首相：林鄭月娥應該辭職
## 84 Re:[爆卦]香港又三個墜樓案了，人民又被實彈打中
## 85 [問卦]國際社會仍對香港三不管的卦？
## 86 Re:[新聞]遊行戴口罩就關一年！林鄭月娥宣布《禁止蒙面規例》5日
## 87 Re:[問卦]香港是不是快爆了?
## 88 [問卦]林鄭月娥現在在想什麼
## 89 Re:[爆卦]香港人開挖土機上街了!!
## 90 Re:[問卦]有人跟我一樣覺得今天香港會發生大事嗎
## 91 [新聞]「天滅中共」響徹香港直指中共是亂港根源
## 92 [問卦]香港人怎不敢對中共抗議?
## 93 [問卦]香港人示威者為什麼很笨，都不占領港交所
## 94 [問卦]香港人到底在不滿什麼?
## 95 [新聞]挺香港快閃活動中山連儂隧道百人高歌
## 96 [爆卦]有沒有香港獨立宣言的八卦?
## 97 [問卦]假設香港政變
## 98 Re:[問卦]香港是不是快爆了?
## 99 [新聞]九大問答一次看懂香港啟動緊急法的可能
## 100 [問卦]林鄭月娥為何不學台灣交2400
## 101 [新聞]港網民號召午夜聚集宣讀《香港臨時政府
## 102 [問卦]香港人可以用羅馬兵團方陣嗎？
## 103 Re:[爆卦]香港人開挖土機上街了!!
## 104 Re:[新聞]港網民號召午夜聚集宣讀《香港臨時政府
## 105 [問卦]瘋狂假面還能去香港嘛?
## 106 [問卦]香港人是不是吃不飽?
## 107 [問卦]香港人有沒有帥哥
## 108 [問卦]如果香港人拒絕繳稅？
## 109 [問卦]中共對香港最殘忍方式可以做到怎麼樣？
## 110 [問卦]香港現在是大阪冬之陣嗎？
## 111 [問卦]香港人鬧夠沒?
## 112 [新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 113 [問卦]香港人是不是比臺灣人勇敢？
## 114 [問卦]畫小丑濃妝在香港會被暴警抓走嗎？
## 115 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 116 Re:[問卦]香港人是不是比臺灣人勇敢？
## 117 [問卦]香港事件是不是戳破歐洲左派的假面具
## 118 Re:[問卦]香港人是不是比臺灣人勇敢？
## 119 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 120 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 121 [問卦]香港人不能蒙面了那麼化妝可以吧
## 122 [問卦]香港人現在怎麼報警？
## 123 Re:[問卦]香港的事件我們到底還能做什麼？
## 124 [問卦]香港臨時政府的武器
## 125 Re:[問卦]香港的事件我們到底還能做什麼？
## 126 Re:[問卦]香港的事件我們到底還能做什麼？
## 127 [問卦]要收香港難民？會不會哪天不爽燒了台灣？
## 128 [問卦]我幹香港要獨立ㄌ
## 129 Re:[問卦]香港的事件我們到底還能做什麼？
## 130 [問卦]中華民國何時要跟香港建交啊??
## 131 Re:[問卦]香港的事件我們到底還能做什麼？
## 132 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 133 Re:[問卦]香港的事件我們到底還能做什麼？
## 134 Re:[問卦]中共對香港最殘忍方式可以做到怎麼樣？
## 135 Re:[問卦]香港的事件我們到底還能做什麼？
## 136 Re:[問卦]香港的事件我們到底還能做什麼？
## 137 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 138 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 139 [問卦]香港戰爭要怎麼打？
## 140 Re:[問卦]香港臨時政府的武器
## 141 [爆卦]香港國旗上線了
## 142 [爆卦]操普通話民眾與香港市民武術交流
## 143 [問卦]香港人若懂兩岸一家親跪舔懶叫484就安全
## 144 [問卦]香港從英治到中共的人權倒退
## 145 [問卦]誰在背後挺香港臨時政府的？
## 146 [問卦]如果台灣當香港難民的中繼站呢?
## 147 Re:[新聞]港網民號召午夜聚集宣讀《香港臨時政府
## 148 [問卦]香港後續？
## 149 [問卦]台灣國甚麼時候跟香港臨時政府建交
## 150 Re:[問卦]香港人不能蒙面了那麼化妝可以吧
## 151 [問卦]台灣私下支助香港國獨立可行嗎？
## 152 Re:[問卦]香港後續？
## 153 Re:[問卦]香港的事件我們到底還能做什麼？
## 154 Re:[問卦]香港的事件我們到底還能做什麼？
## 155 Re:[問卦]香港的事件我們到底還能做什麼？
## 156 Re:[問卦]香港臨時政府的武器
## 157 Re:[問卦]香港的事件我們到底還能做什麼？
## 158 [問卦]香港最新消息呢?被斷網了嗎?
## 159 [問卦]中共為什麼無法像澳門一樣收服香港?
## 160 Re:[問卦]香港的事件我們到底還能做什麼？
## 161 Re:[問卦]香港的事件我們到底還能做什麼？
## 162 [問卦]香港劇本會怎麼演?
## 163 [問卦]為什麼大家那麼關心香港阿?
## 164 [問卦]如果舉辦申援香港演場會要請誰來唱？
## 165 [問卦]如果香港臨時政府宣布加入中華民國？
## 166 Re:[問卦]香港的事件我們到底還能做什麼？
## 167 [問卦]香港會成為肺腺癌重鎮嗎
## 168 Re:[問卦]香港事件是不是戳破歐洲左派的假面具
## 169 Re:[問卦]香港的事件我們到底還能做什麼？
## 170 [問卦]香港臨時政府播遷來台，局勢會怎麼演變
## 171 Re:[問卦]香港的事件我們到底還能做什麼？
## 172 [問卦]香港的爸爸是台灣嗎
## 173 [問卦]香港人現在有自己是中國人的自覺嗎
## 174 [問卦]為什麼香港沒有旅遊警戒？
## 175 [新聞]禁蒙面激怒火「香港臨時政府」成立
## 176 Re:[問卦]香港人是不是比臺灣人勇敢？
## 177 Re:[問卦]如果香港臨時政府宣布加入中華民國？
## 178 [問卦]香港用錢換自由，台灣要用自由換錢？
## 179 [問卦]如果香港戒嚴是不是台灣推了一把的卦?!
## 180 Re:[問卦]會假裝打香港實際打台灣嗎
## 181 [問卦]飢餓遊戲開始香港的凱妮斯準備好革命了嗎
## 182 Re:[新聞]禁蒙面激怒火「香港臨時政府」成立
## 183 Re:[問卦]香港的事件我們到底還能做什麼？
## 184 [問卦]香港的小鬼頭為什麼行動力都超猛?
## 185 Re:[問卦]如果香港戒嚴是不是台灣推了一把的卦?!
## 186 Re:[問卦]香港後續？
## 187 Re:[問卦]會假裝打香港實際打台灣嗎
## 188 [問卦]中國政府是不是故意不鎮壓香港？
## 189 [爆卦]香港警察被借身份？被放假？軍隊進入？
## 190 [問卦]72小時完成鎮壓香港?
## 191 [問卦]香港遭遇484台灣翻版
## 192 Re:[問卦]香港臨時政府播遷來台，局勢會怎麼演變
## 193 [問卦]甚麼時候香港反轉?
## 194 [問卦]所以現在怎麼撐香港撐香港的自由?
## 195 [問卦]PUBG超大型DLC香港地圖何時結束公測？
## 196 [新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 197 [問卦]魯路修有辦法從香港脫身嗎?
## 198 [新聞]力挺港府實施《禁蒙面法》！陸官媒列該
## 199 [新聞]川普告訴中國他將對香港的抗議保持沉默
## 200 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 201 Re:[新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 202 [問卦]鄉民有什麼臉去評論香港事件？
## 203 Re:[新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 204 [問卦]為什麼有人覺得香港打得贏中共?
## 205 [問卦]香港現在算不算呼喊下架共產黨?
## 206 [問卦]香港會上演「霧社事件」嗎?
## 207 Re:[問卦]為什麼有人覺得香港打得贏中共?
## 208 [問卦]有沒有炸彈超人在香港的八卦
## 209 Re:[新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 210 [新聞]香港銅鑼灣站被人縱火港鐵19站關閉
## 211 [問卦]香港這一步棋，把自己下死了吧？
## 212 Re:[新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 213 [問卦]香港抗議為什麼不潑氫氟酸？
## 214 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 215 [問卦]可以跟香港建交嗎
## 216 [爆卦]支持跟香港臨時政府建交的請推文+1
## 217 Re:[新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 218 Re:[爆卦]支持跟香港臨時政府建交的請推文+1
## 219 [問卦]有沒有香港開怪手拆警局的後續？
## 220 [問卦]香港還沒旅遊示警??
## 221 Re:[爆卦]支持跟香港臨時政府建交的請推文+1
## 222 [問卦]假設香港人逃來台灣，算難民還是同胞？
## 223 [問卦]港獨人士罔顧香港人性命可取嗎？
## 224 [問卦]認真問！國泰航空香港轉機安全嗎
## 225 Re:[爆卦]支持跟香港臨時政府建交的請推文+1
## 226 Re:[問卦]港獨人士罔顧香港人性命可取嗎？
## 227 Re:[問卦]香港抗議為什麼不潑氫氟酸？
## 228 Re:[新聞]香港發布禁蒙面法民眾黨：人民有權蒙面
## 229 [問卦]我國若稱香港為我國一個區會如何呢？
## 230 [問卦]為什麼習近平不殺了香港特首林鄭月娥?
## 231 Re:[問卦]香港這一步棋，把自己下死了吧？
## 232 [新聞]維基百科編輯戰台灣、香港議題遭反覆修
## 233 Re:[問卦]中國政府是不是故意不鎮壓香港？
## 234 [問卦]香港蒙面法
## 235 Re:[問卦]香港這一步棋，把自己下死了吧？
## 236 Re:[問卦]藉由香港情勢帶風向打英的八卦
## 237 [問卦]香港臨時政府是不是讓人尷尬癌發作
## 238 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 239 Re:[問卦]各方勢力484都想要戰車開進去香港？
## 240 Re:[新聞]上千港人震撼宣讀《香港臨時政府宣言》
## 241 Re:[問卦]各方勢力484都想要戰車開進去香港？
## 242 [問卦]香港會發展成烏克蘭革命模式嗎？
## 243 Re:[問卦]為什麼有人覺得香港打得贏中共?
## 244 [問卦]香港被砸的店是沒實力還和暴民大小聲嗎??
## 245 Re:[問卦]香港人是不是比臺灣人勇敢？
## 246 Re:[問卦]香港這一步棋，把自己下死了吧？
## 247 Re:[問卦]香港被砸的店是沒實力還和暴民大小聲嗎??
## 248 [問卦]支那為什麼不先切斷香港網路？
## 249 [問卦]「香港人」三個字甚麼時候會變成歷史？
## 250 [問卦]香港朋友問十月十舉哪一面旗嗆支共好
## 251 [問卦]在香港帶習近平面具會發生什麼事？
## 252 [問卦]有沒有香港六七左派工會暴動的八卦？
## 253 [問卦]香港是不是已經沒救了？
## 254 [爆卦]香港路人史詩級演說！
## 255 Re:[問卦]香港這一步棋，把自己下死了吧？
## 256 [問卦]香港臨時政府是搞笑團體嗎
## 257 Re:[問卦]香港這一步棋，把自己下死了吧？
## 258 Re:[爆卦]支持跟香港臨時政府建交的請推文+1
## 259 Re:[問卦]為什麼有人覺得香港打得贏中共?
## 260 [問卦]香港臨時政府跟台灣民政府打仗會贏嗎？
## 261 Re:[問卦]香港這一步棋，把自己下死了吧？
## 262 [新聞]香港禁蒙面柯文哲：政府不要把自己眼睛
## 263 [爆卦]NB火箭總管Morey支持香港遭中國媒體封殺
## 264 Re:[問卦]香港這一步棋，把自己下死了吧？
## 265 Re:[新聞]香港禁蒙面柯文哲：政府不要把自己眼睛
## 266 Re:[問卦]為什麼有人覺得香港打得贏中共?
## 267 [問卦]小丑的背景是不是跟香港很像
## 268 [新聞]五年前的一張插畫預言了今日香港抗爭者進化
## 269 [問卦]空投M4A1守的住香港嗎？
## 270 Re:[問卦]香港臨時政府是搞笑團體嗎
## 271 [新聞]港府頒《禁蒙面法》蔡英文競總：支持港order %>%
filter(artDate == as.Date('2019/11/13')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 [新聞]香港教育局宣布幼兒園、中小學停課
## 2 Re:[問卦]香港警察射校園有懶人包嗎?
## 3 [新聞]情勢緊張？深圳共青團宣布為香港陸生提
## 4 Re:[問卦]香港警察從港英時期到支共時期都很黑嗎？
## 5 [問卦]香港如果有石油的話美國會主動去幫忙嗎
## 6 [問卦]為什麼台灣還不改香港旅遊警戒
## 7 [問卦]香港要成立偽鈔刺殺土炮中心了嗎？
## 8 [爆卦]香港上水居民再趕抗議者
## 9 Re:[爆卦]香港中文大學校方決定【本學期停課】
## 10 [問卦]香港人怎麼這麼爽 明天可以放假一天
## 11 [問卦]有沒有香港6-9月自殺人數比去年多34宗的
## 12 Re:[爆卦]為何港警想要攻入香港中文大學？
## 13 [問卦]為什麼香港爆文都是看圖說故事？
## 14 Re:[爆卦]香港中文大學校方決定【本學期停課】
## 15 [新聞]香港情勢緊張政府協調華航今晚載回中大8
## 16 Re:[問卦]為什麼香港爆文都是看圖說故事？
## 17 Re:[新聞]香港情勢緊張政府協調華航今晚載回中大8
## 18 Re:[新聞]香港情勢緊張政府協調華航今晚載回中大8
## 19 [問卦]有沒有香港僑生的八卦？
## 20 [問卦]反送中廢青是不是完蛋了?
## 21 Re:[新聞]香港情勢緊張政府協調華航今晚載回中大8
## 22 [問卦]有人也覺得香港新聞刷得很煩嗎
## 23 [新聞]衝突升級香港中文大學126名台生今晚返台
## 24 Re:[問卦]香港人要是要大幅移民台灣，要不要？
## 25 [新聞]林飛帆呼籲台灣人要和香港站在一起：校
## 26 Re:[問卦]反送中廢青是不是完蛋了?
## 27 [爆卦]臺灣大專院校學生聲援香港各大學聯合聲明
## 28 [問卦]香港人現在到底在爭取什麼？
## 29 [問卦]看香港這樣還想跟中共好的在想啥
## 30 [問卦]如果香港存在布魯斯韋恩
## 31 [問卦]如果香港存在復仇者聯盟
## 32 [問卦]香港中文大學升起青天白日滿地紅
## 33 [問卦]台灣願意賣防禦性武器給香港嗎?
## 34 [問卦]有香港OL的八卦嗎？
## 35 [新聞]香港校園變戰場台灣學生發起「一方有難
## 36 Re:[爆卦]臺灣大專院校學生聲援香港各大學聯合聲明
## 37 Re:[問卦]香港中文大學升起青天白日滿地紅
## 38 Re:[問卦]看香港這樣還想跟中共好的在想啥
## 39 Re:[新聞]香港校園變戰場台灣學生發起「一方有難
## 40 [問卦]台灣老人是不是普遍不同情香港？
## 41 [問卦]香港大學創校者為什麼名不見經傳？
## 42 Re:[新聞]香港校園變戰場台灣學生發起「一方有難
## 43 [新聞]抗爭升溫香港中文大學宣布：本學期即時
## 44 [問卦]反送中都只是說說
## 45 [問卦]諸葛孔明守得住香港中文大學嗎？
## 46 [問卦]香港會不會發生第二次六四?
## 47 [問卦]香港現在穿黑衣服就會被抓？
## 48 [問卦]台灣為什麼不派部隊去香港維和
## 49 [新聞]香港322個中學生組織誓言:50年也奉陪到底
## 50 [問卦]港警怎麼還沒打到外國籍香港人？
## 51 [爆卦]香港中文大學研發出投石器了！！
## 52 [爆卦]香港中文大學的守城部隊成軍了
## 53 Re:[爆卦]香港中文大學的守城部隊成軍了
## 54 [問卦]美國還沒從香港撤僑是不是沒事啊???
## 55 Re:[問卦]香港中文大學升起青天白日滿地紅
## 56 [問卦]請問有任何捐助香港反送中的方式嗎？
## 57 [新聞]美議員：港警無監督表決香港法案至關重
## 58 [新聞]警民衝突升溫金融時報：港府失去統治正
## 59 [問卦]香港黑警搜到的武器不會都黑警自導自演吧
## 60 Re:[問卦]香港抗爭真的能成功嗎?
## 61 [問卦]請問香港那些學生被抓了之後的下場？
## 62 [新聞]香港校園衝突後：政治分歧暴力陰影下的
## 63 [爆卦]香港中大死守的學生砌磚牆了
## 64 Re:[新聞]警民衝突升溫金融時報：港府失去統治正
## 65 Re:[問卦]香港為什麼會成為國際孤兒？
## 66 [問卦]香港人就是中國人，怎麼那麼多人關心?
## 67 [問卦]中國人沒被香港影響嗎
## 68 Re:[爆卦]香港中大死守的學生砌磚牆了
## 69 Re:[問卦]中國人沒被香港影響嗎
## 70 Re:[問卦]香港人就是中國人，怎麼那麼多人關心?
## 71 [問卦]香港中文大學最強的系是
## 72 [新聞]反送中情勢升溫旅港台籍學生驚恐返台
## 73 [問卦]香港中文大學相當於台灣清交?
## 74 [問卦]香港中大警民衝突光是命名就對虫國不利???
## 75 [問卦]中國是不是該對香港進行「清盤」了？
## 76 [問卦]香港沒有瞧不起台灣是哪來的論調？
## 77 [問卦]香港問題與台灣利益?
## 78 [問卦]香港反抗軍成形？
## 79 [新聞]中國打壓香港日議員聯盟不歡迎習近平訪
## 80 Re:[問卦]香港中文大學相當於台灣清交?
## 81 Re:[問卦]香港反抗軍成形？
## 82 [問卦]擺八卦陣能守住香港中大嗎
## 83 Re:[新聞]香港情勢緊張政府協調華航今晚載回中大8
## 84 Re:[新聞]香港校園衝突後：政治分歧暴力陰影下的
## 85 [問卦]八卦可以桶挺港府黑警言論嗎
## 86 Re:[問卦]香港中文大學升起青天白日滿地紅
## 87 [問卦]香港反的勝算高還是中隊隊抗日的勝算高?
## 88 [問卦]香港人對於抗中態度如何?
## 89 Re:[問卦]香港人就是中國人，怎麼那麼多人關心?
## 90 Re:[問卦]港警怎麼還沒打到外國籍香港人？
## 91 Re:[問卦]香港人就是中國人，怎麼那麼多人關心?
## 92 [問卦]中國當初怎麼有那個膽子弄香港?
## 93 [爆卦]蔣萬安臉書-向香港學生及年輕人致敬意
## 94 [問卦]jojo角色跑去香港會如何?
## 95 [問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 96 [問卦]為什麼香港現在還在開趴？
## 97 [問卦]關於香港大學守衛戰
## 98 Re:[爆卦]香港中大死守的學生砌磚牆了
## 99 [爆卦]香港一黑衣男子疑高處墜下，送醫後不治圖甚入
## 100 Re:[問卦]香港中文大學相當於台灣清交?
## 101 Re:[問卦]香港中文大學相當於台灣清交?
## 102 Re:[爆卦]和中國室友戰香港
## 103 [問卦]怎麼分辨撐香港是真人還是1450
## 104 Re:[問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 105 Re:[問卦]香港沒有瞧不起台灣是哪來的論調？
## 106 Re:[問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 107 [問卦]是不是應該收納香港中大的學生難民？
## 108 [新聞]台嫌涉香港搶劫名錶後返台台中落網
## 109 [爆卦]香港被撤離中生要求撤下官媒不實報導
## 110 Re:[問卦]香港抗爭真的能成功嗎?
## 111 [新聞]前美駐聯合國大使籲關注香港：香港如倒
## 112 Re:[爆卦]香港被撤離中生要求撤下官媒不實報導
## 113 [新聞]慘！香港政府公布：3個月接獲2537宗屍體
## 114 [新聞]港警闖校園漢學家白傑明：北京無能港府
## 115 [問卦]原為和平記念日之11月11日,香港警察(曱
## 116 [新聞]香港局勢動盪國立東華大學提供在港台生
## 117 Re:[問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 118 [問卦]在pornhub搜尋香港暴徒?
## 119 [問卦]其實香港死傷人數不及中東戰亂吧
## 120 [問卦]美國領事館是不是香港最安全的地方?
## 121 Re:[問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 122 Re:[問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 123 [問卦]香港人現在會不會恨英國人？
## 124 [問卦]有沒有日本跟香港根本是平行世界的八卦
## 125 [問卦]美國爸爸怎還不幫旗下的香港妓女?
## 126 [爆卦]台大開放香港學生專案就讀
## 127 Re:[問卦]家中長輩看到香港這樣還會幻想一國兩制?
## 128 [問卦]對香港暴亂無感會被說沒人性??
## 129 [問卦]香港的旅遊警示怎麼還沒亮紅燈？
## 130 [新聞]盧比奧：推動香港人權民主法案獲重大進展
## 131 [問卦]香港中國現在484騎虎難下
## 132 Re:[爆卦]台大開放香港學生專案就讀
## 133 Re:[問卦]香港人現在會不會恨英國人？
## 134 [新聞]政院呼籲港府：別把政治意識形態併同子彈
## 135 [問卦]新加坡人怎麼看香港這次的動亂？
## 136 [新聞]學者：中共將香港推向內戰
## 137 Re:[爆卦]台大開放香港學生專案就讀
## 138 Re:[問卦]香港人現在會不會恨英國人？
## 139 Re:[問卦]香港人現在會不會恨英國人？
## 140 Re:[問卦]香港人現在會不會恨英國人？
## 141 [問卦]香港「攬炒」戰略真的有用嗎？
## 142 [問卦]有没有香港為什麼叫做香港的八卦呀！？
## 143 [問卦]香港被打成這樣要統一的想啥
## 144 Re:[爆卦]台大開放香港學生專案就讀
## 145 [問卦]香港的youtuber還有心情拍片嗎?
## 146 Re:[新聞]學者：中共將香港推向內戰
## 147 Re:[問卦]香港沒有瞧不起台灣是哪來的論調？
## 148 Re:[爆卦]台大開放香港學生專案就讀
## 149 [問卦]發香港文的有些怎麼行為很異常啊
## 150 Re:[新聞]前美駐聯合國大使籲關注香港：香港如倒
## 151 Re:[新聞]學者：中共將香港推向內戰
## 152 Re:[問卦]香港「攬炒」戰略真的有用嗎？
## 153 [問卦]日本對香港危險程度的判定？
## 154 [新聞]香港問題延燒海外韓中學生爆發肢體衝突
## 155 Re:[問卦]香港沒有瞧不起台灣是哪來的論調？
## 156 Re:[問卦]香港沒有瞧不起台灣是哪來的論調？
## 157 Re:[問卦]香港沒有瞧不起台灣是哪來的論調？
## 158 Re:[問卦]美國爸爸怎還不幫旗下的香港妓女?
## 159 Re:[問卦]香港「攬炒」戰略真的有用嗎？
## 160 Re:[問卦]香港人就是中國人，怎麼那麼多人關心?
## 161 [問卦]香港阿正現在怎麼想？
## 162 Re:[新聞]學者：中共將香港推向內戰
## 163 [爆卦]香港宵禁
## 164 [問卦]香港學生做出投石器，那台灣呢？
## 165 [問卦]為何香港示威者一定要穿黑色?
## 166 [問卦]香港機場貴賓室放豬油？
## 167 [問卦]香港學生為什麼不放火直接燒住宅？order %>%
filter(artDate == as.Date('2019/11/17')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 [問卦]請問各位礦業法重要還是香港重要
## 2 Re:[爆卦]香港警察中箭今天升級弓箭時代
## 3 Re:[爆卦]香港警察中箭今天升級弓箭時代
## 4 [問卦]香港理工大學做得出跨時代的武器道具嗎?
## 5 [新聞]港人齊聚劍橋示威要求撤銷林鄭月娥榮譽院
## 6 Re:[爆卦]香港警察中箭今天升級弓箭時代
## 7 Re:[問卦]香港為啥還不革命
## 8 [新聞]香港大學停擺學生自己運營食堂（組圖）
## 9 [新聞]美參院擬快速通過香港法案華郵：川普可
## 10 [問卦]香港現在是城堡時代了嗎？
## 11 [爆卦]林夕在自由廣場撐香港！！
## 12 [新聞]德國之聲專訪「反送中」抗爭青年
## 13 [爆卦]香港理工大學學生面臨全滅危機
## 14 Re:[爆卦]香港警察中箭今天升級弓箭時代
## 15 [問卦]台灣人會像香港人那麼團結嗎？
## 16 Re:[新聞]美參院擬快速通過香港法案華郵：川普可
## 17 Re:[爆卦]香港理大戰況最新更新
## 18 [新聞]香港「反送中」抗議：藍綠說法如何影響台
## 19 Re:[爆卦]香港女生在街頭被返送中暴徒行刑式暴打！
## 20 Re:[爆卦]香港女生在街頭被返送中暴徒行刑式暴打！
## 21 [問卦]有沒有香港搞不好很挺警察的八卦呀
## 22 [新聞]香港理大再成戰場2部裝甲車衝向學生
## 23 [問卦]有沒有pubg講到香港加油會被隱形的八卦
## 24 Re:[問卦]有沒有香港搞不好很挺警察的八卦呀
## 25 [問卦]有沒有香港理大校長失蹤的八卦？
## 26 [問卦]看到香港直播很傷心正常嗎？？
## 27 Re:[問卦]看到香港直播很傷心正常嗎？？
## 28 Re:[問卦]看到香港直播很傷心正常嗎？？
## 29 Re:[問卦]有沒有香港搞不好很挺警察的八卦呀
## 30 Re:[爆卦]香港理大警方準備以實彈還擊！
## 31 Re:[爆卦]香港理大警方準備以實彈還擊！
## 32 [問卦]香港醫護人員應該都在作戰狀態吧
## 33 [問卦]如果台灣派兵香港的掛?
## 34 [問卦]如果香港倒了，台灣有什麼利多？
## 35 [問卦]虫國人請進。請問香港大學裏沒好人嗎？
## 36 [問卦]香港人為何不會用汽笛?
## 37 [問卦]香港要怎麼結束？
## 38 Re:[問卦]如果台灣派兵香港的掛?
## 39 [問卦]香港怎樣才會被外送民主啊？
## 40 [問卦]槍在手跟我走殺四郎搶碉樓香港會出現嗎?!
## 41 [問卦]香港現在開始挖石油來的及嗎？
## 42 [問卦]香港以後真的不能去了嗎？
## 43 [問卦]香港怎麼不裝渦輪就好了
## 44 Re:[問卦]有沒有香港中文大學的八卦
## 45 [問卦]為何香港的抗爭無法擴大到中國各省
## 46 [問卦]香港是怎麼演變成校園攻城戰的?
## 47 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 48 [問卦]有沒有在香港要如何報案的八卦
## 49 [問卦]為什麼香港在被英治時期不爭取民主？
## 50 Re:[問卦]香港怎樣才會被外送民主啊？
## 51 Re:[爆卦]香港理大戰況最新更新
## 52 [問卦]香港理大明年的世界排名？
## 53 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 54 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 55 [問卦]用無人機載幾萬支槍空投香港會怎樣？
## 56 [問卦]在台灣的香港人會想回去香港共患難嗎?
## 57 Re:[問卦]怎麼沒有台灣人要去救香港理大學生?
## 58 [問卦]還沒去過香港怎麼辦？
## 59 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 60 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 61 Re:[爆卦]香港理大戰況最新更新
## 62 Re:[問卦]有沒有香港理大校長失蹤的八卦？
## 63 Re:[爆卦]香港理大戰況最新更新
## 64 Re:[爆卦]香港理大戰況最新更新
## 65 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 66 Re:[爆卦]香港理大戰況最新更新
## 67 Re:[爆卦]香港理大戰況最新更新
## 68 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 69 Re:[問卦]香港難民住你家願意嗎？
## 70 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 71 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 72 [問卦]香港人是不是沒有看佑來了
## 73 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 74 [爆卦]香港防暴部隊攻入理工大學
## 75 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 76 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 77 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 78 [新聞]清晨香港理大警民激戰理大樓梯平台成火
## 79 [爆卦]轉貼來自香港朋友的求救
## 80 [問卦]香港僵局到底可以怎麼解
## 81 [問卦]國際間已經對香港裝聾作啞了?
## 82 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 83 [問卦]香港文很多，有覺青飛去香港支援抗爭的넿
## 84 [問卦]工程師只會輪班不會撐香港?
## 85 [問卦]香港人上下班被堵都在想什麼？
## 86 Re:[新聞]清晨香港理大警民激戰理大樓梯平台成火
## 87 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 88 Re:[爆卦]香港理大戰況最新更新
## 89 [新聞]誰比她愛台灣？香港抗爭情勢升溫…蔡英
## 90 [問卦]香港人民抗爭武器可以進化到電磁砲？
## 91 [問卦]如果香港開水肥車鎮壓
## 92 Re:[爆卦]香港理大戰況最新更新
## 93 Re:[爆卦]香港理大戰況最新更新
## 94 [問卦]以後香港的員工之家要蓋在哪？
## 95 [新聞]送暖香港！鄭朝方、林飛帆合體開唱「海
## 96 Re:[爆卦]香港理大戰況最新更新
## 97 [問卦]香港示威能撐到明年十一月嗎？
## 98 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 99 [問卦]有人要一起吃火鍋撐香港嗎？
## 100 [問卦]請張忠謀帶台積電撐香港反送中
## 101 [問卦]礦業法100篇、香港10000篇的八卦？
## 102 [問卦]香港警察總部是不是要改名了？
## 103 [問卦]香港人為何不找傭兵
## 104 Re:[問卦]香港人為何不找傭兵
## 105 Re:[問卦]什麼時候會有香港大屠殺?
## 106 [問卦]香港人投降484就沒事了?
## 107 Re:[爆卦]香港理大戰況最新更新
## 108 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 109 [問卦]劉傑輝會怎麼處理反送中抗爭？
## 110 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 111 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 112 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 113 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 114 [問卦]馬來西亞爭民主成功卻反對香港爭民主?
## 115 Re:[問卦]香港人為何不找傭兵
## 116 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 117 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 118 Re:[問卦]香港人為何不找傭兵
## 119 [問卦]血祭香港的原因？
## 120 [問卦]香港版的香港文484平行世界?一片祥和??
## 121 [問卦]中華民國國軍是否該出兵助拳香港災胞了？
## 122 [問卦]台灣警察遇見香港警察會怎樣？
## 123 [問卦]香港藝人死去哪了
## 124 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 125 [新聞]詞神林夕：在香港喊「香港加油」是種罪
## 126 [問卦]有多少台灣人願意幫助香港人暫時安頓？
## 127 [問卦]香港學生跑去守學校是不是中圈套了
## 128 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 129 [新聞]為了美中協議美媒：川普可能不簽香港法
## 130 Re:[問卦]香港藝人死去哪了
## 131 Re:[新聞]香港高院裁定「禁蒙面法」違憲
## 132 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 133 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 134 [問卦]香港是不是註定抗爭失敗？
## 135 [問卦]香港是不是回不去了？
## 136 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 137 Re:[問卦]礦業法100篇、香港10000篇的八卦？
## 138 Re:[新聞]香港高院裁定「禁蒙面法」違憲
## 139 [問卦]震驚原來無垢巨人指的是香港警察!
## 140 [問卦]現在是不是只剩下胸部可以救香港了
## 141 [問卦]3M賣防毒面具是不是香港抗爭最大贏家?
## 142 Re:[新聞]誰比她愛台灣？香港抗爭情勢升溫…蔡英
## 143 [問卦]香港大學校長背景
## 144 [問卦]看看香港沒國家幫忙哪天輪到台灣也是嗎?
## 145 Re:[新聞]香港高院裁定「禁蒙面法」違憲
## 146 [問卦]香港正在受苦任賢齊裝死嗎？
## 147 Re:[問卦]為何香港的抗爭無法擴大到中國各省
## 148 Re:[問卦]香港理工科會做炸彈嗎?
## 149 [問卦]有用小米手機然後支持香港的掛
## 150 Re:[問卦]香港理工科會做炸彈嗎?order %>%
filter(artDate == as.Date('2020/05/22')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 Re:[問卦]中國能阻擋香港再次百萬人反送中嗎？
## 2 [新聞]北京推港版國安法美兩黨參議員提法案尋
## 3 [問卦]香港退守到香港島有沒有搞頭？
## 4 [問卦]台灣是不是要調高香港移民門檻？？
## 5 [問卦]為什麼香港還沒發生恐怖攻擊
## 6 [問卦]中共強推香港國安法港人直呼：覺青快來
## 7 [問卦]要成立香港流亡政府了嗎？
## 8 Re:[問卦]台灣是不是要調高香港移民門檻？？
## 9 [問卦]台灣以前抗爭的戰鬥力跟現在香港比
## 10 [新聞]快變一國一制！香港人徹夜狂Google「移
## 11 [新聞]中共欲推「港版國安法」陸委會籲相關方
## 12 [問卦]香港根本是中國一省為何不取消優惠
## 13 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 14 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 15 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 16 [問卦]規劃一塊地讓香港人來台如何
## 17 [問卦]香港人會承認以前看不起台灣嗎？
## 18 [新聞]港版國安法港民主派：打開攬炒香港序幕
## 19 [新聞]港版國安法立法香港多處爆示威
## 20 [問卦]在高雄建立新香港
## 21 [新聞]總統府：「港版國安法」對香港民主自由造
## 22 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 23 [問卦]「今日香港明日台灣」的口號要怎麼改
## 24 Re:[問卦]在高雄建立新香港
## 25 [新聞]北京推「港版國安法」時力籲蔡英文公開
## 26 Re:[問卦]在高雄建立新香港
## 27 [新聞]若推港版國安法川普：美國將強力解決
## 28 Re:[新聞]北京推「港版國安法」時力籲蔡英文公開
## 29 [新聞]國安法草案曝光：擬在港設國安機構
## 30 [問卦]現在問幫助香港=中共同路人？？？
## 31 [新聞]快訊／總統府：「港版國安法」對香港民主
## 32 [問卦]看到中國香港人有報應是不是超爽？
## 33 [問卦]200萬香港人走上街結果換來港版國安法?
## 34 [問卦]大家一起來連署救香港好嗎(沒錢)
## 35 [問卦]調查~你支持香港人移民入籍台灣嗎？
## 36 Re:[新聞]快訊／總統府：「港版國安法」對香港民主
## 37 Re:[新聞]快訊／總統府：「港版國安法」對香港民主
## 38 [問卦]Chenglap怎麼還沒出來發香港爆文？
## 39 Re:[新聞]快訊／總統府：「港版國安法」對香港民主
## 40 [問卦]小香港最適合設在台灣那裡?
## 41 [問卦]撐香港活動復刻了嗎?
## 42 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 43 [問卦]不刪統一今日香港明日台灣?
## 44 Re:[新聞]快訊／總統府：「港版國安法」對香港民主
## 45 [問卦]撐香港爆文活動過氣了嗎
## 46 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 47 [新聞]若陸推港版國安法川普：美國將強力解決
## 48 Re:[新聞]若推港版國安法川普：美國將強力解決
## 49 [新聞]繞過立法會推「港版國安法」中國官媒:該
## 50 Re:[問卦]不刪統一今日香港明日台灣?
## 51 [問卦]撐香港活動一年了有改變什麼嗎？
## 52 Re:[問卦]撐香港爆文活動過氣了嗎
## 53 Re:[問卦]撐香港活動一年了有改變什麼嗎？
## 54 Re:[問卦]撐香港活動一年了有改變什麼嗎？
## 55 [問卦]香港被這樣搞其實台灣很好殺球吧？
## 56 [問卦]香港人會不會像97年回歸一樣祝賀回歸？
## 57 [新聞]北京推「港版國安法」國民黨:支持香港民主與雙普選、民眾黨:一國兩制在港不得民心
## 58 Re:[新聞]北京推「港版國安法」國民黨:支持香港民主與雙普選、民
## 59 Re:[問卦]調查~你支持香港人移民入籍台灣嗎？
## 60 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 61 [問卦]台灣要怎麼幫忙香港?
## 62 Re:[問卦]撐香港爆文活動過氣了嗎
## 63 Re:[問卦]調查~你支持香港人移民入籍台灣嗎？
## 64 [新聞]中國要推港版國安法 林飛帆籲朝野發聲
## 65 [新聞]中國推港版國安法逼出「香港末日」BBC:
## 66 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 67 [問卦]港版國安法其實是立給美國看的的八掛
## 68 [問卦]該如何跟香港朋友解釋關心但不介入
## 69 Re:[問卦]200萬香港人走上街結果換來港版國安法?
## 70 Re:[問卦]撐香港活動一年了有改變什麼嗎？
## 71 [問卦]香港反對派錯估形勢的八掛
## 72 [問卦]老實說香港是不是被當選舉提款機
## 73 Re:[問卦]香港是不是很可憐
## 74 [問卦]香港這次會大暴動嗎？
## 75 [問卦]台灣接受香港移民有什麼好處？
## 76 [問卦]有沒有香港股市在跌什麼鬼的八卦？
## 77 [問卦]全民撐香港活動的八卦？
## 78 Re:[新聞]北京推「港版國安法」國民黨:支持香港民主與雙普選、民
## 79 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 80 [新聞]香港成蔡總統心中最隱形一塊...時力要蔡
## 81 Re:[新聞]北京推「港版國安法」國民黨:支持香港民主與雙普選、民
## 82 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 83 Re:[問卦]台灣接受香港移民有什麼好處？
## 84 [問卦]香港人是不是自找的？
## 85 Re:[問卦]香港人是不是自找的？
## 86 Re:[問卦]台灣是不是要調高香港移民門檻？？
## 87 Re:[問卦]香港人是不是自找的？
## 88 [新聞]北京推「港版國安法」時力籲蔡英文公開
## 89 Re:[新聞]香港成蔡總統心中最隱形一塊...時力要蔡
## 90 [新聞]港版國安法台朝野批中共侵害香港自由人
## 91 Re:[新聞]北京推「港版國安法」時力籲蔡英文公開
## 92 Re:[新聞]快變一國一制！香港人徹夜狂Google「移
## 93 [問卦]以後還能在網路上看到香港人嗎
## 94 [問卦]在台灣建立香港村。可行嗎?
## 95 [問卦]香港國安法之後會不會推升台灣房價阿??
## 96 [新聞]林鄭月娥：全力配合人大完成國安法立法
## 97 Re:[問卦]在台灣建立香港村。可行嗎?
## 98 Re:[問卦]在台灣建立香港村。可行嗎?
## 99 Re:[問卦]調查~你支持香港人移民入籍台灣嗎？
## 100 Re:[問卦]香港人來台北市房價4849會飆漲？
## 101 Re:[問卦]在台灣建立香港村。可行嗎?
## 102 Re:[問卦]在台灣建立香港村。可行嗎?
## 103 [爆卦]5ch""香港慘了接下來是台灣和沖繩""
## 104 [問卦]香港適不適用唇亡齒寒？
## 105 [問卦]香港人幹嘛不移民新加坡
## 106 [新聞]民進黨嚴厲譴責港版國安法宣告一國兩制
## 107 [新聞]國台辦：奉勸民進黨停止對香港事務的政治
## 108 [問卦]要怎麼委婉跟香港人說他們是中國人
## 109 Re:[問卦]在台灣建立香港村。可行嗎?
## 110 [新聞]國台辦：台獨港獨勾結插手香港事務 勸
## 111 Re:[新聞]國台辦：奉勸民進黨停止對香港事務的政治
## 112 [新聞]港版國安法將審議港股狂瀉逾千點
## 113 Re:[新聞]國台辦：奉勸民進黨停止對香港事務的政治
## 114 Re:[新聞]國台辦：奉勸民進黨停止對香港事務的政治
## 115 Re:[新聞]國台辦：奉勸民進黨停止對香港事務的政治
## 116 Re:[新聞]民進黨嚴厲譴責港版國安法宣告一國兩制
## 117 [問卦]送柯韓粉去香港算介入嗎？
## 118 Re:[新聞]國台辦：奉勸民進黨停止對香港事務的政治
## 119 [問卦]台灣的房仲會期待香港國安法嗎？
## 120 Re:[問卦]送柯韓粉去香港算介入嗎？
## 121 Re:[問卦]送柯韓粉去香港算介入嗎？
## 122 [問卦]我認識的香港人
## 123 [新聞]北京將推香港版國安法時力民眾黨同聲譴
## 124 Re:[問卦]我認識的香港人
## 125 [新聞]中國推港版國安法拜登認美應領導世界譴
## 126 [新聞]大陸香港擬6／7起自由通關憑健康證明無
## 127 [問卦]全盛期的香港到底有多繁榮？
## 128 [問卦]韭菜以後包含香港人嗎？
## 129 Re:[問卦]在台灣建立香港村。可行嗎?
## 130 Re:[問卦]在台灣建立香港村。可行嗎?
## 131 Re:[問卦]在台灣建立香港村。可行嗎?
## 132 Re:[問卦]在台灣建立香港村。可行嗎?
## 133 Re:[問卦]在台灣建立香港村。可行嗎?
## 134 Re:[問卦]在台灣建立香港村。可行嗎?
## 135 [問卦]香港人移民台灣有技術移民嗎？
## 136 Re:[問卦]在台灣建立香港村。可行嗎?
## 137 [問卦]香港移民條件這樣可以嗎
## 138 Re:[問卦]我認識的香港人
## 139 Re:[問卦]在台灣建立香港村。可行嗎?
## 140 Re:[問卦]在台灣建立香港村。可行嗎?***重點觀察 1.2019/07/22:元朗攻擊事件 2.2019/10/04:反對《禁止蒙面規例》示威是2019年10月4日發生在香港反對逃犯條例修訂草案運動期間的一場示威活動。當日下午3點，香港特別行政區政府宣布引用《緊急情況規例條例》頒布《禁止蒙面規例》，並於5日午夜12點正式實施。法律規定示威者在參與公眾活動時不能蒙面，否則警方有權當眾除下面罩。國務院港澳事務辦公室和中央人民政府駐香港特別行政區聯絡辦公室表示堅決支持港府決定，而《禁蒙面法》遭到了示威者的強烈抵制，他們在10月4日發起「全民口罩日」活動，呼籲全民佩戴口罩上街抗議。 3.2019/11/13:晨曦行動發生於2019年11月13日，示威者繼續發動「三罷」，號召民眾罷工、罷課、罷市，並繼續癱瘓交通系統。 4.2019/11/17:香港理工大學衝突 5.2020/05/22:香港國安法
(正向)
sentiment_count %>%
ggplot()+
geom_line(aes(x=artDate,y=count,colour=sentiment))+
scale_x_date(labels = date_format("%y/%m/%d")) +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/08/12'))
[1]])),colour = "red") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2019/12/09'))
[1]])),colour = "red") +
geom_vline(aes(xintercept = as.numeric(artDate[which(sentiment_count$artDate == as.Date('2020/05/24'))
[1]])),colour = "red") 
#geom_vline畫出vertical line，xintercept告訴他要在artDate欄位的哪一個row畫線order %>%
filter(artDate == as.Date('2019/12/09')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 Re:[問卦]鄉民願不願意大量開放香港人來台?
## 2 [新聞]蔡英文：我們一起繼續撐香港的自由
## 3 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 4 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 5 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 6 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 7 [問卦]香港人是不是就現實勢力?
## 8 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 9 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 10 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 11 [問卦]卡神才是台灣真正關心香港的吧?
## 12 Re:[爆卦]香港浸大學生會長被出征囉!
## 13 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 14 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 15 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 16 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 17 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 18 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 19 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 20 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 21 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 22 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 23 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 24 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 25 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 26 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 27 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 28 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 29 [問卦]香港青年是不是中共同路人?
## 30 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 31 Re:[新聞]美國推香港人權法案夠狠！原來...打的是
## 32 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 33 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 34 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 35 [新聞]香港國際人權日遊行學術宗教界紛上街力
## 36 [新聞]浸大學生會長批民進黨「不幫香港
## 37 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 38 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 39 [新聞]紐時：逾200名反送中示威者來台尋庇護
## 40 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 41 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 42 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 43 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 44 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 45 Re:[新聞]浸大學生會長批民進黨「不幫香港
## 46 [問卦]在台灣的香港人怎沒出來抗爭咧??
## 47 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 48 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 49 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 50 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 51 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 52 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 53 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 54 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 55 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 56 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 57 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 58 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 59 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 60 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 61 [問卦]現在去香港可以玩什麼
## 62 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 63 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 64 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 65 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 66 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 67 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 68 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 69 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 70 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 71 [新聞]中國需要香港，但不需要香港人！
## 72 [問卦]半年前台灣撐香港喊得鎮天嘎響的在幹嘛?
## 73 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 74 [問卦]讓香港人移民台灣有什麼好處？
## 75 Re:[問卦]香港年輕人想要免費移民台灣就是了？！
## 76 [新聞]香港華仁書院驚現10Kg土製炸彈爆炸威力1
## 77 Re:[問卦]半年前台灣撐香港喊得鎮天嘎響的在幹嘛?
## 78 Re:[問卦]半年前台灣撐香港喊得鎮天嘎響的在幹嘛?
## 79 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 80 Re:[問卦]半年前台灣撐香港喊得鎮天嘎響的在幹嘛?
## 81 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 82 Re:[問卦]讓香港人移民台灣有什麼好處？
## 83 Re:[問卦]要怎麼撐香港？
## 84 Re:[問卦]讓香港人移民台灣有什麼好處？
## 85 Re:[問卦]半年前台灣撐香港喊得鎮天嘎響的在幹嘛?
## 86 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 87 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 88 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 89 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 90 Re:[問卦]半年前台灣撐香港喊得鎮天嘎響的在幹嘛?
## 91 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 92 Re:[問卦]讓香港人移民台灣有什麼好處？
## 93 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 94 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 95 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 96 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 97 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 98 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 99 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 100 [新聞]被批用香港人鮮血換選票蔡英文:我不覺得
## 101 Re:[新聞]香港浸大學生會長：民進黨用港人鮮血換選
## 102 Re:[問卦]讓香港人移民台灣有什麼好處？
## 103 [新聞]總統：沒利用香港人選舉是台灣人自我警
## 104 [新聞]紐時.200多香港示威者逃抵台灣有人搭船
## 105 Re:[新聞]總統：沒利用香港人選舉是台灣人自我警
## 106 Re:[新聞]總統：沒利用香港人選舉是台灣人自我警
## 107 [新聞]挑戰NBA、暴雪娛樂》美國12歲少年撐香港order %>%
filter(artDate == as.Date('2020/05/24')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 2 [問卦]政府是不是應該派出香港撤僑專機了
## 3 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 4 [問卦]台灣撐香港，香港撐什麼？
## 5 [問卦]如何避免首抽抽到香港中國印度非洲?
## 6 [問卦]香港人來台灣不好嗎
## 7 [問卦]共匪跟香港是否在演戲利用港仔瓦解台灣？
## 8 Re:[問卦]香港人來台灣不好嗎
## 9 Re:[問卦]為什麼要把我國與香港綁在一起呢？
## 10 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 11 Re:[問卦]為什麼要把我國與香港綁在一起呢？
## 12 [問卦]請問香港關台灣屁事
## 13 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 14 Re:[問卦]請問香港關台灣屁事
## 15 Re:[問卦]香港人來台灣不好嗎
## 16 Re:[新聞]關心且介入香港議題民眾黨團提案修港澳條例
## 17 Re:[爆卦]5ch""香港慘了接下來是台灣和沖繩""
## 18 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 19 [問卦]香港人移民台灣會選擇住哪裡的八卦?
## 20 [問卦]台灣要介入到啥程度才叫撐香港？
## 21 [新聞]推特發文反「港版國安法」到底！黎智英
## 22 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 23 [問卦]2024時台灣會發現香港的重要性嗎?
## 24 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 25 [問卦]台灣看香港是不是跟國外看台灣一樣？
## 26 Re:[問卦]請問香港關台灣屁事
## 27 [問卦]台灣每兩年支持一次香港嗎
## 28 Re:[問卦]台灣要介入到啥程度才叫撐香港？
## 29 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 30 Re:[問卦]請問香港關台灣屁事
## 31 [問卦]為什麼澳門跟香港當初不選割讓
## 32 Re:[問卦]中國能阻擋香港再次百萬人反送中嗎？
## 33 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 34 [問卦]台灣不幫香港跟老美姑息共產黨沒啥兩樣？
## 35 [問卦]當初共產黨1949直接拿下香港,就不會有
## 36 Re:[問卦]誰在帶「八卦版在反香港」的風向？
## 37 Re:[問卦]誰在帶「八卦版在反香港」的風向？
## 38 [問卦]香港為什麼比去年平和這麼多？
## 39 Re:[問卦]為什麼要把我國與香港綁在一起呢？
## 40 [問卦]今天會死多少中國香港人？
## 41 Re:[問卦]當初共產黨1949直接拿下香港,就不會有
## 42 [新聞]反送中催化去年港人來台居留5858人創新
## 43 [新聞]香港「反國安法大遊行」爆衝突 港警發射
## 44 Re:[新聞]香港「反國安法大遊行」爆衝突 港警發射
## 45 Re:[新聞]香港「反國安法大遊行」爆衝突 港警發射
## 46 Re:[新聞]香港「反國安法大遊行」爆衝突 港警發射
## 47 [問卦]香港只剩下城管沒有警察？
## 48 [問卦]香港那樣也不關台灣的事吧
## 49 Re:[新聞]香港「反國安法大遊行」爆衝突 港警發射
## 50 [問卦]去年跟今年官方對香港的態度完全一致吧
## 51 [問卦]香港真的沒救了
## 52 [新聞]不滿彭定康插手評論「港版國安法」 央視
## 53 Re:[新聞]香港「反國安法大遊行」爆衝突 港警發射
## 54 Re:[爆卦]大批香港黑警又上街啦！
## 55 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 56 [問卦]香港在抗議什麼？
## 57 [問卦]香港水深火熱怎不見陳為廷出來發言或作
## 58 [問卦]新界的香港人
## 59 Re:[問卦]香港水深火熱怎不見陳為廷出來發言或作
## 60 Re:[問卦]香港真的沒救了
## 61 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 62 [新聞]港國安法「顛覆」定義更廣喊「林鄭下台
## 63 Re:[新聞]今日香港明日台灣？孫大千：腦袋壞了或
## 64 [問卦]香港人是不是很廢啊？
## 65 [問卦]坦白說，八卦根本沒人關心香港對不對？
## 66 [問卦]香港一國一治後，中共是不是要吹捧澳門一國兩制了
## 67 [問卦]有沒有人看到香港越慘，覺得越爽的?
## 68 [新聞]港版國安法闖關 民眾黨提修法給「政治
## 69 Re:[問卦]坦白說，八卦根本沒人關心香港對不對？
## 70 [問卦]香港人移居台灣是不是很容易的八掛
## 71 Re:[問卦]坦白說，八卦根本沒人關心香港對不對？
## 72 Re:[問卦]有沒有人看到香港越慘，覺得越爽的?
## 73 Re:[問卦]坦白說，八卦根本沒人關心香港對不對？
## 74 Re:[新聞]港版國安法闖關 民眾黨提修法給「政治
## 75 [新聞]更新中：反國安法遊行警射催淚彈120餘
## 76 Re:[新聞]港版國安法闖關 民眾黨提修法給「政治
## 77 Re:[新聞]今日香港明日台灣？孫大千：腦袋壞了或
## 78 Re:[問卦]香港人：台灣說撐香港卻把移民門檻調高
## 79 [爆卦]香港警察進便利店拿水沒付錢
## 80 [新聞]香港反國安法遊行爆衝突 警逮150人 拘捕一區議員
## 81 [新聞]「全力支持」港版國安法！李家超：香港正
## 82 [問卦]竹科單身宅娶香港女生幫移民有搞頭嗎？
## 83 Re:[新聞]更新中：反國安法遊行警射催淚彈120餘
## 84 Re:[問卦]請問香港關台灣屁事
## 85 Re:[問卦]請問香港關台灣屁事
## 86 [新聞]抵抗「港版國安法」！港人無懼威脅遊行 民主派譚得志遭逮
## 87 [問卦]香港六月份會不會亂起來?
## 88 [問卦]香港應該是掰了吧
## 89 [新聞]組圖：港人遊行抗議國安法警方狂射催淚
## 90 Re:[問卦]請問香港關台灣屁事
## 91 [問卦]今日香港明日台灣這句話還成立嗎
## 92 Re:[問卦]今日香港明日台灣這句話還成立嗎
## 93 [新聞]救人！英媒：倫敦當局準備接受香港難民
## 94 Re:[問卦]今日香港明日台灣這句話還成立嗎
## 95 [問卦]香港人移民到台灣要當兵嗎？
## 96 Re:[新聞]救人！英媒：倫敦當局準備接受香港難民
## 97 Re:[問卦]今日香港明日台灣這句話還成立嗎
## 98 [問卦]1945的台灣人跟1997的香港人誰比較天真?
## 99 Re:[問卦]為何台灣人會自動忽視香港人的訴求？
## 100 Re:[問卦]請問香港關台灣屁事
## 101 [新聞]港國安法引關注王毅：香港是中國內政
## 102 [問卦]現在香港是不是少了雷洛才亂?
## 103 [問卦]為什麼現在香港貼文都不會秒爆了?!
## 104 Re:[問卦]1945的台灣人跟1997的香港人誰比較天真?
## 105 [問卦]有沒有香港澳門關係條例60條的八卦
## 106 [問卦]生活在香港其實很辛酸的八掛？
## 107 [問卦]哭啊!八卦板沒什麼香港爆卦文了?
## 108 [問卦]當時香港要被還回去英國與香港人怎看?
## 109 Re:[問卦]當時香港要被還回去英國與香港人怎看?
## 110 [新聞]快訊／蔡英文：這一刻，我們都和香港人
## 111 Re:[問卦]當時香港要被還回去英國與香港人怎看?
## 112 [新聞]港版國安法引全球怒吼23國198政要：不能
## 113 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 114 [問卦]美國物理守住香港的C/P高不高？
## 115 Re:[問卦]今日香港明日台灣這句話還成立嗎
## 116 [新聞]蔡英文:這一刻和香港人民站在一起
## 117 Re:[問卦]1945的台灣人跟1997的香港人誰比較天真?
## 118 [新聞]國民黨支持香港民主自由呼籲中共別誤判
## 119 [問卦]挺香港跟666擇一的話
## 120 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 121 Re:[問卦]請問香港關台灣屁事
## 122 Re:[問卦]當時香港要被還回去英國與香港人怎看?
## 123 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 124 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 125 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 126 [問卦]一直嘴用嘴巴撐香港的鄉民是想打仗逆？
## 127 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 128 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 129 [問卦]有香港人撐台灣的事件嗎？
## 130 [問卦]是不是應該降低香港人移民台灣的標準？
## 131 [問卦]香港人算不算是支那人？
## 132 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 133 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 134 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 135 Re:[問卦]有沒有香港澳門關係條例60條的八卦
## 136 [問卦]香港人知道逃來台灣還是要當中國人嗎?
## 137 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 138 [問卦]五毛跟香港人比起來是不是小孬孬?
## 139 [問卦]香港人vs客家人
## 140 [新聞]聲援香港蔡英文：此刻我們與香港人民站
## 141 [新聞]港人遊行反國安法港府聲明譴責：暴行印
## 142 Re:[新聞]港國安法引關注王毅：香港是中國內政
## 143 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 144 [問卦]如何跟香港朋友解釋關心但不介入?
## 145 Re:[爆卦]民進黨FB：大家都很關心香港一起撐香港
## 146 [新聞]【更新中】反香港國安法遊行逾百人被抓
## 147 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 148 [問卦]被立國安法其實是反對派造成的的八卦
## 149 Re:[問卦]如何跟香港朋友解釋關心但不介入?
## 150 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 151 [問卦]台灣房價因為香港移民起飛？
## 152 [問卦]欸，所以八卦明明很關心香港吧？
## 153 [新聞]蔡總統：這一刻我們和香港人民站在一起
## 154 [新聞]中共硬推港版國安法蔡英文:提供港人必要
## 155 Re:[問卦]是不是應該降低香港人移民台灣的標準？
## 156 [問卦]香港人乾脆移民到英屬福克蘭群島可以吧？
## 157 [新聞]蔡英文：我們和香港人民站在一起
## 158 Re:[新聞]快訊／蔡英文：這一刻，我們都和香港人
## 159 [問卦]香港有什麼產業可以移到臺灣來？
## 160 [新聞]香港若淪一國一制國安人士：港澳條例恐
## 161 [新聞]白宮：若香港國安法通過美國將制裁
## 162 [新聞]時代力量肯定蔡英文聲援香港呼籲蘇貞昌
## 163 Re:[問卦]香港人乾脆移民到英屬福克蘭群島可以吧？
## 164 [問卦]有特定族群狂洗香港文的八卦？
## 165 Re:[問卦]香港人知道逃來台灣還是要當中國人嗎?
## 166 [問卦]高雄484準備取代香港了
## 167 [問卦]香港人為什麼不乖乖的？
## 168 [新聞]港版國安法「中國承諾幻滅」 柯文哲喊
## 169 [新聞]國民黨支持香港民主自由呼籲中共別誤判
## 170 [問卦]台灣有能力承接香港金融地位嗎？
## 171 [問卦]香港會成立流亡政府來台灣嗎？
## 172 Re:[新聞]時代力量肯定蔡英文聲援香港呼籲蘇貞昌
## 173 [問卦]英國治理香港時，香港人有一直反抗嗎
## 174 Re:[問卦]台灣有能力承接香港金融地位嗎？
## 175 Re:[問卦]台灣有能力承接香港金融地位嗎？
## 176 Re:[問卦]當時香港要被還回去英國與香港人怎看?
## 177 [問卦]香港特殊關稅地位...美國會取消嗎？
## 178 [問卦]香港當初回歸中國是什麼情況啊?
## 179 Re:[問卦]香港當初回歸中國是什麼情況啊?
## 180 [新聞]德國朝野譴責港版國安法憂局勢惡化
## 181 [新聞]有圖／香港萬人上街反國安法港警發射水
## 182 Re:[問卦]台灣有能力承接香港金融地位嗎？***重點觀察 1.香港浸會大學學生會長方仲賢日前質疑民進黨只想用香港人的鮮血換取台灣人的選票引發爭議，他今天透過臉書發文「鄭重致歉」，並表示希望台灣人民能夠選出一名真正代表台灣本土的總統。 2.台灣人跟香港人的關係
order %>%
filter(artDate == as.Date('2019/08/12')) %>%
distinct(artUrl, .keep_all = TRUE) %>%
select(artTitle)## artTitle
## 1 Re:[爆卦]香港機場關閉？
## 2 [問卦]中國為什麼不直接收回香港就好？
## 3 Re:[爆卦]香港機場關閉？
## 4 Re:[爆卦]香港機場關閉？
## 5 [爆卦]明居正對香港局勢緊急預警(1小時前發布)
## 6 Re:[爆卦]香港機場關閉？
## 7 Re:[爆卦]香港機場關閉？
## 8 Re:[爆卦]香港機場關閉？
## 9 Re:[爆卦]香港機場關閉？
## 10 Re:[爆卦]香港機場關閉？
## 11 Re:[爆卦]香港機場關閉？
## 12 [新聞]反送中示威者塞爆機場香港取消今日所有
## 13 [新聞]蔡英文：我們一起繼續撐香港的自由
## 14 Re:[爆卦]香港機場關閉？
## 15 Re:[問卦]香港最好的結局是啥
## 16 Re:[爆卦]香港機場關閉？
## 17 [爆卦]香港資深演員夏萍過世
## 18 Re:[爆卦]香港機場關閉？
## 19 [問卦]請問明日能順利去香港嗎
## 20 [問卦]香港今天是不是要發生大事了！？
## 21 Re:[爆卦]香港機場關閉？
## 22 [問卦]香港機場封了台灣什麼時候撤僑
## 23 Re:[爆卦]香港機場關閉？
## 24 [新聞]中國港澳辦定義香港示威為恐怖主義苗頭
## 25 [問卦]說真的你們希望香港出大事還是沒有
## 26 Re:[爆卦]香港機場關閉？
## 27 Re:[問卦]香港旅遊警示？
## 28 Re:[爆卦]香港機場關閉？
## 29 Re:[爆卦]香港機場關閉？
## 30 [問卦]滯台香港人何去何從??
## 31 [新聞]香港衝突升級蔡英文：台灣人要共同守護
## 32 Re:[問卦]說真的你們希望香港出大事還是沒有
## 33 [問卦]別管香港了日本C96結束了！！！
## 34 [問卦]這幾天香港會發生什麼事
## 35 Re:[爆卦]香港機場關閉？
## 36 Re:[問卦]說真的你們希望香港出大事還是沒有
## 37 [問卦]有沒有香港現在做的一切都晚了23年?
## 38 Re:[問卦]香港最好的結局是啥
## 39 Re:[問卦]香港的結局是甚麼?
## 40 Re:[問卦]香港最好的結局是啥
## 41 Re:[問卦]香港最好的結局是啥
## 42 Re:[爆卦]香港機場切網路放催淚彈了
## 43 Re:[爆卦]香港機場切網路放催淚彈了
## 44 Re:[問卦]香港最好的結局是啥
## 45 [問卦]天安門,鄧麗君,香港和selina
## 46 Re:[問卦]香港最好的結局是啥
## 47 [爆卦]央視定調：對香港止暴制亂絕不留情
## 48 Re:[問卦]香港最好的結局是啥
## 49 Re:[問卦]港府是不是違反日內瓦公約惹?
## 50 [問卦]港府關閉香港機場 代價有多高？？
## 51 Re:[問卦]香港最好的結局是啥
## 52 [新聞]影／香港機場今日航班全部取消！ 示威
## 53 [新聞]香港機場大廳群眾聚集下午起所有香港航
## 54 [問卦]大家覺得香港有機會撤僑嗎？
## 55 Re:[新聞]中國港澳辦定義香港示威為恐怖主義苗頭
## 56 Re:[問卦]香港最好的結局是啥
## 57 [問卦]香港和電影無處可逃多像？
## 58 [問卦]香港的火反燒中國內陸？
## 59 [爆卦]香港機場18：00準時清場
## 60 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 61 Re:[問卦]香港最好的結局是啥
## 62 [問卦]香港機場快線即將停駛?
## 63 [問卦]如果出兵支援香港民眾你願意去嗎？
## 64 Re:[爆卦]香港機場關閉？
## 65 [問卦]香港機場抗議者中會有暗樁在嗎?
## 66 [問卦]會開香港牌嗎?
## 67 [問卦]為何香港人沒被酸覺青？
## 68 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 69 Re:[爆卦]香港機場18：00準時清場
## 70 [問卦]這波香港民眾真的能戰勝邪惡共產黨嗎
## 71 Re:[問卦]為何香港人沒被酸覺青？
## 72 [問卦]香港警察弄瞎眼睛再清場有點不要臉吧？
## 73 [問卦]香港機場有人的壽命只剩十分鐘嗎？
## 74 [問卦]香港人都不拼經濟的嘛？
## 75 Re:[問卦]有沒有香港現在做的一切都晚了23年?
## 76 Re:[問卦]香港機場快線即將停駛?
## 77 Re:[爆卦]香港機場關閉？
## 78 [問卦]如果香港警察開槍打死民眾場面會更嚴重嗎
## 79 [問卦]香港是不是讓台灣的嘴砲詐欺犯現形？
## 80 [問卦]港警會恐攻香港機場嗎？？？
## 81 [問卦]香港現況是怎樣的八卦？
## 82 [問卦]香港人是真的視死如歸還是覺得自己不會死
## 83 Re:[爆卦]香港機場關閉？
## 84 [問卦]這是香港機場現況嗎？
## 85 [問卦]五毛覺得香港很好取代？
## 86 [問卦]國棟在香港有人敢動他嗎？
## 87 [問卦]香港機場是誰開的？
## 88 [問卦]香港事件國際無法介入嗎?
## 89 Re:[問卦]港府關閉香港機場 代價有多高？？
## 90 Re:[爆卦]香港機場關閉？
## 91 [問卦]劉德華看到香港變這樣,在想什麼?
## 92 [問卦]今晚香港機場會不會見血出大事???
## 93 Re:[問卦]香港事件國際無法介入嗎?
## 94 [問卦]香港的警察都毫無良知嗎
## 95 [臉書]黃之鋒JoshuaWong（香港機場現況）
## 96 [問卦]劉德華會支持反送中還是支持中共?
## 97 [新聞]反送中不利選情？柯文哲：不要為了「小波
## 98 Re:[爆卦]香港機場18：00準時清場
## 99 Re:[問卦]香港事件國際無法介入嗎?
## 100 [問卦]為何香港還沒列旅遊警示？
## 101 Re:[問卦]香港的警察都毫無良知嗎
## 102 Re:[爆卦]香港機場18：00準時清場
## 103 [問卦]解放軍都能去新疆去香港會怎樣嗎？
## 104 Re:[爆卦]香港機場18：00準時清場
## 105 [問卦]香港警察的職責到底是什麼？
## 106 Re:[問卦]解放軍都能去新疆去香港會怎樣嗎？
## 107 Re:[臉書]黃之鋒JoshuaWong（香港機場現況）
## 108 Re:[問卦]香港事件國際無法介入嗎?
## 109 [問卦]中共飛彈會朝香港發射嗎
## 110 [問卦]柯糞很不喜歡看到香港消息有卦嗎？
## 111 Re:[問卦]美帝看香港
## 112 Re:[爆卦]香港機場18：00準時清場
## 113 [問卦]長輩一直說是太陽花帶壞香港人，怎麼回
## 114 [問卦]說反送中是小波浪，是什麼心態？
## 115 [問卦]家人在香港回不來怎麼辦QQ
## 116 [問卦]美國一場校園槍擊，死傷都比香港嚴重吧？
## 117 Re:[問卦]柯糞很不喜歡看到香港消息有卦嗎？
## 118 [問卦]台灣是不是影響香港很深?
## 119 Re:[問卦]香港事件國際無法介入嗎?
## 120 Re:[問卦]香港事件國際無法介入嗎?
## 121 Re:[問卦]香港事件國際無法介入嗎?
## 122 Re:[爆卦]香港機場18：00準時清場
## 123 [問卦]1450造謠香港暴動該不該罰？
## 124 [問卦]香港目前是不是聯軍v中國的非傳統戰場?
## 125 [問卦]只有我覺得北京政府很容忍香港了嗎？
## 126 Re:[問卦]有沒有香港現在做的一切都晚了23年?
## 127 Re:[問卦]香港事件國際無法介入嗎?
## 128 Re:[問卦]香港事件國際無法介入嗎?
## 129 [問卦]香港機場應該不至於強制清場
## 130 Re:[問卦]說反送中是小波浪，是什麼心態？
## 131 Re:[問卦]有沒有香港現在做的一切都晚了23年?
## 132 Re:[問卦]香港事件國際無法介入嗎?
## 133 Re:[問卦]只有我覺得北京政府很容忍香港了嗎？
## 134 [問卦]覺青都留在PTT、FB、IG撐香港？
## 135 [問卦]今夜香港會有可能出現幾種劇本的卦?!
## 136 Re:[問卦]說反送中是小波浪，是什麼心態？
## 137 Re:[問卦]美帝看香港
## 138 Re:[問卦]今夜香港會有可能出現幾種劇本的卦?!
## 139 [問卦]現在有庫洛牌遺失在香港嗎？
## 140 Re:[問卦]中共飛彈會朝香港發射嗎
## 141 Re:[問卦]說反送中是小波浪，是什麼心態？
## 142 [問卦]中共會蠢到派解放軍去香港嗎？
## 143 [問卦]很多人建議武力鎮壓香港你們知道嗎？
## 144 [問卦]香港迪士尼
## 145 Re:[新聞]黃捷募集香港物資詹江村要告違反國安法
## 146 Re:[問卦]中共會蠢到派解放軍去香港嗎？
## 147 [問卦]台灣政府給香港人政治庇護有搞頭嗎?
## 148 [問卦]有沒有香港新聞多於威力彩的八卦?
## 149 [新聞]反送中對抗中共港人靈活運用八種街頭智慧
## 150 Re:[問卦]很多人建議武力鎮壓香港你們知道嗎？
## 151 [問卦]香港人是不是一定要訂閱蘋果日報?
## 152 [問卦]有沒有香港機場地板的卦？
## 153 Re:[問卦]柯糞很不喜歡看到香港消息有卦嗎？
## 154 Re:[問卦]香港事件國際無法介入嗎?
## 155 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 156 [問卦]有沒有未來人都沒預言到香港的八卦?
## 157 [問卦]欸欸，該派兵去伸援香港為自由而戰了吧
## 158 [新聞]英政治家：西方要挺香港決定如何對付中
## 159 [新聞]香港醫護批港警重演六四12日起無限期罷
## 160 [新聞]香港816醞釀發動銀行擠兌金管會︰台資
## 161 [問卦]媒體不公香港撐警活動怎麼不報導？
## 162 Re:[問卦]很多人建議武力鎮壓香港你們知道嗎？
## 163 [問卦]香港是不是實力不夠大小聲？
## 164 Re:[問卦]柯糞很不喜歡看到香港消息有卦嗎？
## 165 [問卦]所以香港示威民眾到底做了什麼恐怖行動
## 166 [問卦]要開始血洗「香港赤臘角機場」嗎?
## 167 Re:[問卦]欸欸，該派兵去伸援香港為自由而戰了吧
## 168 Re:[問卦]欸欸，該派兵去伸援香港為自由而戰了吧
## 169 [新聞]香港機管局：13日早上6時重新分配航班
## 170 [問卦]台灣人嘴巴挺香港卻不敢出兵？！
## 171 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 172 [問卦]香港人現主時要安怎做才會贏?
## 173 Re:[爆卦]香港黑警直接混入示威者當中
## 174 [新聞]香港女示威者右眼破裂恐失明 央視：「箠
## 175 [問卦]台灣真的向香港出兵中國是不是很頭痛
## 176 [問卦]如何把小孩送離香港
## 177 Re:[新聞]香港機管局：13日早上6時重新分配航班
## 178 [問卦]香港第一志願是哪間
## 179 [問卦]這一套出兵香港的計劃大家覺得可不可行
## 180 Re:[問卦]這一套出兵香港的計劃大家覺得可不可行
## 181 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 182 [問卦]科學家看香港都覺得香港人很不理性?
## 183 [問卦]為什麼沒有藝人聲援香港？
## 184 Re:[問卦]欸欸，該派兵去伸援香港為自由而戰了吧
## 185 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 186 [問卦]香港反送中的下場,果然跟台灣一樣==
## 187 [問卦]吃港式燒臘支持香港
## 188 [問卦]香港革命的情況是NoPAINNoGAIN嗎
## 189 [問卦]台灣可以拒絕香港決策鎮壓的官員入境嗎
## 190 [新聞]香港反送中暴力升級英相強生表達關切
## 191 Re:[問卦]如何把小孩送離香港
## 192 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 193 Re:[問卦]吃港式燒臘支持香港
## 194 [新聞]反送中衝突升級港警承認喬裝成不同人物
## 195 [問卦]出兵香港
## 196 [新聞]港澳辦指香港出現恐怖主義陸官媒公布武
## 197 Re:[問卦]這一套出兵香港的計劃大家覺得可不可行
## 198 [新聞]大陸民眾關注香港反送中「翻牆機頂盒」
## 199 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 200 [問卦]香港警察都忘記自己的初衷了嗎？
## 201 [問卦]貓貓會噗會為了香港擔心?(貓貓陣線)☺
## 202 Re:[問卦]出兵香港
## 203 Re:[問卦]為何香港當初不回歸中華民國
## 204 [問卦]從香港反攻大陸如何?
## 205 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 206 [問卦]香港現在的民眾領袖是誰?
## 207 [新聞]經濟學人香港動亂要怎麼結束
## 208 [問卦]下次香港立法會泛民派可以過半嗎？
## 209 [新聞]反送中示威傳北京要求用警隊和重刑鎮壓
## 210 Re:[新聞]反送中示威傳北京要求用警隊和重刑鎮壓
## 211 Re:[問卦]香港現在的民眾領袖是誰?
## 212 [問卦]為什麼現在還沒有國家出動兵力支援香港？
## 213 Re:[爆卦]香港機場18：00準時清場
## 214 [問卦]祖國也再討論香港？
## 215 [新聞]反送中事件鄭文燦：香港民主分水嶺
## 216 [新聞]撐香港自由！蔡英文：只要我在 台灣不會
## 217 Re:[Live]村長提告高雄市議員黃捷違反國安法
## 218 Re:[爆卦]眼睛被打爆的香港女生的妹妹發聲了
## 219 [問卦]正妹嘴很賤卻又關心香港新疆，衝突嗎？
## 220 [新聞]指香港初現恐怖主義共媒公布武警深圳集
## 221 [問卦]香港人現在的現況是都不上班了嗎
## 222 Re:[新聞]反送中事件鄭文燦：香港民主分水嶺
## 223 [問卦]香港學南韓放假行嗎
## 224 [新聞]近200紐約客撐港人「反送中」促美立法
## 225 [問卦]台灣是不是該成為香港最後的堡壘?
## 226 [問卦]香港人看自己上個世紀電影感想如何？
## 227 Re:[新聞]香港機管局：13日早上6時重新分配航班
## 228 Re:[問卦]香港人看自己上個世紀電影感想如何？
## 229 Re:[問卦]說反送中是小波浪，是什麼心態？
## 230 [問卦]北京會如何解決香港問題?
## 231 [問卦]香港事件是不是很難演變成遍地開花?
## 232 Re:[新聞]郭文貴再爆：香港4至6日間戒嚴中國絕對
## 233 Re:[問卦]香港事件是不是很難演變成遍地開花?
## 234 [問卦]如何標記香港臥底黑警？
## 235 Re:[問卦]香港越亂對台灣越有利？
## 236 Re:[爆卦]香港人致臺灣人之公開信
## 237 Re:[問卦]北京會如何解決香港問題?
## 238 Re:[問卦]北京會如何解決香港問題?
## 239 Re:[問卦]說反送中是小波浪，是什麼心態？
## 240 Re:[爆卦]香港人致臺灣人之公開信
## 241 Re:[問卦]北京會如何解決香港問題?
## 242 [問卦]收香港人補充兵力可不可行
## 243 Re:[問卦]說反送中是小波浪，是什麼心態？
## 244 Re:[問卦]香港最好的結局是啥
## 245 Re:[問卦]香港越亂對台灣越有利？
## 246 Re:[新聞]蔡英文：我們一起繼續撐香港的自由
## 247 [爆卦]六百架無人機對香港喊話
## 248 [問卦]1450484很期待解放軍進香港啊？
## 249 [問卦]香港人是不是覺醒了
## 250 [問卦]香港特首林鄭月娥8/11後首度召開記者會
## 251 Re:[問卦]香港人是不是覺醒了
## 252 Re:[問卦]北京會如何解決香港問題?
## 253 Re:[爆卦]六百架無人機對香港喊話
## 254 Re:[問卦]這波香港民眾真的能戰勝邪惡共產黨嗎
## 255 Re:[問卦]1450484很期待解放軍進香港啊？
## 256 Re:[問卦]這波香港民眾真的能戰勝邪惡共產黨嗎
## 257 香港人為什麼不理性抗議就好?
## 258 [新聞]香港抗爭蔡適應：讓國際看到一國兩制已
## 259 [爆卦]澳洲老外香港機場舌戰群廢
## 260 [問卦]香港動亂，一中或成最大贏家？
## 261 [新聞]林鄭月娥：特首不會直接指示警方部署
## 262 [問卦]香港覺青再這樣下去，會把香港搞爛吧？
## 263 [問卦]香港人為什麼不理性抗議就好?
## 264 [新聞]香港機場首度關閉萬人要「警察還眼」
## 265 台灣有辦法把香港眼睛受傷的女孩治好嗎？
## 266 [問卦]全世界有幾個國家的兵力能拿下香港?
## 267 [問卦]香港這次社運台灣藝人怎麼不寫歌了
## 268 Re:[爆卦]澳洲老外香港機場舌戰群廢
## 269 [問卦]誠心問，台灣到底能怎麼幫助香港？
## 270 [問卦]未來世界地圖會沒香港嗎
## 271 Re:[爆卦]澳洲老外香港機場舌戰群廢
## 272 [問卦]為了香港自由，跟中國開幹，願意嗎？
## 273 [爆卦]林鄭月娥呼籲眼部中槍少女報案
## 274 Re:[問卦]全世界有幾個國家的兵力能拿下香港?
## 275 Re:[問卦]誠心問，台灣到底能怎麼幫助香港？
## 276 [問卦]香港人跟9.2交換問題就解決了吧?
## 277 Re:[問卦]誠心問，台灣到底能怎麼幫助香港？
## 278 [問卦]idcc若是遇到香港事件如何帶風向？？
## 279 Re:[問卦]香港人為什麼不理性抗議就好?
## 280 [新聞]林鄭月娥再見傳媒警告香港逼近「不歸路
## 281 Re:[問卦]為了香港自由，跟中國開幹，願意嗎？
## 282 [問卦]中國對香港會玩普丁那套嗎？
## 283 [新聞]「美軍到香港支援」白宮連署請
## 284 [新聞]香港醫護站出來！13間醫院發起靜坐、500
## 285 [爆卦]香港資深演員梁舜燕離世享年90歲
## 286 [問卦]有沒有飛香港的班機都抵累的八卦
## 287 [新聞]人民日報:民進黨和台獨介入香港暴亂證據
## 288 [問卦]台灣有沒有可能取代香港
## 289 Re:[新聞]人民日報:民進黨和台獨介入香港暴亂證據
## 290 [問卦]鼻屎大的香港都可以這樣亂那內陸怎麼搞
## 291 Re:[問卦]鼻屎大的香港都可以這樣亂那內陸怎麼搞
## 292 Re:[新聞]人民日報:民進黨和台獨介入香港暴亂證據
## 293 [問卦]林鄭月娥的死法？
## 294 [新聞]香港女示威者右眼破裂恐失明 央視：
## 295 Re:[問卦]林鄭月娥的死法？
## 296 [問卦]台灣如果像香港這種抗議方法民眾能接受?
## 297 [問卦]可以基於保護責任論干涉香港嗎?sentiment_count_word %>%
filter(artDate == as.Date('2019/08/12')) %>%
count(word, sentiment, sort = TRUE) %>%
acast(word ~ sentiment, value.var = "n", fill = 0) %>%
comparison.cloud(colors = c("gray20", "gray80"),max.words = 100)
***重點觀察 (正負向情緒皆為最高峰/可能是因為當日的聲量較高) 1.香港機場關閉:在08/11香港警方進行了兩個月以來前所未有的暴力鎮壓，其中有一名女子遭布袋彈射瞎右眼，在其他地區也有使用催淚彈和警員對示威者近距力開槍等鎮暴行動，因此在08/12於機場舉行了「警方還眼的集會活動」，機管局取消下午所有剩下航班 2.大家對於香港事件結果的討論(國際會不會介入/人民有沒有可能贏/中共對於香港的態度探討) 3.大家對於去留香港的討論 4.蔡英文表示對於香港的支持
建立網路社群圖
Join文章與回覆
posts_Reviews <- merge(x = HongKong, y = HongKong_review, by = "artUrl")篩選欄位
# 取出 cmtPoster（回覆者）、artPoster（發文者）、artUrl（文章連結）三個欄位
link <- posts_Reviews %>%
select(cmtPoster, artPoster, artUrl)建立網路關係
reviewNetwork <- graph_from_data_frame(d=link, directed=T)資料篩選
由於人數眾多，我們設定一些條件來篩選資料
1. 篩選發文數 > 5：代表發文者是否高度關注該主題並熱於分享
2. 篩選回文數 > 100：代表發文者的文章是否能一定引起共鳴
HongKong_poster = table(HongKong$artPoster) %>% sort %>% as.data.frame
colnames(HongKong_poster) = c("artPoster","freq")
HongKong_poster = HongKong_poster %>% filter(freq >= 5) # 發文次數 > 5
link <- posts_Reviews %>%
filter(commentNum >= 100) %>% # 回覆數 > 100
filter(artPoster==HongKong_poster$artPoster) %>%
select(cmtPoster, artPoster, artUrl) %>%
unique()## Warning in `==.default`(artPoster, HongKong_poster$artPoster): longer object
## length is not a multiple of shorter object length## Warning in is.na(e1) | is.na(e2): longer object length is not a multiple of
## shorter object length過濾圖中的Vertex
# 篩選 link 中有出現的使用者
filtered_user <- userList %>%
filter(user%in%link$cmtPoster | user%in%link$artPoster) %>%
arrange(desc(type))建立網路關係圖
set.seed(487)
# 先把關係的方向性拿掉，減少圖片中的不必要的資訊
reviewNetwork <- graph_from_data_frame(d=link, v=filtered_user, directed=F)
plot(reviewNetwork, vertex.size=3, edge.arrow.size=.2, vertex.label=NA)
加強圖像的顯示資訊
set.seed(487)
labels <- degree(reviewNetwork)
V(reviewNetwork)$label <- names(labels)
# 依使用者的身份來區分點的顏色：有發文的話是金色，只有回覆文章的則是淺藍色
V(reviewNetwork)$color <- ifelse(V(reviewNetwork)$type=="poster", "gold", "lightblue")
# 依據回覆發生的文章所對應的主題，對他們的關聯線進行上色
#E(reviewNetwork)$color <- ifelse(E(reviewNetwork)$cmtStatus == "推", "lightgreen", "palevioletred")
# 顯示超過 5 個關聯的使用者帳號
plot(reviewNetwork, vertex.size = 3, edge.arrow.size=.2,
vertex.label=ifelse(degree(reviewNetwork) >= 13, V(reviewNetwork)$label, NA), vertex.label.font = 1)
文章產生較多回覆的帳號：chenglap、KAKAii、windsine、gaucher
2位意見領袖分析
leader_data <- HongKong %>%
filter((artPoster == "chenglap")|(artPoster == "KAKAii")|(artPoster == "windsine")|(artPoster == "gaucher"))
leader_data$artDate = as.Date(leader_data$artDate)
leader_data = leader_data %>% mutate(months = as.Date(cut(artDate, "months")))
leader_data_month = leader_data %>% group_by(months,artPoster) %>%
summarise(num=n()) %>% as.data.frame
leader_data_month ## months artPoster num
## 1 2019-07-01 chenglap 9
## 2 2019-07-01 gaucher 2
## 3 2019-07-01 windsine 23
## 4 2019-08-01 chenglap 3
## 5 2019-08-01 gaucher 7
## 6 2019-08-01 KAKAii 5
## 7 2019-09-01 chenglap 5
## 8 2019-09-01 gaucher 8
## 9 2019-09-01 KAKAii 5
## 10 2019-10-01 chenglap 6
## 11 2019-10-01 gaucher 13
## 12 2019-10-01 KAKAii 4
## 13 2019-11-01 chenglap 8
## 14 2019-11-01 gaucher 7
## 15 2019-11-01 KAKAii 3
## 16 2019-12-01 chenglap 2
## 17 2019-12-01 gaucher 5
## 18 2019-12-01 KAKAii 1
## 19 2020-01-01 chenglap 1
## 20 2020-01-01 gaucher 1
## 21 2020-01-01 KAKAii 2
## 22 2020-02-01 KAKAii 1
## 23 2020-03-01 gaucher 1
## 24 2020-04-01 chenglap 1
## 25 2020-04-01 gaucher 1
## 26 2020-05-01 chenglap 3# 整合發文趨勢圖
leader_data_month %>% ggplot(aes(x= months,y=num,fill=artPoster)) +geom_bar(stat = "identity")+
facet_wrap(~artPoster, ncol = 2, scales = "fixed") 
chenglap以及gaucher兩個發文者的發文曲線與反送中整體發文熱度大致相符，而KAKAii後期沒有任何文章，windsine則只有在7月份發表特別多文章
#chenglap分析
chenglap_data <- leader_data %>%
filter(artPoster == "chenglap")chenglap_sentence <- chenglap_data %>%
select(artUrl,sentence)
chenglap_sentence <-strsplit(chenglap_sentence$sentence,"[。！；？!?;]")
# 將每個句子與所屬的文章連結配對起來，整理成 dataframe
chenglap_sentence <- data.frame(
artUrl = rep(chenglap_data$artUrl, sapply(chenglap_sentence, length)),
sentence = unlist(chenglap_sentence)) %>%
filter(!str_detect(sentence, regex("^(\t|\n| )*$")))
chenglap_sentence$sentence <- as.character(chenglap_sentence$sentence)
# 使用斷詞引擎，放入要用的詞典和停用字
jieba_tokenizer = worker(user="HongKong_lexicon.txt", stop_word = "stop_words.txt", write = "NOFILE")
HongKong_tokenizer <- function(t) {
lapply(t, function(x) {
if(nchar(x)>1){
tokens <- segment(x, jieba_tokenizer)
tokens <- tokens[nchar(tokens)>1]
return(tokens)
}
})
}
# 進行斷詞，並計算各詞彙在各文章中出現的次數
chenglap_word <- chenglap_sentence %>%
unnest_tokens(word, sentence, token=HongKong_tokenizer) %>%
filter(!str_detect(word, regex("[0-9a-zA-Z]"))) %>%
count(artUrl, word, sort = TRUE)
# 畫出文字雲
chenglap_word %>%
group_by(word) %>%
summarise(sum = n()) %>%
filter(sum > 5) %>%
arrange(desc(sum)) %>%
wordcloud2()chenglap_word_pairs <- chenglap_word %>%
pairwise_count(word, artUrl, sort = TRUE)# 計算兩個詞彙間的相關性
chenglap_word_cors <- chenglap_word %>%
group_by(word) %>%
filter(n() >= 10) %>%
pairwise_cor(word, artUrl, sort = TRUE)
chenglap_word_cors## # A tibble: 12,882 x 3
## item1 item2 correlation
## <chr> <chr> <dbl>
## 1 一些 比較 0.672
## 2 比較 一些 0.672
## 3 還是 今天 0.664
## 4 今天 還是 0.664
## 5 一些 那麼 0.658
## 6 那麼 一些 0.658
## 7 政治 大家 0.649
## 8 大家 政治 0.649
## 9 只要 拘捕 0.630
## 10 拘捕 只要 0.630
## # … with 12,872 more rows# word_cors_new <- word_cors %>%
# filter(!(item1 %in% remove_words|item2 %in% remove_words))
chenglap_word_cors %>%
filter(correlation > 0.5) %>%
graph_from_data_frame() %>%
ggraph(layout = "fr") +
geom_edge_link(aes(edge_alpha = correlation), show.legend = FALSE) +
geom_node_point(color = "lightblue", size = 3) +
geom_node_text(aes(label = name), repel = TRUE) +
theme_void()
除了警察外也有關注政治方面
#gaucher分析
gaucher_data <- leader_data %>%
filter(artPoster == "gaucher")gaucher_sentence <- gaucher_data %>%
select(artUrl,sentence)
gaucher_sentence <-strsplit(gaucher_sentence$sentence,"[。！；？!?;]")
# 將每個句子與所屬的文章連結配對起來，整理成 dataframe
gaucher_sentence <- data.frame(
artUrl = rep(gaucher_data$artUrl, sapply(gaucher_sentence, length)),
sentence = unlist(gaucher_sentence)) %>%
filter(!str_detect(sentence, regex("^(\t|\n| )*$")))
gaucher_sentence$sentence <- as.character(gaucher_sentence$sentence)
# 進行斷詞，並計算各詞彙在各文章中出現的次數
gaucher_word <- gaucher_sentence %>%
unnest_tokens(word, sentence, token=HongKong_tokenizer) %>%
filter(!str_detect(word, regex("[0-9a-zA-Z]"))) %>%
count(artUrl, word, sort = TRUE)
# 畫出文字雲
gaucher_word %>%
group_by(word) %>%
summarise(sum = n()) %>%
filter(sum > 5) %>%
arrange(desc(sum)) %>%
wordcloud2()gaucher_word_pairs <- gaucher_word %>%
pairwise_count(word, artUrl, sort = TRUE)# 計算兩個詞彙間的相關性
gaucher_word_cors <- gaucher_word %>%
group_by(word) %>%
filter(n() >= 10) %>%
pairwise_cor(word, artUrl, sort = TRUE)
gaucher_word_cors## # A tibble: 812 x 3
## item1 item2 correlation
## <chr> <chr> <dbl>
## 1 任何 沒有 0.598
## 2 沒有 任何 0.598
## 3 現在 市民 0.550
## 4 市民 現在 0.550
## 5 因為 自己 0.465
## 6 自己 因為 0.465
## 7 任何 警察 0.449
## 8 警察 任何 0.449
## 9 現在 這個 0.448
## 10 這個 現在 0.448
## # … with 802 more rowsgaucher_word_cors %>%
filter(correlation > 0.3) %>%
graph_from_data_frame() %>%
ggraph(layout = "fr") +
geom_edge_link(aes(edge_alpha = correlation), show.legend = FALSE) +
geom_node_point(color = "lightblue", size = 3) +
geom_node_text(aes(label = name), repel = TRUE) +
theme_void()
比較集中在關注警察方面事件