Demo20161008
David Chiu
2016年10月8日
使用rJDBC 連結 MySQL
library(RJDBC)## Warning: package 'RJDBC' was built under R version 3.2.5## Loading required package: DBI## Warning: package 'DBI' was built under R version 3.2.5## Loading required package: rJavajar.loc <- 'C:\\Program Files (x86)\\MySQL\\Connector.J 5.1\\mysql-connector-java-5.1.38-bin.jar'
drv <- JDBC("com.mysql.jdbc.Driver",
jar.loc,
identifier.quote="`")
conn <- dbConnect(drv, "jdbc:mysql://localhost/orders", "root", "test")
dbDisconnect(conn)## [1] TRUE使用rJDBC 操作MySQL
conn <- dbConnect(drv, "jdbc:mysql://localhost/orders", "root", "test")
dbWriteTable(conn, 'iris', iris)## [1] TRUEdbListTables(conn)## [1] "iris"df <- dbReadTable(conn,"iris")
res <- dbGetQuery(conn, "SELECT `Sepal.Length`, Species FROM iris WHERE `Sepal.Length` >= 5")
if(dbExistsTable(conn,'iris')){
dbRemoveTable(conn, 'iris')
}## logical(0)dbListTables(conn)## character(0)dbDisconnect(conn)## [1] TRUE儲存蘋果新聞
download.file('https://github.com/ywchiu/rtibame/raw/master/data/applenews.RData', destfile = 'applenews.RData')
load('applenews.RData')
save(file = 'applenews2.RData', applenews)
conn <- dbConnect(drv, "jdbc:mysql://localhost/appledaily", "root", "test")
#dbWriteTable(conn, 'applenews', applenews)
dbDisconnect(conn)## [1] TRUE建立儲存表格
CREATE TABLE `news_main` (
`content` text,
`title` varchar(1000) DEFAULT NULL,
`dt` datetime DEFAULT NULL,
`category` varchar(100) DEFAULT NULL,
`view_cnt` int(11) DEFAULT NULL
) ENGINE=InnoDB DEFAULT CHARSET=utf8
寫入蘋果新聞
conn <- dbConnect(drv, "jdbc:mysql://localhost/appledaily", "root", "test")
dbWriteTable(conn, 'news_main', applenews, append=TRUE,row.names=FALSE,overwrite=FALSE)## [1] TRUEdbDisconnect(conn)## [1] TRUEconn <- dbConnect(drv, "jdbc:mysql://localhost/appledaily", "root", "test")
apple <- dbReadTable(conn, 'news_main')
res <- dbGetQuery(conn, "SELECT category, count(*) FROM news_main group by category")
res## category count(*)
## 1 3C 111
## 2 動物 78
## 3 國際 819
## 4 國際","LA","SF","NY","US 27
## 5 國際","SF","US 9
## 6 地產 96
## 7 娛樂 339
## 8 搜奇 165
## 9 政治 429
## 10 時尚 114
## 11 正妹 24
## 12 生活 894
## 13 社會 582
## 14 論壇 165
## 15 財經 363
## 16 體育 285names(res) = c('category', 'cnt')
pie(res$cnt,labels = res$category)
dbDisconnect(conn)## [1] TRUE比較R 與 dplyr
# 資料篩選
head(applenews[applenews$category == '娛樂', ])## content
## 16 澎恰恰今簽下新人張芳瑜，準備栽培她演出台灣音樂劇。澎恰恰透露張芳瑜是美國百老匯授權的《媽媽咪呀》國際中文版女主角，巡演超過900場，潛力無窮，「看好她未來是台灣音樂劇第一名伶」。張芳瑜現場也進行拜師儀式，向澎恰恰下跪奉茶，以示慎重。（蔡維歆／台北報導）<U+00A0>
## 21 肯亞警方強押45名台灣人遣送中國，輿論譁然。「星光幫」冠軍賴銘偉有感，改陳奕迅《你的背包》為《你的台胞》，要唱給話術不輸詐騙集團的中國人民共和國與中華民國政府。（娛樂中心／綜合報導）<U+00A0> 肯亞被判無罪釋放的台籍嫌犯（綠衣者）竟被押送到中國。新華社
## 32 藝人白冰冰和日本知名漫畫家<U+68B6>原一騎曾有一段婚姻，兩人生下1女白曉燕，然而在1997年4月14日這天，年僅16歲的白曉燕在上學途中，遭到歹徒陳進興、林春生綁架並撕票，手段極其殘忍，命案震驚全台。時隔19年，白冰冰今凌晨在臉書po文悼念愛女，堅強地說不能忘記曉燕受難的時刻，才能為所有受難者發聲。<U+00A0>白冰冰在臉書談及白曉燕命案，感嘆時光飛逝，「如夢一般，曾經怨，哭，痛苦、沮喪、崩潰」，但她滿懷感恩，感謝這段時間所有的好朋友，用各自的宗教信仰幫她度過難過的那幾年，也感謝大家惦記著曉燕，昨天還有人送花、安慰及祝福。<U+00A0>她感動地說：「我會記住大家的好，現在能過平安的日子，但不能忘懷曉燕受難的那個時刻，才能勇敢的為所有受難者發聲。」白冰冰昨天一整個早上在佛堂念經跟曉燕說話，「下午整理東西，整理心情，天亮後又是一個新的開始」，堅強的母性令人心疼。（陳嘉婉／綜合報導）<U+00A0> 白冰冰談及白曉燕命案，感嘆時光飛逝。翻攝白冰冰臉書
## 40 今天好萊塢喜事連連，繼「花邊教主」布蕾克萊弗莉有喜，為老公萊恩雷諾斯懷了第2胎，「好萊塢男神」萊恩葛斯林的42歲性感女友伊娃曼德斯也傳出懷孕，再度成為高齡產婦。<U+00A0>葛斯林2012年拍攝《末日車神》時與伊娃曼德斯譜戀曲，交往多年一直遲遲沒有結婚，但2人已經育有1女，現又傳出有了第2個愛的結晶，伊娃曼德斯被拍到出現在洛杉磯，以大包包遮住腹部，疑似想遮掩孕肚。（封以恩／綜合報導）<U+00A0> 伊娃曼德斯（左）和萊恩葛斯林交往多年未婚，但已育有1女。翻攝每日郵報
## 47 隋棠今出席阿瘦皮鞋活動，力挺全天下辛勞的媽咪，她說，很多現代媽媽都是身兼數職，格外令人心疼。談到今年母親節，她說是她當媽媽後第一次過節，自己為人母後，更能體驗母親的辛勞，今年想要好好幫媽媽和婆婆過節，不過距離母親節還有1個月，目前還沒有具體想法。<U+00A0>前兩天隋棠和老公帶兒子Max開車到台南、墾丁旅行，她透露因為表妹在台南開民宿，順道去體驗了一下，台南美食果然名不虛傳，她跟Max吃很多，母子倆回台北竟然雙雙變胖了，而第一次長途旅行的Max也十分配合，路上不是吃就是睡，7個多月大的他，上車睡覺、直接尿尿，讓她覺得一點也不麻煩。（葉婉如／台北報導）<U+00A0> 隋棠透露前幾天到台南吃喝竟吃胖了。阿瘦皮鞋提供 隋棠帶兒子Max第一次長途旅行，兒子在車上很乖巧。翻攝隋棠臉書
## 50 日本型男伊勢谷友介被爆和名媛模特兒森星半同居，2人同進同出他的住處，他還開車送女方出門工作，報導曝光後，大家才知道原來他和長澤雅美早就切了！<U+00A0>將滿40歲的伊勢谷友介，歷任女友包括廣末涼子、吉川雛乃、木村佳乃等，一字排開羨煞世間男性。據《FRIDAY》周刊，他和28歲的長澤雅美2012年展開交往，男方友人透露，因雅美頻頻催婚，他斷然拒絕，2人大吵一架，已於1年前分手。<U+00A0>他的新歡森星長相甜美，本月22日滿24歲，曾在巴黎生活，今年3月剛從慶應大學畢業，祖母是名設計師森英惠，姊姊森泉也是藝人。去年11月伊勢谷友介上她擔任助理主持的料理節目，交換聯絡方式後來電，迅速進展到半同居，情場浪子和千金小姐的配對備受矚目。（吳惠菁／綜合報導）<U+00A0> 伊勢谷友介（左）和森星打扮休閒一起遛狗。翻攝《FRIDAY》森泉（右）、森星是日本名媛姊妹花。翻攝森星IG
## title dt category
## 16 澎恰恰收女弟子 拱當台灣第一名伶 2016-04-15 14:17:00 娛樂
## 21 【唱新聞】詐騙嗎？R.O.C.有CHINA但不是CHINA 2016-04-15 14:00:00 娛樂
## 32 白曉燕命案19年了 白冰冰「不能忘」 2016-04-15 13:49:00 娛樂
## 40 好萊塢男神好威 女友再當高齡產婦 2016-04-15 13:40:00 娛樂
## 47 隋棠帶兒遠征南台灣 吃成膨皮母子檔 2016-04-15 13:30:00 娛樂
## 50 伊勢谷友介掰了長澤雅美 半同居小16歲辣模 2016-04-15 13:23:00 娛樂
## view_cnt
## 16 1749
## 21 11696
## 32 3329
## 40 4307
## 47 4651
## 50 5141library(dplyr)## Warning: package 'dplyr' was built under R version 3.2.5##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionhead(filter(applenews, category == '娛樂'))## content
## 1 澎恰恰今簽下新人張芳瑜，準備栽培她演出台灣音樂劇。澎恰恰透露張芳瑜是美國百老匯授權的《媽媽咪呀》國際中文版女主角，巡演超過900場，潛力無窮，「看好她未來是台灣音樂劇第一名伶」。張芳瑜現場也進行拜師儀式，向澎恰恰下跪奉茶，以示慎重。（蔡維歆／台北報導）<U+00A0>
## 2 肯亞警方強押45名台灣人遣送中國，輿論譁然。「星光幫」冠軍賴銘偉有感，改陳奕迅《你的背包》為《你的台胞》，要唱給話術不輸詐騙集團的中國人民共和國與中華民國政府。（娛樂中心／綜合報導）<U+00A0> 肯亞被判無罪釋放的台籍嫌犯（綠衣者）竟被押送到中國。新華社
## 3 藝人白冰冰和日本知名漫畫家<U+68B6>原一騎曾有一段婚姻，兩人生下1女白曉燕，然而在1997年4月14日這天，年僅16歲的白曉燕在上學途中，遭到歹徒陳進興、林春生綁架並撕票，手段極其殘忍，命案震驚全台。時隔19年，白冰冰今凌晨在臉書po文悼念愛女，堅強地說不能忘記曉燕受難的時刻，才能為所有受難者發聲。<U+00A0>白冰冰在臉書談及白曉燕命案，感嘆時光飛逝，「如夢一般，曾經怨，哭，痛苦、沮喪、崩潰」，但她滿懷感恩，感謝這段時間所有的好朋友，用各自的宗教信仰幫她度過難過的那幾年，也感謝大家惦記著曉燕，昨天還有人送花、安慰及祝福。<U+00A0>她感動地說：「我會記住大家的好，現在能過平安的日子，但不能忘懷曉燕受難的那個時刻，才能勇敢的為所有受難者發聲。」白冰冰昨天一整個早上在佛堂念經跟曉燕說話，「下午整理東西，整理心情，天亮後又是一個新的開始」，堅強的母性令人心疼。（陳嘉婉／綜合報導）<U+00A0> 白冰冰談及白曉燕命案，感嘆時光飛逝。翻攝白冰冰臉書
## 4 今天好萊塢喜事連連，繼「花邊教主」布蕾克萊弗莉有喜，為老公萊恩雷諾斯懷了第2胎，「好萊塢男神」萊恩葛斯林的42歲性感女友伊娃曼德斯也傳出懷孕，再度成為高齡產婦。<U+00A0>葛斯林2012年拍攝《末日車神》時與伊娃曼德斯譜戀曲，交往多年一直遲遲沒有結婚，但2人已經育有1女，現又傳出有了第2個愛的結晶，伊娃曼德斯被拍到出現在洛杉磯，以大包包遮住腹部，疑似想遮掩孕肚。（封以恩／綜合報導）<U+00A0> 伊娃曼德斯（左）和萊恩葛斯林交往多年未婚，但已育有1女。翻攝每日郵報
## 5 隋棠今出席阿瘦皮鞋活動，力挺全天下辛勞的媽咪，她說，很多現代媽媽都是身兼數職，格外令人心疼。談到今年母親節，她說是她當媽媽後第一次過節，自己為人母後，更能體驗母親的辛勞，今年想要好好幫媽媽和婆婆過節，不過距離母親節還有1個月，目前還沒有具體想法。<U+00A0>前兩天隋棠和老公帶兒子Max開車到台南、墾丁旅行，她透露因為表妹在台南開民宿，順道去體驗了一下，台南美食果然名不虛傳，她跟Max吃很多，母子倆回台北竟然雙雙變胖了，而第一次長途旅行的Max也十分配合，路上不是吃就是睡，7個多月大的他，上車睡覺、直接尿尿，讓她覺得一點也不麻煩。（葉婉如／台北報導）<U+00A0> 隋棠透露前幾天到台南吃喝竟吃胖了。阿瘦皮鞋提供 隋棠帶兒子Max第一次長途旅行，兒子在車上很乖巧。翻攝隋棠臉書
## 6 日本型男伊勢谷友介被爆和名媛模特兒森星半同居，2人同進同出他的住處，他還開車送女方出門工作，報導曝光後，大家才知道原來他和長澤雅美早就切了！<U+00A0>將滿40歲的伊勢谷友介，歷任女友包括廣末涼子、吉川雛乃、木村佳乃等，一字排開羨煞世間男性。據《FRIDAY》周刊，他和28歲的長澤雅美2012年展開交往，男方友人透露，因雅美頻頻催婚，他斷然拒絕，2人大吵一架，已於1年前分手。<U+00A0>他的新歡森星長相甜美，本月22日滿24歲，曾在巴黎生活，今年3月剛從慶應大學畢業，祖母是名設計師森英惠，姊姊森泉也是藝人。去年11月伊勢谷友介上她擔任助理主持的料理節目，交換聯絡方式後來電，迅速進展到半同居，情場浪子和千金小姐的配對備受矚目。（吳惠菁／綜合報導）<U+00A0> 伊勢谷友介（左）和森星打扮休閒一起遛狗。翻攝《FRIDAY》森泉（右）、森星是日本名媛姊妹花。翻攝森星IG
## title dt category
## 1 澎恰恰收女弟子 拱當台灣第一名伶 2016-04-15 14:17:00 娛樂
## 2 【唱新聞】詐騙嗎？R.O.C.有CHINA但不是CHINA 2016-04-15 14:00:00 娛樂
## 3 白曉燕命案19年了 白冰冰「不能忘」 2016-04-15 13:49:00 娛樂
## 4 好萊塢男神好威 女友再當高齡產婦 2016-04-15 13:40:00 娛樂
## 5 隋棠帶兒遠征南台灣 吃成膨皮母子檔 2016-04-15 13:30:00 娛樂
## 6 伊勢谷友介掰了長澤雅美 半同居小16歲辣模 2016-04-15 13:23:00 娛樂
## view_cnt
## 1 1749
## 2 11696
## 3 3329
## 4 4307
## 5 4651
## 6 5141head(filter(applenews, category == "娛樂" & view_cnt > 1000))## content
## 1 澎恰恰今簽下新人張芳瑜，準備栽培她演出台灣音樂劇。澎恰恰透露張芳瑜是美國百老匯授權的《媽媽咪呀》國際中文版女主角，巡演超過900場，潛力無窮，「看好她未來是台灣音樂劇第一名伶」。張芳瑜現場也進行拜師儀式，向澎恰恰下跪奉茶，以示慎重。（蔡維歆／台北報導）<U+00A0>
## 2 肯亞警方強押45名台灣人遣送中國，輿論譁然。「星光幫」冠軍賴銘偉有感，改陳奕迅《你的背包》為《你的台胞》，要唱給話術不輸詐騙集團的中國人民共和國與中華民國政府。（娛樂中心／綜合報導）<U+00A0> 肯亞被判無罪釋放的台籍嫌犯（綠衣者）竟被押送到中國。新華社
## 3 藝人白冰冰和日本知名漫畫家<U+68B6>原一騎曾有一段婚姻，兩人生下1女白曉燕，然而在1997年4月14日這天，年僅16歲的白曉燕在上學途中，遭到歹徒陳進興、林春生綁架並撕票，手段極其殘忍，命案震驚全台。時隔19年，白冰冰今凌晨在臉書po文悼念愛女，堅強地說不能忘記曉燕受難的時刻，才能為所有受難者發聲。<U+00A0>白冰冰在臉書談及白曉燕命案，感嘆時光飛逝，「如夢一般，曾經怨，哭，痛苦、沮喪、崩潰」，但她滿懷感恩，感謝這段時間所有的好朋友，用各自的宗教信仰幫她度過難過的那幾年，也感謝大家惦記著曉燕，昨天還有人送花、安慰及祝福。<U+00A0>她感動地說：「我會記住大家的好，現在能過平安的日子，但不能忘懷曉燕受難的那個時刻，才能勇敢的為所有受難者發聲。」白冰冰昨天一整個早上在佛堂念經跟曉燕說話，「下午整理東西，整理心情，天亮後又是一個新的開始」，堅強的母性令人心疼。（陳嘉婉／綜合報導）<U+00A0> 白冰冰談及白曉燕命案，感嘆時光飛逝。翻攝白冰冰臉書
## 4 今天好萊塢喜事連連，繼「花邊教主」布蕾克萊弗莉有喜，為老公萊恩雷諾斯懷了第2胎，「好萊塢男神」萊恩葛斯林的42歲性感女友伊娃曼德斯也傳出懷孕，再度成為高齡產婦。<U+00A0>葛斯林2012年拍攝《末日車神》時與伊娃曼德斯譜戀曲，交往多年一直遲遲沒有結婚，但2人已經育有1女，現又傳出有了第2個愛的結晶，伊娃曼德斯被拍到出現在洛杉磯，以大包包遮住腹部，疑似想遮掩孕肚。（封以恩／綜合報導）<U+00A0> 伊娃曼德斯（左）和萊恩葛斯林交往多年未婚，但已育有1女。翻攝每日郵報
## 5 隋棠今出席阿瘦皮鞋活動，力挺全天下辛勞的媽咪，她說，很多現代媽媽都是身兼數職，格外令人心疼。談到今年母親節，她說是她當媽媽後第一次過節，自己為人母後，更能體驗母親的辛勞，今年想要好好幫媽媽和婆婆過節，不過距離母親節還有1個月，目前還沒有具體想法。<U+00A0>前兩天隋棠和老公帶兒子Max開車到台南、墾丁旅行，她透露因為表妹在台南開民宿，順道去體驗了一下，台南美食果然名不虛傳，她跟Max吃很多，母子倆回台北竟然雙雙變胖了，而第一次長途旅行的Max也十分配合，路上不是吃就是睡，7個多月大的他，上車睡覺、直接尿尿，讓她覺得一點也不麻煩。（葉婉如／台北報導）<U+00A0> 隋棠透露前幾天到台南吃喝竟吃胖了。阿瘦皮鞋提供 隋棠帶兒子Max第一次長途旅行，兒子在車上很乖巧。翻攝隋棠臉書
## 6 日本型男伊勢谷友介被爆和名媛模特兒森星半同居，2人同進同出他的住處，他還開車送女方出門工作，報導曝光後，大家才知道原來他和長澤雅美早就切了！<U+00A0>將滿40歲的伊勢谷友介，歷任女友包括廣末涼子、吉川雛乃、木村佳乃等，一字排開羨煞世間男性。據《FRIDAY》周刊，他和28歲的長澤雅美2012年展開交往，男方友人透露，因雅美頻頻催婚，他斷然拒絕，2人大吵一架，已於1年前分手。<U+00A0>他的新歡森星長相甜美，本月22日滿24歲，曾在巴黎生活，今年3月剛從慶應大學畢業，祖母是名設計師森英惠，姊姊森泉也是藝人。去年11月伊勢谷友介上她擔任助理主持的料理節目，交換聯絡方式後來電，迅速進展到半同居，情場浪子和千金小姐的配對備受矚目。（吳惠菁／綜合報導）<U+00A0> 伊勢谷友介（左）和森星打扮休閒一起遛狗。翻攝《FRIDAY》森泉（右）、森星是日本名媛姊妹花。翻攝森星IG
## title dt category
## 1 澎恰恰收女弟子 拱當台灣第一名伶 2016-04-15 14:17:00 娛樂
## 2 【唱新聞】詐騙嗎？R.O.C.有CHINA但不是CHINA 2016-04-15 14:00:00 娛樂
## 3 白曉燕命案19年了 白冰冰「不能忘」 2016-04-15 13:49:00 娛樂
## 4 好萊塢男神好威 女友再當高齡產婦 2016-04-15 13:40:00 娛樂
## 5 隋棠帶兒遠征南台灣 吃成膨皮母子檔 2016-04-15 13:30:00 娛樂
## 6 伊勢谷友介掰了長澤雅美 半同居小16歲辣模 2016-04-15 13:23:00 娛樂
## view_cnt
## 1 1749
## 2 11696
## 3 3329
## 4 4307
## 5 4651
## 6 5141head(filter(applenews, category == "娛樂" | view_cnt > 1000))## content
## 1 (更新:新增影片)想要透過刮刮樂彩券一夕致富，但他卻用錯方法！台中市一名黃姓男子覬覦頭獎高達2600萬的「開門見喜」刮刮樂彩券，上月佯裝顧客進入彩券行，趁女店員拿出11張彩券供其挑選時，抓起彩券奪門而出騎車逃逸，警方調閱監視器循線追查，昨日在北區逮捕黃嫌，他坦承搶來的彩券共刮中1萬4千多元，但已經兌獎花用殆盡，警方訊後將全案依詐欺罪嫌移送。<U+00A0>警方調查，黃姓男子﹝27歲﹞上個月頭戴安全帽及口罩，到河南路一家彩券行佯稱購買每張售價2000元的「開門見喜」刮刮樂，並要求挑選彩券號碼，朱姓女店員不疑有他，從櫃檯拿出連號彩券總計11張供其挑選，黃男竟趁朱女不注意之際，抓起彩券奪門而出，並跳上一旁機車逃逸，店家總計損失新臺幣2萬2,000元。<U+00A0>轄區第六分局何安派出所獲報，調閱路口監視器過濾比對，發現嫌犯已預謀將車牌用紅色口罩遮蔽，逃逸時刻意繞行小巷，更3次變裝意圖混淆警方追查，只是看似完美無瑕的犯罪計畫，卻在飆速逃逸時口罩隨風微微揚起，車牌部分英文及數字號碼在鏡頭下仍能辨識，在員警比對將近百支監視鏡頭畫面後，通知孫姓車主到案說明。<U+00A0>孫男到案後表示，案發前已將機車借給黃姓友人使用，但無法提供黃嫌聯絡方式，警方鍥而不捨擴大比對監視畫面，鎖定黃嫌時常出沒北區北平三街一帶，經過日埋伏，昨天逮到狡猾的黃嫌，他供稱因缺錢花用，迫於無奈下才出此下策，所得彩券刮開後總計兌換彩金1萬4,500元，且已全數花費殆盡，警方訊後將全案依詐欺罪嫌移送。（王煌忠／台中報導）<U+00A0>發稿:1304更新:1432<U+00A0> 黃姓男子佯裝購買刮刮樂，趁選號時一把抓走刮刮樂逃逸，女店員當下傻眼不已。翻攝畫面黃嫌逃逸時將車牌以口罩遮住，逃避警方追查。翻攝畫面
## 2 俄羅斯夫妻Murad和Nataly，因牽手背景照「Follow Me To」聞名，昨天他們受丹麥品牌PANDORA之邀以A Journey of Love為主題，在信義誠品舉辦攝影展，其中多套美麗的禮服皆出於藝人賈永婕經營的C．H Wedding。<U+00A0>其中包括代表台灣廟宇文化的屏東東龍宮、信仰勝地佛光山及搭上阿里山小火車的3個地點，Nataly都身穿C.H Wedding的手工禮服，拍攝出的絕美照片，令人屏息，原來台灣這麼美。（時尚中心／綜合報導）<U+00A0>想知道更多，一定要看……牽手夫妻戴PANDORA 拍出驚豔台灣美<U+00A0> 牽手夫妻每張照片皆花費不少心力。翻攝C.H Wedding官網Nataly身穿C.H Wedding的手工禮服拍攝。翻攝C.H Wedding官網俄羅斯夫妻Murad和Nataly昨出席攝影展。朱世閎攝
## 3 台灣浩鼎生技股份有限公司(4174)今(15)日中午在法務部公司搜索後，再度發布聲明：該公司自信一切行事合法，絕對積極配合調查，協助司法儘速釐清真相；但也籲請司法調查單位秉持偵查不公開原則，勿將公司基於信任政府和司法，在搜索中所交付的商業機密隨意對外公開，讓公司數十年研發心血付諸流水，將嚴重影響及股東權益，並使國內生技產業重挫。<U+00A0>浩鼎指出，檢調搜索後攜走大量資料，包括公司許多智財、技術和研究數據，令員工非常耽憂，唯恐在研究發表前數據外流，將嚴重影響公司未來發展。<U+00A0>由於特定媒體已連續三周「獨家」報導浩鼎相關訊息，報導雖不實，但部分資料均來自主管單位要求公司陳交之內部資料，這些資料從未對外提供；今天檢調一抵搜索現場，該媒體相關部門即來電查證，在偵查不公開下，特定媒體在第一時間即知曉，令浩鼎為之驚訝與耽憂。<U+00A0>本公司在此嚴正聲明：本公司已獲邀今年六月將前往美國臨床腫瘤醫學會年會口頭發表OBI-822臨床試驗計畫解盲報告論文，依據學術規範，在發表前相關數據皆不得揭露；浩鼎也籲請媒體尊重司法，若因數據外流而導致公司及投資人權益損失，公司將依據「營業秘密法」及相關法規，對洩密及傳播者追訴及求償。<U+00A0>浩鼎也呼籲投資人不用驚慌，公司營運正常，經得起考驗；公司也在事前即告知員工，積極配合調查；惟有儘速將真相查明，才能還公司清白。20160415台灣浩鼎生技股有限公司(4174)今天發表聲明：公司自信無任何不法情事，願意主動配合司法調查，也懇請司法單位秉持公平正義原則，保障合法百姓和業者權益，早日釐清案情，還給浩鼎公道。（江俞庭／台北報導）<U+00A0>
## 4 本內容由中央廣播電臺提供<U+00A0><U+00A0> <U+00A0> <U+00A0> <U+00A0>衛生福利部國民健康署今天(15日)發布最新出爐的2013年癌症登記資料分析，結果台灣民眾的癌症時鐘較10年前撥快了1.5倍，每5分18秒就有1個人罹癌，統計2013年罹癌人數將近10萬人，其中大腸癌名列第一，50到74歲有篩檢的民眾當中，每21人就有1人發現大腸病變，其中1成是大腸癌。<U+00A0> <U+00A0> <U+00A0> <U+00A0>國健署署長邱淑媞示，大腸癌無論發生率或死亡率都是男性多於女性，原因與男性不愛做篩檢有很大關係。另外，台灣大腸癌死亡率在36個OECD國家排名第10，發生率排名第5。除了大腸癌之外，其它前10大癌症包括肝癌、肺癌、乳癌、口腔癌、攝護腺癌、胃癌、皮膚癌、甲狀腺癌、食道癌。<U+00A0> <U+00A0> <U+00A0> <U+00A0>全世界處理癌症登記資料分析時間都要2年時間，台灣自1979年開始，成為亞洲第一個做癌症登記的國家，加上有全民健保及醫療院所資訊化，因此涵蓋的癌症資料數將近百分之百，也成為全球推癌症防治取經的對象。<U+00A0> <U+00A0> <U+00A0> <U+00A0>邱淑媞呼籲民眾把握2年一次大腸癌篩檢的機會，一有病變就切掉，永除後患。此外，生活中也要力行「4不3要」也就是，不菸酒檳榔、不吃燒烤紅肉、不加工重口味以及避免環境汙染，同時要天然蔬果、要多運動、也要定期檢查。(繼續閱讀)
## 5 連結嘉義縣民雄與竹崎交流道的嘉166線道民雄鄉大崎村段，近來出現可愛的Q版千里眼造型看板寫著「人在做 天在看」、「眾神有咧看」，原來是該路段經常有沒有公德心的駕駛隨亂丟垃圾，讓原本賞心悅目的安全島花台堆滿垃圾，大崎村民相當氣憤，手寫看板勸導無效，於是設計千里眼看板高掛電線桿，拜託不要再亂垃圾！<U+00A0>嘉166線可連接中山高速公路民雄交流道與福爾摩沙國道三號竹崎交流道，車輛絡繹不絕也帶來不少垃圾，大崎村民幾乎是每天看見安全島沿線保麗龍杯、便當盒、飲料罐、檳榔渣等垃圾遍布，撿了隔天又是相同景象，既氣憤又無奈！<U+00A0>村民表示，過去張貼手寫看板，希望司機們考量地方原本整潔美觀，路過不要破壞環境，一起維護家園整潔，但是軟性訴求看起來沒有改善，清潔志工每月都在車水馬龍的馬路周圍一再清出垃圾，真的不堪其擾。<U+00A0>村民們委託設計師以Ｑ板千里眼神像加上警示標語「眾神有咧看」，期盼遏阻隨手丟垃圾歪風。沿線40面看板共花費萬餘元，可能是神明庇佑吧，懸掛以來垃圾量已明顯減少。（李宗祐／嘉義報導） 嘉166線來往車輛頻繁。李宗祐攝掛在分隔島上的Q版神明呼籲不要亂丟垃圾。李宗祐攝
## 6 日本九州熊本縣遭強震重創，民航局表示，華航即日起到5月8日止，從台灣飛往九州的熊本、宮崎、鹿兒島、福岡等班機，若要取消，退費或改班將可免收手續費。(李姿慧／台北報導)<U+00A0><U+00A0>
## title dt
## 1 【更新】搶2.2萬彩券刮中1.4萬 沒發財還得入獄 2016-04-15 14:32:00
## 2 全球最閃牽手夫妻 絕美禮服出自台灣… 2016-04-15 14:28:00
## 3 公司遭搜索 浩鼎籲檢調勿公開商業機密 2016-04-15 14:28:00
## 4 【央廣RTI】每318秒就有1人罹癌 大腸癌名列第一 2016-04-15 14:25:00
## 5 垃圾掉滿地 村民請神明幫忙 2016-04-15 14:24:00
## 6 【熊本強震】取消去九州 華航5月8日前退改票免手續費 2016-04-15 14:24:00
## category view_cnt
## 1 社會 1754
## 2 時尚 311
## 3 財經 24
## 4 生活 20
## 5 生活 314
## 6 生活 27head(filter(applenews, category %in% c("娛樂", "社會"))
)## content
## 1 (更新:新增影片)想要透過刮刮樂彩券一夕致富，但他卻用錯方法！台中市一名黃姓男子覬覦頭獎高達2600萬的「開門見喜」刮刮樂彩券，上月佯裝顧客進入彩券行，趁女店員拿出11張彩券供其挑選時，抓起彩券奪門而出騎車逃逸，警方調閱監視器循線追查，昨日在北區逮捕黃嫌，他坦承搶來的彩券共刮中1萬4千多元，但已經兌獎花用殆盡，警方訊後將全案依詐欺罪嫌移送。<U+00A0>警方調查，黃姓男子﹝27歲﹞上個月頭戴安全帽及口罩，到河南路一家彩券行佯稱購買每張售價2000元的「開門見喜」刮刮樂，並要求挑選彩券號碼，朱姓女店員不疑有他，從櫃檯拿出連號彩券總計11張供其挑選，黃男竟趁朱女不注意之際，抓起彩券奪門而出，並跳上一旁機車逃逸，店家總計損失新臺幣2萬2,000元。<U+00A0>轄區第六分局何安派出所獲報，調閱路口監視器過濾比對，發現嫌犯已預謀將車牌用紅色口罩遮蔽，逃逸時刻意繞行小巷，更3次變裝意圖混淆警方追查，只是看似完美無瑕的犯罪計畫，卻在飆速逃逸時口罩隨風微微揚起，車牌部分英文及數字號碼在鏡頭下仍能辨識，在員警比對將近百支監視鏡頭畫面後，通知孫姓車主到案說明。<U+00A0>孫男到案後表示，案發前已將機車借給黃姓友人使用，但無法提供黃嫌聯絡方式，警方鍥而不捨擴大比對監視畫面，鎖定黃嫌時常出沒北區北平三街一帶，經過日埋伏，昨天逮到狡猾的黃嫌，他供稱因缺錢花用，迫於無奈下才出此下策，所得彩券刮開後總計兌換彩金1萬4,500元，且已全數花費殆盡，警方訊後將全案依詐欺罪嫌移送。（王煌忠／台中報導）<U+00A0>發稿:1304更新:1432<U+00A0> 黃姓男子佯裝購買刮刮樂，趁選號時一把抓走刮刮樂逃逸，女店員當下傻眼不已。翻攝畫面黃嫌逃逸時將車牌以口罩遮住，逃避警方追查。翻攝畫面
## 2 新北市一名33歲男子和另名女子在新莊區同居，卻在2015年6月一大早，及7月中深夜，趁同居女子的10歲女兒熟睡時猥褻其下體、胸部，女童驚醒才罷手。新北地院審酌男子認罪並達成和解，還寫道歉信並搬走，今依故意對兒童犯乘機猥褻罪輕判1年2月徒刑，緩刑3年，另須保護管束；仍可上訴。<U+00A0>2015年，男子跟女子同居新莊，卻在6月某天6時許，撞見同居女子的10歲女兒正熟睡，手伸入其內褲猥褻其下體，女童驚醒才停手。事隔1個月後，男子又趁女童深夜時熟睡，撫摸其胸部，女童再次驚醒，才未再猥褻。<U+00A0>新北地院認為，男子身為女子的同居人，等同父執輩，卻未照護該年幼女童，反為了滿足個人性慾，罔顧人倫而乘機猥褻，但考量男子沒前科，犯後始終坦承犯行，已達成和解，寫下道歉信，搬離新莊住處，女童及同居人也表明不願追究，雖判刑1年2月，但給予緩刑也須保護管束。（孫友廉／新北報導）<U+00A0>【更多司法新聞，請看《蘋果陪審團》粉絲團】
## 3 澎恰恰今簽下新人張芳瑜，準備栽培她演出台灣音樂劇。澎恰恰透露張芳瑜是美國百老匯授權的《媽媽咪呀》國際中文版女主角，巡演超過900場，潛力無窮，「看好她未來是台灣音樂劇第一名伶」。張芳瑜現場也進行拜師儀式，向澎恰恰下跪奉茶，以示慎重。（蔡維歆／台北報導）<U+00A0>
## 4 （新增：讀者直擊影片）<U+00A0>台北市基隆路三段台大動物醫院前，今早9時許發生嚴重車禍，1輛價值約500萬的BMW740Li車，疑似駕駛恍神先撞擊橋墩側翻滑行後，又波及正在行駛中的公車，造成車窗玻璃碎裂，所幸沒有人員受傷，相關肇事責任還需警方釐清。<U+00A0>公車駕駛表示，當時車上約有50多名乘客，從公館往市府方向行駛，在行經台大動物醫院前時，聽到「碰」的一聲巨響，從後照鏡發現，內線車道的BMW撞到橋墩，隨即側翻直接撞到公車左側，還撞破了一扇車窗玻璃，還好玻璃碎沒有傷到乘客。<U+00A0>BMW車輛側翻後駕駛還被安全帶繫著，許多行經目擊的機車騎士都停下車幫忙，約20人合力先將車輛翻正，再從駕駛座上救人到路旁休息，肇事駕駛一度恍神無法言語，對於車禍發生經過完全說：「不記得！」這起車禍還造成基隆路車回堵。（突發中心余思維／台北報導）<U+00A0>《蘋果日報》表示，本則影片或照片是投訴人獨家提供《蘋果日報》，若其他媒體未取得授權逕行翻攝，也未註明出處，《蘋果》必訴諸法律，以保障權益。<U+00A0>《蘋果日報》歡迎讀者加入監督社會，向《蘋果》獨家提供照片、影片，經採用可獲獎金，照片一千，影片兩千元，每周點閱數最高，更可獲獎金三萬元，請參考活動網址：http://www.appledaily.com.tw/complainevent/<U+00A0>出版1215更新1412<U+00A0><U+00A0><U+00A0> BMW側翻，後方騎士驚險穿越，幸運沒有追撞上。翻拍畫面BMW側翻後，再撞上一旁的公車。翻拍畫面BMW側翻撞車後，後方車輛全都緊急停下。翻拍畫面BMW740Li車撞到橋墩後，左前輪嚴重毀損，造成側翻後又撞公車。余思維攝車禍現場滿地BMW車輛零件，以及公車玻璃碎片。余思維攝BMW側翻時，撞擊公車左側，造成玻璃碎裂。余思維攝公車玻璃碎裂噴濺，所幸沒有造成乘客受傷。余思維攝BMW疑似撞擊橋墩後發生側翻。余思維攝BMW駕駛對於發生經過，向警方表示：「不記得。」余思維攝
## 5 肯亞警方強押45名台灣人遣送中國，輿論譁然。「星光幫」冠軍賴銘偉有感，改陳奕迅《你的背包》為《你的台胞》，要唱給話術不輸詐騙集團的中國人民共和國與中華民國政府。（娛樂中心／綜合報導）<U+00A0> 肯亞被判無罪釋放的台籍嫌犯（綠衣者）竟被押送到中國。新華社
## 6 台中市一名年逾9旬的魏姓老翁，前天到北屯區一家汽車銷售中心，卻霸坐在展售車上不願離去，警方獲報前往協助，老翁竟語出驚人說「我想要坐車去南京，司機呢？趕快來開車啊」，原來這名有多次走失紀錄的老翁，疑似返鄉心切，欲搭車返回南京，最後通知其女兒到場，好言勸說後才將老翁帶回家，化解這場烏龍鬧劇。<U+00A0>警方表示，台中市北屯區一間汽車銷售中心，前天下午突然走進一名年逾9旬的魏姓老爺爺，毫不理會現場銷售人員招呼，直接就打開車門坐上展示車後座，銷售人員對於老爺爺的怪異舉動錯愕不已，繼續趨前詢問需要甚麼協助，但老爺爺始終不願回應，無奈打電話向警方求助。<U+00A0>轄區第五分局四平所警員到場，詢問老爺爺為何要坐在車上，他竟回說「我想要坐車去南京，司機呢？趕快來開車啊」，警員聽聞既好氣又好笑說「伯伯，這台是人家的展售車，而且要到南京必須坐飛機才會到，這台車不會飛啦！」由於老翁仍堅持坐在車內，警方只好透過警政署知識聯網系統查詢，發現魏姓老翁已有多次走失紀錄，遂通知其女兒到場，經女兒好言勸說後，老翁才心不甘情不願隨女兒返家。（王煌忠／台中報導）<U+00A0><U+00A0>
## title dt
## 1 【更新】搶2.2萬彩券刮中1.4萬 沒發財還得入獄 2016-04-15 14:32:00
## 2 同居人女兒熟睡 淫男伸狼爪 2016-04-15 14:22:00
## 3 澎恰恰收女弟子 拱當台灣第一名伶 2016-04-15 14:17:00
## 4 【驚險有片】BMW撞翻撞公車 後方機車神穿越 2016-04-15 14:12:00
## 5 【唱新聞】詐騙嗎？R.O.C.有CHINA但不是CHINA 2016-04-15 14:00:00
## 6 九巡翁霸坐展售車？ 原因好心酸 2016-04-15 13:52:00
## category view_cnt
## 1 社會 1754
## 2 社會 1076
## 3 娛樂 1749
## 4 社會 11886
## 5 娛樂 11696
## 6 社會 4582# 欄位篩選
head(applenews[, c("category","view_cnt")])## category view_cnt
## 1 社會 1754
## 2 國際 0
## 3 地產 0
## 4 國際 0
## 5 時尚 311
## 6 財經 24head(select(applenews, category, view_cnt))## category view_cnt
## 1 社會 1754
## 2 國際 0
## 3 地產 0
## 4 國際 0
## 5 時尚 311
## 6 財經 24# 比較案例
applenews$view_cnt <- as.integer(applenews$view_cnt)
## R
a <- applenews[applenews$category == '娛樂' & applenews$view_cnt >= 1000, c('title', 'view_cnt')]
head(a[order(a$view_cnt),] )## title view_cnt
## 216 【特企】三角戀無緣啦！風田愛佼哥 不愛宏正 1631
## 252 【痞客邦】回顧經典名片《銀翼殺手》 1681
## 16 澎恰恰收女弟子 拱當台灣第一名伶 1749
## 1176 演唱會XX太難 考倒宇宙人 2240
## 32 白曉燕命案19年了 白冰冰「不能忘」 3329
## 588 【更新】坎城影展公布競賽片單 華語片全摃龜 3382## dplyr
applenews %>% select(title, view_cnt) %>%
filter(view_cnt >= 1000) %>% arrange(view_cnt) %>% head()## title view_cnt
## 1 手機截圖的極限在哪？ 鄉民接力完成 1005
## 2 台電維修變電箱 受百用戶臨時停電 1011
## 3 Q1億級商用不動產僅49億 季減9成 1022
## 4 【新新聞】綠營先推反避稅條款再談公益信託母法 1023
## 5 世大運開幕地又要改？北市：維持台北田徑場 1025
## 6 【愛漂亮】抗空汙！ 保養肌膚靠這個 1028## SQL
'select title, view_cnt from applenews
where view_cnt >= 1000 order by view_cnt limit 6'## [1] "select title, view_cnt from applenews\n where view_cnt >= 1000 order by view_cnt limit 6"dplyr 進階操作
# 資料排序
applenews %>%
select(title, category,view_cnt) %>%
filter(category == "社會") %>%
arrange(view_cnt) %>% head()## title category view_cnt
## 1 憲兵濫搜是否違法 北檢近期將偵結 社會 918
## 2 台電維修變電箱 受百用戶臨時停電 社會 1011
## 3 同居人女兒熟睡 淫男伸狼爪 社會 1076
## 4 中研院化學所實驗室起火 緊急撲滅無人傷亡 社會 1147
## 5 催討債務釀衝突 要小弟持槍討債先被抓 社會 1154
## 6 駕船赴馬祖岸邊採貝 陸男非法入境遭逮 社會 1305applenews %>%
select(title, category,view_cnt) %>%
filter(category == "社會") %>%
arrange(desc(view_cnt)) %>% head()## title category view_cnt
## 1 【更新】正晶揭露新詐騙案 7百萬存款不翼而飛 社會 241842
## 2 貴婦人妻太閒了 她只好和一些網友嘿咻 社會 228203
## 3 【告別小燈泡】爸爸首發聲 「仇恨滋長邪惡」 社會 217096
## 4 長得不像？ 男驗DNA才知2女兒都非親骨肉 社會 214796
## 5 殺警再爆內幕 出牆妻再嫁黑道鄉長目的曝光 社會 172024
## 6 性愛偷拍後 璩美鳳這15年來這樣過 社會 171408## 新增欄位
#mutate
freqsum <- applenews %>% select(view_cnt) %>% sum()
applenews = applenews %>% mutate(portion= view_cnt/freqsum)
## 分組計算
applenews %>% select(category, view_cnt) %>%
group_by(category) %>% summarise(view_cnt = sum(view_cnt, na.rm=TRUE)) %>% arrange(desc(view_cnt))## # A tibble: 16 x 2
## category view_cnt
## <chr> <int>
## 1 社會 5721750
## 2 娛樂 3571005
## 3 生活 3417804
## 4 國際 2485621
## 5 政治 1701980
## 6 體育 1598067
## 7 正妹 672949
## 8 搜奇 668307
## 9 財經 618243
## 10 論壇 312592
## 11 時尚 260499
## 12 地產 220812
## 13 3C 146308
## 14 動物 123287
## 15 國際","LA","SF","NY","US 43627
## 16 國際","SF","US 11163applenews %>% select(category, view_cnt) %>%
group_by(category) %>% summarise(view_cnt = mean(view_cnt, na.rm=TRUE)) %>% arrange(desc(view_cnt))## # A tibble: 16 x 2
## category view_cnt
## <chr> <dbl>
## 1 正妹 84118.625
## 2 娛樂 31601.814
## 3 社會 29493.557
## 4 體育 16821.758
## 5 搜奇 12151.036
## 6 政治 11901.958
## 7 生活 11469.141
## 8 國際 9104.839
## 9 地產 6900.375
## 10 時尚 6855.237
## 11 論壇 5683.491
## 12 財經 5109.446
## 13 國際","LA","SF","NY","US 4847.444
## 14 動物 4741.808
## 15 3C 3954.270
## 16 國際","SF","US 3721.000applenews %>%
group_by(category) %>%
summarise_each(funs(sum), view_cnt, portion) %>%
mutate(portion = portion * 100) %>%
arrange(desc(portion))## # A tibble: 16 x 3
## category view_cnt portion
## <chr> <int> <dbl>
## 1 社會 5721750 26.52149016
## 2 娛樂 3571005 16.55234394
## 3 生活 3417804 15.84222574
## 4 國際 2485621 11.52136547
## 5 政治 1701980 7.88902798
## 6 體育 1598067 7.40736981
## 7 正妹 672949 3.11925727
## 8 搜奇 668307 3.09774064
## 9 財經 618243 2.86568369
## 10 論壇 312592 1.44892833
## 11 時尚 260499 1.20746654
## 12 地產 220812 1.02350912
## 13 3C 146308 0.67816773
## 14 動物 123287 0.57146065
## 15 國際","LA","SF","NY","US 43627 0.20222013
## 16 國際","SF","US 11163 0.05174281applenews %>%
group_by(category) %>%
summarise_each(funs(min(., na.rm=TRUE), max(., na.rm=TRUE)), matches("view_cnt"))## # A tibble: 16 x 3
## category min max
## <chr> <int> <int>
## 1 3C 267 20509
## 2 正妹 7999 344733
## 3 生活 20 132880
## 4 地產 0 80691
## 5 社會 918 241842
## 6 政治 221 83059
## 7 娛樂 1631 299235
## 8 時尚 311 67086
## 9 財經 24 54886
## 10 動物 1211 11753
## 11 國際 0 150825
## 12 國際","LA","SF","NY","US 1034 12893
## 13 國際","SF","US 2875 4171
## 14 搜奇 199 83036
## 15 論壇 275 68208
## 16 體育 523 162907applenews %>%
group_by(category) %>%
summarise_each(funs(min(view_cnt, na.rm=TRUE), max(view_cnt, na.rm=TRUE)), view_cnt)## # A tibble: 16 x 3
## category min max
## <chr> <int> <int>
## 1 3C 267 20509
## 2 正妹 7999 344733
## 3 生活 20 132880
## 4 地產 0 80691
## 5 社會 918 241842
## 6 政治 221 83059
## 7 娛樂 1631 299235
## 8 時尚 311 67086
## 9 財經 24 54886
## 10 動物 1211 11753
## 11 國際 0 150825
## 12 國際","LA","SF","NY","US 1034 12893
## 13 國際","SF","US 2875 4171
## 14 搜奇 199 83036
## 15 論壇 275 68208
## 16 體育 523 162907 applenews %>%
select(category, title) %>%
group_by(category) %>%
summarise_each(funs(n()), title)## # A tibble: 16 x 2
## category title
## <chr> <int>
## 1 3C 37
## 2 正妹 8
## 3 生活 298
## 4 地產 32
## 5 社會 194
## 6 政治 143
## 7 娛樂 113
## 8 時尚 38
## 9 財經 121
## 10 動物 26
## 11 國際 273
## 12 國際","LA","SF","NY","US 9
## 13 國際","SF","US 3
## 14 搜奇 55
## 15 論壇 55
## 16 體育 95 applenews %>%
select(category) %>%
summarise_each(funs(n_distinct(category)))## category
## 1 16 # 使用直方圖顯示新聞點閱總和
cat_stat = applenews %>%
group_by(category) %>%
summarise(view_sum = sum(view_cnt)) %>%
arrange(desc(view_sum))
cat_stat$category = as.factor(cat_stat$category)
barplot(cat_stat$view_sum, names.arg=cat_stat$category, col=cat_stat$category)
# 使用圓餅圖顯示新聞點閱比例
pie(cat_stat$view_sum, label = cat_stat$category)
分析蘋果瀏覽時間
apple_post_by_hour <- applenews %>%
filter(dt >= '2016-04-14' & dt < '2016-04-15') %>%
mutate(hour = format(dt, '%H') ) %>%
group_by(hour) %>%
summarise(news_cnt = length(hour))
plot(apple_post_by_hour, type = 'l', col="blue")