PTT行動支付版：行動支付產品聲量分析 - Amazon AWS

2024-10-06

文章推薦指數： 80 %

投票人數：10人

A.628.html 轉入街口## 5: https://www.ptt.cc/bbs/MobilePay/M.1587900716. ... 用LINEPay最高12%回饋0 0 0 54 0 ## 活動證券金科google ## Re:[新聞]街口支付遭罰180 ... PTT行動支付版：行動支付產品聲量分析第__組組員：鍾兆宇、郭耿耀、陶冠霖、林品仲動機與分析目的現今資訊科技發達，數位化、線上化更是各行各業的發展趨勢。

而消費是我們生活人人都會需要的行為，從過去的以物易物，到文明世界的貨幣交易，到現在的線上交易、第三方支付、虛擬貨幣等。

人們越來越習慣將錢存在銀行帳戶、電子商務平台的虛擬錢包等地方。

因此，本組想要針對近期市場上較熱門行動支付進行研究。

研究目的•行動支付產品聲量分析:找尋討論度較高的行動支付，並針對該支付進行較深入的研究。

•觀察該行動支付主要討論內容•競品分析資料集描述行動支付種類五花八門，我們希望能從社群網路上的資訊來分析近期較熱門的行動支付有哪些，這些行動支付又是因為什麼而走紅呢?而社群網路中的PTT批踢踢實業坊為較知名的網路論壇平台，20歲到45歲的大眾為該平台主要使用者，故我們採用PTT行動支付版(mobilepay)的資料為我們研究的資料集。

•資料來源:PTTmobilepay版•取得管道:中山大學文字分析平台•資料期間:2017/04/29~2021/04/20 ##系統參數設定 Sys.setlocale(category="LC_ALL",locale="zh_TW.UTF-8")#避免中文亂碼 ##[1]"" 安裝需要的packages #echo=T,results='hide' packages=c("dplyr","tidytext","jiebaR","gutenbergr","stringr","wordcloud2","ggplot2","tidyr","scales","widyr","readr","reshape2","NLP","ggraph","igraph","tm","data.table","quanteda","Matrix","slam","wordcloud","topicmodels","LDAvis","webshot","htmlwidgets","servr","tidytext") existing=as.character(installed.packages()[,1]) for(pkginpackages[!(packages%in%existing)])install.packages(pkg) 讀進library require(dplyr) require(tidytext) require(jiebaR) require(gutenbergr) require(stringr) require(wordcloud2) require(ggplot2) require(tidyr) require(scales) require(widyr) require(readr) require(reshape2) require(NLP) require(ggraph) require(igraph) require(tm) require(data.table) require(quanteda) require(Matrix) require(slam) require(wordcloud) require(topicmodels) require(LDAvis) require(webshot) require(htmlwidgets) require(servr) require(tidytext) 資料載入資料集的描述:載入的資料是由中山大學管理學院文字分析平台取得，在平台資料選擇下載原始資料所取得之csv檔案。

抓取範圍為2017/04/29~2021/04/20透過文字分析平台搜尋「行動支付」關鍵字，共搜尋到7787篇文章。

g_csv%as.Date("%Y/%m/%d") str(g_csv) ##Classes'data.table'and'data.frame':7787obs.of10variables: ##$artTitle:chr"[情報]屏東市LINEPayMoney指定店家20%回饋""Re:[情報]SamsungPay支援HAPPYGO卡驗證+點數查詢""[請益]台灣pay繳稅抽汽車詢問""[討論]請問LPM不接受申請改ID的原因？"... ##$artDate:Date,format:"2020-04-21""2020-04-22"... ##$artTime:chr"16:17:39""07:15:21""11:38:36""16:35:45"... ##$artUrl:chr"https://www.ptt.cc/bbs/MobilePay/M.1587485863.A.662.html""https://www.ptt.cc/bbs/MobilePay/M.1587539731.A.BAD.html""https://www.ptt.cc/bbs/MobilePay/M.1587641918.A.B38.html""https://www.ptt.cc/bbs/MobilePay/M.1587659747.A.A4D.html"... ##$artPoster:chr"cokelon""Kasamori54""awei861023""nijawang"... ##$artCat:chr"MobilePay""MobilePay""MobilePay""MobilePay"... ##$commentNum:int4871236557042981919... ##$push:int3023111933110108... ##$boo:int00100002800... ##$sentence:chr"屏東市LINEPayMoney樂贈點，筆筆消費享20%點數回饋\nhttps://event-web.line.me/ECTW/article/Nk3ZX8?utm_source=cop"|__truncated__"吃光原文\n\n最近換了手機後發現登入會員綁定的功能消失了\n剩下掃條碼的方式加入\n但因為我從一開始就沒有實體會員卡\"|__truncated__"請問活動寫房屋稅、牌照稅、綜所稅\n符合參加資格\n\n那地方稅和燃料稅也能參加嗎？\n\n臉書小編是說地方稅有\n但活動"|__truncated__"4/23晚上幫家人申請LINEPayMoney，\n結果一開始填ID的地方失神，然後一直到都驗證完後，\n才發現ID填錯了…\n後來就"|__truncated__... ##-attr(*,".internal.selfref")= 抓取(2020-01-01~2021-04-22)的資料，並過濾 g_csv% filter(artDate>=as.Date("2020-01-01")) 資料處理_保留文章以及日期欄位及去重 data% dplyr::select(artDate,sentence)%>% distinct() 資料處理_日期分群，計算每天共有幾篇討論文章 article_count_by_date% group_by(artDate)%>% summarise(count=n()) head(article_count_by_date,20) ###Atibble:20x2 ##artDatecount ## ##12020-01-016 ##22020-01-023 ##32020-01-035 ##42020-01-044 ##52020-01-052 ##62020-01-065 ##72020-01-073 ##82020-01-082 ##92020-01-093 ##102020-01-112 ##112020-01-122 ##122020-01-135 ##132020-01-148 ##142020-01-155 ##152020-01-167 ##162020-01-173 ##172020-01-186 ##182020-01-192 ##192020-01-209 ##202020-01-215 日期折線圖 plot_date% ggplot(aes(x=artDate,y=count))+ geom_line(color="#00AFBB",size=1)+ geom_vline(xintercept=as.numeric(as.Date("2020-03-24")),col='red',size=1)+ geom_vline(xintercept=as.numeric(as.Date("2020-07-15")),col='red',size=1)+ geom_vline(xintercept=as.numeric(as.Date("2020-09-01")),col='red',size=1)+ geom_vline(xintercept=as.numeric(as.Date("2021-03-31")),col='red',size=1)+ geom_vline(xintercept=as.numeric(as.Date("2021-04-01")),col='red',size=1)+ scale_x_date(labels=date_format("%Y/%m/%d"))+ ggtitle("ptt行動支付版行動支付討論文章數")+ xlab("日期")+ ylab("數量")+ theme(text=element_text(family="HeitiTCLight"))#加入中文字型設定，避免中文字顯示錯誤。

plot_date ##Warningingrid.Call(C_stringMetric,as.graphicsAnnot(x$label)):fontfamilynot ##foundinWindowsfontdatabase ##Warningingrid.Call(C_stringMetric,as.graphicsAnnot(x$label)):fontfamilynot ##foundinWindowsfontdatabase ##Warningingrid.Call(C_stringMetric,as.graphicsAnnot(x$label)):fontfamilynot ##foundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call.graphics(C_text,as.graphicsAnnot(x$label),x$x,x$y,: ##fontfamilynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase 斷詞、停用字 jieba_tokenizer1] return(tokens) }) } 詞頻 g_tokens% unnest_tokens(word,sentence,token=g_tokenizer)%>% select(-artTime,-artUrl,-artPoster,-artCat,-commentNum,-push,-boo) g_tokens_count% group_by(word)%>% summarise(sum=n())%>% arrange(desc(sum)) head(g_tokens_count) ###Atibble:6x2 ##wordsum ## ##1活動4308 ##2回饋4195 ##3pay3788 ##4line2742 ##5支付2222 ##6使用1913 #文字雲觀察_從詞頻將不相關的詞語pay、支付、https、com排除 wordc_plot% filter(word!="pay"&word!="支付"&word!="https"&word!="com")%>% filter(sum>100)%>% wordcloud2() wordc_plot 關於行動支付的話題，以長條圖分析大家在討論什麼 g_tokens_by_date% count(artDate,word,sort=TRUE) plot_merge% filter(word!="pay"&word!="支付"&word!="https"&word!="com")%>% filter(artDate==as.Date("2021-04-01"))%>% group_by(artDate)%>% top_n(5,n)%>% ungroup()%>% mutate(word=reorder(word,n))%>% ggplot(aes(x=word,y=n,fill=artDate))+ geom_col(show.legend=FALSE)+ labs(x=NULL,y=NULL)+ facet_wrap(~artDate,scales="free",ncol=2)+ coord_flip()+ theme(text=element_text(family="HeitiTCLight")) plot_merge ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase 2021年4月1日透過媒體新聞大幅度的宣傳、政府的推動下，此時關於悠遊付的文章字眼提高不少 ##以文章區格，建立tf-idf g_tokens_by_art% filter(!str_detect(word,regex("[0-9]")))%>% count(artTitle,word,sort=TRUE) g_total_words_by_art% group_by(artTitle)%>% summarize(total=sum(n))%>% arrange(desc(total)) g_tokens_by_art% bind_tf_idf(word,artTitle,n) g_words_tf_idf%>% filter(total>20)%>% arrange(desc(tf_idf)) ##artTitlewordntotal ##1:[請益]橘支推薦碼回饋是不是已經沒有了推薦730 ##2:[請益]悠遊卡定期票未到期加購月票432 ##3:[請益]SpayMst功能問題mst649 ##4:[討論]橘子支付請款名稱喜樂327 ##5:[請益]悠遊付刪除使用者帳號刪掉428 ##--- ##111289:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年成功14241 ##111290:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年綁定14241 ##111291:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年https24241 ##111292:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年消費14241 ##111293:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年com14241 ##tfidftf_idf ##1:0.23333333334.11594860.9603880034 ##2:0.12500000006.09695010.7621187569 ##3:0.12244897965.87380650.7192416127 ##4:0.11111111116.38463210.7094035697 ##5:0.14285714294.91829510.7026135798 ##--- ##111289:0.00023579341.79966460.0004243491 ##111290:0.00023579341.43587220.0003385693 ##111291:0.00047158690.58352130.0002751810 ##111292:0.00023579341.09300370.0002577231 ##111293:0.00023579340.64913570.0001530619 文章總長度大於100個詞 g_words_tf_idf%>% filter(total>100)%>% arrange(desc(tf_idf)) ##artTitlewordntotal ##1:[情報]LINEPay滿百折30小北/康是美/小屈門市33133 ##2:[新聞]日本docomo支付服務存款被盜事件頻發docomo10140 ##3:[討論]PxPay10/30~12/31活動/凱基入陣無限12131 ##4:Re:[請益]icashPay能設定一般的icash卡自動加值嗎?icp18245 ##5:[新聞]香港AppleWallet八達通正式開通八達通21238 ##--- ##72671:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年成功14241 ##72672:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年綁定14241 ##72673:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年https24241 ##72674:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年消費14241 ##72675:Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年com14241 ##tfidftf_idf ##1:0.24812030082.66296290.6607351433 ##2:0.07142857147.48324440.5345174583 ##3:0.09160305345.69148490.5213573997 ##4:0.07346938786.79009720.4988642867 ##5:0.08823529415.53733430.4885883177 ##--- ##72671:0.00023579341.79966460.0004243491 ##72672:0.00023579341.43587220.0003385693 ##72673:0.00047158690.58352130.0002751810 ##72674:0.00023579341.09300370.0002577231 ##72675:0.00023579340.64913570.0001530619 這段期間主要是街口、LINEPay、悠遊付三家最多討論話題查看關於行動支付附近字彙 ngram_11% select(artUrl,sentence)%>% unnest_tokens(ngram,sentence,token=ngram_11)%>% filter(!str_detect(ngram,regex("[0-9a-zA-Z]"))) g_ngrams_11_separated% separate(ngram,paste0("word",c(1:11),sep=""),sep="") g_ngrams_11_separated ##artUrlword1word2 ##1:https://www.ptt.cc/bbs/MobilePay/M.1587485863.A.662.html參加活動 ##2:https://www.ptt.cc/bbs/MobilePay/M.1587485863.A.662.html活動前 ##3:https://www.ptt.cc/bbs/MobilePay/M.1587485863.A.662.html前請 ##4:https://www.ptt.cc/bbs/MobilePay/M.1587485863.A.662.html請務必 ##5:https://www.ptt.cc/bbs/MobilePay/M.1587485863.A.662.html務必先 ##--- ##71601:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html未來支付 ##71602:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html支付型態 ##71603:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html型態即時 ##71604:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html即時支付 ##71605:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html支付行動 ##word3word4word5word6word7word8word9word10word11 ##1:前請務必先確認是否已同意行銷 ##2:請務必先確認是否已同意行銷資訊 ##3:務必先確認是否已同意行銷資訊提供 ##4:先確認是否已同意行銷資訊提供政策 ##5:確認是否已同意行銷資訊提供政策進入 ##--- ##71601:型態即時支付行動支付成為受益者人們加速 ##71602:即時支付行動支付成為受益者人們加速拋棄 ##71603:支付行動支付成為受益者人們加速拋棄現金 ##71604:行動支付成為受益者人們加速拋棄現金舊 ##71605:支付成為受益者人們加速拋棄現金舊思維查看關於行動支付前後五個字彙 g_check_words% filter((word6=="支付")) g_check_words ##artUrlword1word2 ##1:https://www.ptt.cc/bbs/MobilePay/M.1587736114.A.760.html說不定高齡 ##2:https://www.ptt.cc/bbs/MobilePay/M.1587900716.A.628.html使用便利性 ##3:https://www.ptt.cc/bbs/MobilePay/M.1587900716.A.628.html一卡通用戶 ##4:https://www.ptt.cc/bbs/MobilePay/M.1587900716.A.628.html轉入街口 ##5:https://www.ptt.cc/bbs/MobilePay/M.1587900716.A.628.html店一併 ##--- ##799:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html供應商付款 ##800:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html改變人們 ##801:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html態支付 ##802:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html改變未來 ##803:https://www.ptt.cc/bbs/MobilePay/M.1587472708.A.744.html支付型態 ##word3word4word5word6word7word8word9word10word11 ##1:用戶中非現金支付工具悠遊卡全聯想 ##2:金管會啟動電子支付電支電子票證電 ##3:錢轉入街口支付帳戶電子支付業者簽下 ##4:支付帳戶電子支付業者簽下特約商店 ##5:使用為政國內支付工具種類繁多舉例來說電子 ##--- ##799:已經受到影響支付速度變慢根本支付款項 ##800:企業新型態支付了解改變未來支付型態 ##801:了解改變未來支付型態即時支付行動支付 ##802:支付型態即時支付行動支付成為受益者人們 ##803:即時支付行動支付成為受益者人們加速拋棄查看關於支付前後五個字彙_長條圖 g_check_words_count% melt(id.vars="artUrl",measure.vars=paste0("word",c(1:11),sep=""))%>% rename(word=value)%>% filter(variable!="word6")%>% filter(!(word%in%stop_words),nchar(word)>1)%>% count(word,sort=TRUE) g_check_words_count%>% arrange(desc(abs(n)))%>% head(20)%>% mutate(word=reorder(word,n))%>% ggplot(aes(word,n,fill=n>0))+ geom_col(show.legend=FALSE)+ xlab("出現在「支付」附近的字")+ ylab("出現次數")+ coord_flip()+ theme(text=element_text(family="HeitiTCLight")) ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call.graphics(C_text,as.graphicsAnnot(x$label),x$x,x$y,: ##fontfamilynotfoundinWindowsfontdatabase WordCorrelation g_words_by_art% unnest_tokens(word,sentence,token=g_tokenizer)%>% filter(!str_detect(word,regex("[0-9]")))%>% count(artUrl,word,sort=TRUE) g_word_pairs% pairwise_count(word,artUrl,sort=TRUE) ##Warning:`distinct_()`wasdeprecatedindplyr0.7.0. ##Pleaseuse`distinct()`instead. ##Seevignette('programming')formorehelp ##Warning:`tbl_df()`wasdeprecatedindplyr1.0.0. ##Pleaseuse`tibble::as_tibble()`instead. g_word_pairs ###Atibble:7,478,018x3 ##item1item2n ## ##1httpscom859 ##2comhttps859 ##3imgurcom574 ##4comimgur574 ##5https回饋571 ##6回饋https571 ##7https活動561 ##8活動https561 ##9httpspay537 ##10payhttps537 ###...with7,478,008morerows g_word_cors% group_by(word)%>% filter(n()>=20)%>% pairwise_cor(word,artUrl,sort=TRUE) g_word_cors%>% filter(item1=="支付") ###Atibble:1,016x3 ##item1item2correlation ## ##1支付行動0.532 ##2支付使用0.336 ##3支付電子0.294 ##4支付現金0.249 ##5支付交易0.246 ##6支付進行0.240 ##7支付工具0.234 ##8支付用戶0.234 ##9支付消費者0.231 ##10支付街口0.228 ###...with1,006morerows 詞彙之間相關性 seed_words% filter((item1%in%seed_words|item2%in%seed_words),correlation>threshold)%>% .$item1%>% unique() set.seed(10) g_word_cors_new% filter(!(item1%in%remove_words|item2%in%remove_words)) g_word_cors_new%>% filter(correlation>.4)%>% 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,family="HeitiTCLight")+ theme_void() ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warning:ggrepel:288unlabeleddatapoints(toomanyoverlaps).Consider ##increasingmax.overlaps ##分群透過詞彙平均tf-idf，去除部分不重要的字 term_avg_tfidf% group_by(word)%>% summarise(tfidf_avg=mean(tf_idf)) term_avg_tfidf$tfidf_avg%>%summary ##Min.1stQu.MedianMean3rdQu.Max. ##0.0017650.0255400.0485920.0765310.0935411.247207 term_remove=term_avg_tfidf%>% filter(tfidf_avg<0.02063)%>% .$word term_remove%>%head ##[1]"拿""all""announcement""auto""bb" ##[6]"bbb" g_dtm=g_words_tf_idf%>% filter(!word%in%term_remove)%>% cast_dtm(document=artTitle,term=word,value=n) g_dtm ##<> ##Non-/sparseentries:99164/25251560 ##Sparsity:100% ##Maximaltermlength:23 ##Weighting:termfrequency(tf) g_dtm_matrix=g_dtm%>%as.data.frame.matrix g_dtm_matrix[1:10,1:20] ##街口line公司繳費pay ##Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年21109100 ##[情報]12/1~12/31LINEPayx摩斯滿$150最高10%01111169 ##[情報]LINEPayMoney生活繳費最高2%(7/1~9/30)09468458 ##[情報]美廉社用LINEPay滿額最高享10%回饋！0882052 ##[新聞]「託付寶」再踩金管會紅線街口投信、街口支付急澄8101000 ##[情報]美廉社LINEPay加碼滿額送抽抽樂0774046 ##[情報]LPM指定交通服務6%回饋10/1~10/110653140 ##[情報]台中商圈指定商店LinePayMoney享6%回饋0602135 ##[情報]寶雅選用LPM消費滿388筆筆享7%回饋0592133 ##[情報]歡慶麥當勞上線！用LINEPay最高12%回饋0450033 ##投信基金資金回饋內部 ##Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年655655053 ##[情報]12/1~12/31LINEPayx摩斯滿$150最高10%000470 ##[情報]LINEPayMoney生活繳費最高2%(7/1~9/30)000240 ##[情報]美廉社用LINEPay滿額最高享10%回饋！000390 ##[新聞]「託付寶」再踩金管會紅線街口投信、街口支付急澄4023000 ##[情報]美廉社LINEPay加碼滿額送抽抽樂00090 ##[情報]LPM指定交通服務6%回饋10/1~10/11000150 ##[情報]台中商圈指定商店LinePayMoney享6%回饋00080 ##[情報]寶雅選用LPM消費滿388筆筆享7%回饋00080 ##[情報]歡慶麥當勞上線！用LINEPay最高12%回饋000540 ##活動證券金科google ##Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年1152490 ##[情報]12/1~12/31LINEPayx摩斯滿$150最高10%44000 ##[情報]LINEPayMoney生活繳費最高2%(7/1~9/30)31000 ##[情報]美廉社用LINEPay滿額最高享10%回饋！44000 ##[新聞]「託付寶」再踩金管會紅線街口投信、街口支付急澄0200 ##[情報]美廉社LINEPay加碼滿額送抽抽樂52000 ##[情報]LPM指定交通服務6%回饋10/1~10/1136000 ##[情報]台中商圈指定商店LinePayMoney享6%回饋31000 ##[情報]寶雅選用LPM消費滿388筆筆享7%回饋31000 ##[情報]歡慶麥當勞上線！用LINEPay最高12%回饋26000 ##銀行條第事業控制px ##Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年24544420 ##[情報]12/1~12/31LINEPayx摩斯滿$150最高10%70000 ##[情報]LINEPayMoney生活繳費最高2%(7/1~9/30)10000 ##[情報]美廉社用LINEPay滿額最高享10%回饋！30000 ##[新聞]「託付寶」再踩金管會紅線街口投信、街口支付急澄20000 ##[情報]美廉社LINEPay加碼滿額送抽抽樂30000 ##[情報]LPM指定交通服務6%回饋10/1~10/1120000 ##[情報]台中商圈指定商店LinePayMoney享6%回饋00000 ##[情報]寶雅選用LPM消費滿388筆筆享7%回饋00000 ##[情報]歡慶麥當勞上線！用LINEPay最高12%回饋50000 ##點數 ##Re:[新聞]街口支付遭罰180萬金管會：董事長胡亦嘉停職一年0 ##[情報]12/1~12/31LINEPayx摩斯滿$150最高10%39 ##[情報]LINEPayMoney生活繳費最高2%(7/1~9/30)16 ##[情報]美廉社用LINEPay滿額最高享10%回饋！41 ##[新聞]「託付寶」再踩金管會紅線街口投信、街口支付急澄0 ##[情報]美廉社LINEPay加碼滿額送抽抽樂27 ##[情報]LPM指定交通服務6%回饋10/1~10/1116 ##[情報]台中商圈指定商店LinePayMoney享6%回饋16 ##[情報]寶雅選用LPM消費滿388筆筆享7%回饋17 ##[情報]歡慶麥當勞上線！用LINEPay最高12%回饋28 建立LDA模型統計每篇文章詞頻 g_artid% filter(!str_detect(word,regex("[0-9a-zA-Z]")))%>% count(artTitle,word)%>% rename(count=n)%>% mutate(artId=group_indices(.,artTitle)) ##Warning:The`...`argumentof`group_keys()`isdeprecatedasofdplyr1.0.0. ##Please`group_by()`first g_artid ##artTitlewordcountartId ##1:[心得]7-11刷ApplePay常常多扣好幾筆一聲11 ##2:[心得]7-11刷ApplePay常常多扣好幾筆土司11 ##3:[心得]7-11刷ApplePay常常多扣好幾筆已經11 ##4:[心得]7-11刷ApplePay常常多扣好幾筆支付11 ##5:[心得]7-11刷ApplePay常常多扣好幾筆方便11 ##--- ##99431:歡慶全家悠遊付上線單筆消費滿百立折20元(已額悠遊付11777 ##99432:歡慶全家悠遊付上線單筆消費滿百立折20元(已額推出11777 ##99433:歡慶全家悠遊付上線單筆消費滿百立折20元(已額最近11777 ##99434:歡慶全家悠遊付上線單筆消費滿百立折20元(已額還會11777 ##99435:歡慶全家悠遊付上線單筆消費滿百立折20元(已額額滿11777 reserved_word% group_by(word)%>% count()%>% filter(n>5)%>% unlist() g_artid% filter(word%in%reserved_word) g_com_dtm%cast_dtm(artId,word,count) g_com_dtm ##<> ##Non-/sparseentries:79391/4207873 ##Sparsity:98% ##Maximaltermlength:4 ##Weighting:termfrequency(tf) 轉為分成兩群的LDA g_lda ##11已經0.00191 ##22已經0.00172 ##31支付0.00574 ##42支付0.0286 ##51方便0.000487 ##62方便0.00110 ##71如題0.000832 ##82如題0.000190 ##91早餐0.0000354 ##102早餐0.000341 ###...with4,818morerows g_top_terms% group_by(topic)%>% top_n(10,beta)%>% ungroup()%>% arrange(topic,-beta) remove_words% filter(!term%in%remove_words)%>% group_by(topic)%>% top_n(10,beta)%>% ungroup()%>% arrange(topic,-beta) g_top_terms%>% mutate(term=reorder(term,beta))%>% ggplot(aes(term,beta,fill=factor(topic)))+ geom_col(show.legend=FALSE)+ facet_wrap(~topic,scales="free")+ coord_flip()+ theme(text=element_text(family="HeitiTCLight")) ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call.graphics(C_text,as.graphicsAnnot(x$label),x$x,x$y,: ##fontfamilynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call.graphics(C_text,as.graphicsAnnot(x$label),x$x,x$y,: ##fontfamilynotfoundinWindowsfontdatabase 可看出在只分為兩群的情況，發現討論到行動支付是以悠遊付一詞熱度最高查看行動支付議題持續程度推文最高的文章為:jello好友互發紅包回饋文章時間為2021/01/24，推文最高的不一定是討論度最高的議題，從文字雲可以看出，主要是以悠遊付、Linepay、街口較多人討論。

plot_date% ggplot(aes(x=artDate,y=count))+ geom_line(color="#00AFBB",size=1)+ geom_vline(xintercept=as.numeric(as.Date("2021-04-01")),col='red',size=1)+ scale_x_date(labels=date_format("%Y/%m/%d"))+ ggtitle("PTT行動支付版：行動支付討論文章數")+ xlab("日期")+ ylab("數量")+ theme(text=element_text(family="HeitiTCLight"))#加入中文字型設定，避免中文字顯示錯誤。

plot_date ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase ##Warningingrid.Call.graphics(C_text,as.graphicsAnnot(x$label),x$x,x$y,: ##fontfamilynotfoundinWindowsfontdatabase ##Warningingrid.Call(C_textBounds,as.graphicsAnnot(x$label),x$x,x$y,:font ##familynotfoundinWindowsfontdatabase g_oberve% select(artTitle,commentNum,push,boo)%>% filter(commentNum>=100)%>% mutate(p_ratio=push/commentNum,b_ratio=boo/commentNum)%>% arrange(-p_ratio) 結論這幾月主要是悠遊付，較多鄉民在討論，因為這幾個月悠遊卡公司為了強化「悠遊付」電子支付優惠，陸續推出不錯的回饋活動，而且近期活動都是針對超商、超市、3C、美食等消費區塊大送儲值金，換算回饋比例高出其他行動支付許多。