詞頻統計案例
f <-file('https://raw.githubusercontent.com/ywchiu/rtibame/master/Data/cnn.txt')
article <-readLines(f)
## Warning in readLines(f): 於 'https://raw.githubusercontent.com/ywchiu/
## rtibame/master/Data/cnn.txt' 找到不完整的最後一列
close(f)
stopwords <- c("a", "about", "above", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also","although","always","am","among", "amongst", "amoungst", "amount", "an", "and", "another", "any","anyhow","anyone","anything","anyway", "anywhere", "are", "around", "as", "at", "back","be","became", "because","become","becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom","but", "by", "call", "can", "cannot", "cant", "co", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven","else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own","part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "system", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thickv", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves", "the")
wordcount <- function(article){
article.split <- strsplit(tolower(article), " |\\)|\\(|\\.|'|\"|,")
article.vec <- unlist(article.split)
tb <- table(article.vec)
tb2 <- tb[! names(tb) %in% stopwords]
tb2 <- tb2[nchar(names(tb2)) >= 2]
sort(tb2, decreasing = TRUE)
}
# install.packages('wordcloud2')
library(wordcloud2)
wordcloud2(wordcount(article))
實價登錄資料分析
library(readr)
lvr_prices <- read_csv("C:/Users/USER/Downloads/lvr_prices_mac.csv")
View(lvr_prices)
class(lvr_prices)
str(lvr_prices)
summary(lvr_prices)
head(lvr_prices)
daan <- lvr_prices[lvr_prices$area == '大安區' , c('area', 'address','total_price','trading_target', 'city_land_type', 'building_type', 'building_sqmeter') ]
a <- c(2,4,1,5, NA)
max(a,na.rm = TRUE)
max(daan$total_price, na.rm=TRUE)
head(daan[order(daan$total_price, decreasing = TRUE), ], 3)
純文字資料處理方式
f <-file('https://raw.githubusercontent.com/ywchiu/rtibame/master/Data/cnn.txt')
article <-readLines(f)
## Warning in readLines(f): 於 'https://raw.githubusercontent.com/ywchiu/
## rtibame/master/Data/cnn.txt' 找到不完整的最後一列
close(f)
CSV處理方式
# get working directory
getwd()
## [1] "C:/Users/USER/Documents"
download.file('https://raw.githubusercontent.com/ywchiu/rtibame/master/Data/purchase.csv', destfile='purchase.csv')
# method 1 (read.csv)
purchase <- read.csv('purchase.csv')
head(purchase)
## X Time Action User Product Quantity Price
## 1 0 2015-07-01 00:00:01 order U312622727 P0006944501 1 1069
## 2 1 2015-07-01 00:00:03 order U239012343 P0006018073 1 1680
## 3 2 2015-07-01 00:00:19 order U10007697373 P0002267974 1 285
## 4 3 2015-07-01 00:01:10 order U296328517 P0016144236 1 550
## 5 4 2015-07-01 00:01:36 order U300884570 P0014516980122 1 249
## 6 5 2015-07-01 00:01:48 order U451050374 P0004134266 1 1780
class(purchase)
## [1] "data.frame"
# method 2 (read_csv from readr)
library(readr)
purchase <- read_csv("purchase.csv", col_types = cols(Time = col_datetime(format = "%Y-%m-%d %H:%M:%S")))
## Warning: Missing column names filled in: 'X1' [1]
#View(purchase)
將資料存檔
data(iris)
write.csv(x =iris, file='iris.csv')
setwd("C:/Users/USER/Desktop")
getwd()
write.csv(x =iris, file='iris.csv')
getwd()
setwd("C:/Users/USER/Desktop")
write.table(x =iris, file='iris.tab', sep='\t')
?write.csv
save(x=iris, file='iris.RData')
rm(iris)
load('iris.RData')
data(anscombe)
fit <- lm(y1 ~ x1, data = anscombe)
save(x = fit, file = 'lm.RData')
load('lm.RData')
predict(fit, data.frame(x1 = 6))
讀取 Excel
library(readxl)
FinancialReport <- read_excel("~/FinancialReport.xlsx")
#View(FinancialReport)
讀取JSON 資料
download.file('https://raw.githubusercontent.com/ywchiu/rtibame/master/Data/fb.json', destfile='fb.json')
#install.packages('jsonlite')
library(jsonlite)
json_data <- fromJSON('fb.json')
json_data
## $data
## from.name from.id
## 1 Tom Brady X12
## 2 Peyton Manning X18
## actions
## 1 http://www.facebook.com/X999/posts/Y999, http://www.facebook.com/X999/posts/Y999, Comment, Like
## 2 http://www.facebook.com/X998/posts/Y998, http://www.facebook.com/X998/posts/Y998, Comment, Like
## updated_time created_time
## 1 2010-08-02T21:27:44+0000 2010-08-02T21:27:44+0000
## 2 2010-08-02T21:27:44+0000 2010-08-02T21:27:44+0000
## message type id
## 1 Looking forward to 2010! status X999_Y999
## 2 Where's my contract? status X998_Y998
讀取XML 資料
#install.packages("XML")
library(XML)
url<-'http://opendata.epa.gov.tw/ws/Data/ATM00698/?$format=xml'
weather <- xmlToDataFrame(url)
head(weather[weather$SiteName == '臺北', ], 3)
使用rvest GET 蘋果頁面
# install.packages('rvest')
library(rvest)
## Loading required package: xml2
##
## Attaching package: 'rvest'
## The following object is masked from 'package:readr':
##
## guess_encoding
newsurl <- 'https://tw.appledaily.com/new/realtime'
apple <- read_html(newsurl)
#as.character(apple)
使用httr POST訊息
library(httr)
url <- 'https://www.thsrc.com.tw/tw/TimeTable/SearchResult'
payload <- list(
StartStation="977abb69-413a-4ccf-a109-0272c24fd490",
EndStation="fbd828d8-b1da-4b06-a3bd-680cdca4d2cd",
SearchDate="2018/03/04",
SearchTime="15:00",
SearchWay="DepartureInMandarin"
)
res<-POST(url, body=payload, encode="form")
res <- POST(url = url, body = payload, encode = 'form')
res
## Response [https://www.thsrc.com.tw/tw/TimeTable/SearchResult]
## Date: 2018-03-04 17:17
## Status: 200
## Content-Type: text/html; charset=utf-8
## Size: 1.52 kB
## <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://w...
## <html xmlns="http://www.w3.org/1999/xhtml">
## <head>
## <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
## <title>高鐵企業網站公告</title>
## <style>
## body { margin:0; padding:0; color:#8A7E6C; text-align:center; font-fami...
## .Page { border-top:6px solid #f08300 ; padding-top:60px;}
## h1 { color:#DA5523; border-bottom:1px solid #eae8e5; padding:0 10px 10p...
## .Info { line-height:1.8; padding:0 10px; text-align:justify;}
## ...
#as.character(res)
library(httr)
url <- 'https://www.thsrc.com.tw/tw/TimeTable/SearchResult'
payload <- list(
StartStation='977abb69-413a-4ccf-a109-0272c24fd490',
EndStation='a7a04c89-900b-4798-95a3-c01c455622f4',
SearchDate='2018/03/20',
SearchTime='11:00',
SearchWay='DepartureInMandarin'
)
res <- POST(url, body = payload, encode = 'form', verbose(), add_headers(`User-Agent` = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.186 Safari/537.36"))
content(res)
## {xml_document}
## <html lang="zh-tw">
## [1] <head>\n<meta http-equiv="Content-Type" content="text/html; charset= ...
## [2] <body class="revision_cn">\r\n\t\r\n\t\r\n<header><div class="revisi ...
## [3] <script src="/Content/Script/moveScroll.js" type="text/javaScript">< ...
## [4] <script src="/Content/Script/init_index.js" type="text/javaScript">< ...
## [5] <script src="/Content/Script/jquery.ellipsis.js" type="text/javaScri ...
## [6] <script src="/Content/Script/script-2.js" type="text/javaScript"></s ...
## [7] <script type="text/javascript">\r\n\r\n var _gaq = _gaq || [];\r\ ...
## [8] <script src="/Content/Script/revision.js" type="text/javaScript"></s ...
#as.character(res)
使用 GET 存取台鐵頁面資訊
library(rvest)
res <- read_html('http://twtraffic.tra.gov.tw/twrail/SearchResult.aspx?searchtype=0&searchdate=2018/03/04&fromstation=1810&tostation=1008&trainclass=%271100%27,%271101%27,%271102%27,%271107%27,%271110%27,%271120%27&fromtime=0600&totime=2359')
#as.character(res)
使用rvest 清理資料
html_page <- '<html>
<body>
<h1 id="title">Hello World</h1>
<a href="#" class="link">This is link1</a>
<a href="# link2" class="link">This is link2</a>
</body>
</html>'
page <- read_html(html_page)
# Based on TagName
html_nodes(page, 'h1')
## {xml_nodeset (1)}
## [1] <h1 id="title">Hello World</h1>
html_text(html_nodes(page, 'h1'))
## [1] "Hello World"
html_nodes(page, 'a')
## {xml_nodeset (2)}
## [1] <a href="#" class="link">This is link1</a>
## [2] <a href="#%20link2" class="link">This is link2</a>
html_text(html_nodes(page, 'a'))
## [1] "This is link1" "This is link2"
# Based on CSS attribute
## ID -> #
html_nodes(page, '#title')
## {xml_nodeset (1)}
## [1] <h1 id="title">Hello World</h1>
## class -> .
html_nodes(page, '.link')
## {xml_nodeset (2)}
## [1] <a href="#" class="link">This is link1</a>
## [2] <a href="#%20link2" class="link">This is link2</a>
# Based on TagName and CSS Attribute
html_nodes(page, 'h1#title')
## {xml_nodeset (1)}
## [1] <h1 id="title">Hello World</h1>
html_nodes(page, 'a.link')
## {xml_nodeset (2)}
## [1] <a href="#" class="link">This is link1</a>
## [2] <a href="#%20link2" class="link">This is link2</a>
html_nodes(page, 'body h1#title')
## {xml_nodeset (1)}
## [1] <h1 id="title">Hello World</h1>
html_nodes(page, 'body a')
## {xml_nodeset (2)}
## [1] <a href="#" class="link">This is link1</a>
## [2] <a href="#%20link2" class="link">This is link2</a>
html_nodes(page, 'body a.link')
## {xml_nodeset (2)}
## [1] <a href="#" class="link">This is link1</a>
## [2] <a href="#%20link2" class="link">This is link2</a>
# Get HREF
html_attr(html_nodes(page, 'body a.link'), 'href')
## [1] "#" "# link2"
# Use Magrittr
html_page %>% read_html() %>% html_nodes('a') %>% html_text()
## [1] "This is link1" "This is link2"
使用Magrittr
library(magrittr)
data(iris)
sum(tail(head(iris), 3)$Sepal.Length)
## [1] 15
iris %>% head() %>% tail(3) %>% .$Sepal.Length %>% sum()
## [1] 15
抓取蘋果列表頁資料
library(rvest)
apple <- 'https://tw.appledaily.com/new/realtime'
rtddt <- read_html(apple) %>% html_nodes('.rtddt a')
#as.character(rtddt[1])
title <- rtddt %>% html_nodes('h1') %>% html_text()
category <- rtddt %>% html_nodes('h2') %>% html_text()
time <- rtddt %>% html_nodes('time') %>% html_text()
url <- rtddt %>% html_attr('href')
applenews <- data.frame(dt = time, title = title, category = category, url = url, stringsAsFactors = FALSE )
?data.frame
## starting httpd help server ... done
head(applenews)
## dt title category
## 1 17:15 嗯嗯後省衛生紙用水沖菊 小心沖出這些毛病(12093) 生活
## 2 17:15 意外！停車位7種售價 難停的最先賣光 地產
## 3 17:12 首聲春雷馬祖現蹤 周五、六冷氣團影響、下...(17655) 生活
## 4 17:12 <U+200B>全球旅人越來越常出國 這國家不意外最會...(4993) 生活
## 5 17:11 林豐德小弟只剩他 與女友攜仿007龐德手...(4518) 社會
## 6 17:11 <U+200B>台灣之星網速猜謎今最終場 加送三星旗艦...(740) 生活
## url
## 1 https://tw.news.appledaily.com/life/realtime/20180304/1306615/
## 2 https://tw.finance.appledaily.com/realtime/20180304/1308095/
## 3 https://tw.news.appledaily.com/life/realtime/20180304/1307874/
## 4 https://tw.news.appledaily.com/life/realtime/20180304/1307929/
## 5 https://tw.news.appledaily.com/local/realtime/20180304/1307940/
## 6 https://tw.news.appledaily.com/life/realtime/20180304/1307912/
class(applenews)
## [1] "data.frame"
str(applenews)
## 'data.frame': 30 obs. of 4 variables:
## $ dt : chr "17:15" "17:15" "17:12" "17:12" ...
## $ title : chr "嗯嗯後省衛生紙用水沖菊 小心沖出這些毛病(12093)" "意外！停車位7種售價 難停的最先賣光" "首聲春雷馬祖現蹤 周五、六冷氣團影響、下...(17655)" "<U+200B>全球旅人越來越常出國 這國家不意外最會...(4993)" ...
## $ category: chr "生活" "地產" "生活" "生活" ...
## $ url : chr "https://tw.news.appledaily.com/life/realtime/20180304/1306615/" "https://tw.finance.appledaily.com/realtime/20180304/1308095/" "https://tw.news.appledaily.com/life/realtime/20180304/1307874/" "https://tw.news.appledaily.com/life/realtime/20180304/1307929/" ...
抓取內文資料
url <- 'https://tw.news.appledaily.com/life/realtime/20180304/1307793/'
getArticle <- function(url){
e <- read_html(url)
title <- e %>% html_nodes('h1') %>%
html_text()
article <- e %>% html_nodes('.ndArticle_margin p') %>% .[1] %>%
html_text()
category <- e %>% html_nodes('.ndgTag .current') %>% .[1] %>%
html_text()
dt <- e %>% html_nodes('.ndArticle_creat') %>%
html_text()
clicked <- e %>% html_nodes('.ndArticle_view') %>%
html_text()
if(length(clicked)==0){
clicked <- 0
}
data.frame(article, title, dt, category, clicked, stringsAsFactors = FALSE)
}
url <- 'https://tw.news.appledaily.com/life/realtime/20180304/1308038/'
getArticle(url)
## article
## 1 環保署與美國國家海洋暨大氣總署合作，首次利用衛星航照查獲伊朗籍「SARVIN」輪去年10月在我國西部海域非法偷排廢污油，今天成功利用該船停泊高雄港時，會同相關單位開罰，並協商該船舶所有人授權台灣船務總代理公司現場繳納罰鍰新台幣150萬元，向國內外宣示台灣維護海域環境的決心。<U+00A0>環保署水保處說，我國《海洋污染防治法》規定，管轄範圍涵蓋至200海浬經濟海域，由於範圍廣大，為監控我國海域情況，委託中央大學太空及遙測研究中心與美國國家海洋暨大氣總署(National Oceanic and Atmospheric Administration ,下稱NOAA)共同簽署「台美建立衛星監測海上油污染技術合作協定」，定期以衛星航照監控我國領海周遭海域是否有異常狀況。<U+00A0>環署說，去年10月9日歐洲Sentinel-1雷達衛星於當天台灣時間上午5時52分33秒的影像，在我西南部高雄外海查有疑似偷排油污情事，因此藉由臺美技術合作協定，請美國NOAA協助判釋確認本案衛星航照，確認衛星所攝船舶於當時確實有持續排放油污情形。<U+00A0>環署說，透過交通部運輸研究所港灣技術研究中心協助，篩選嫌疑船舶的自動識別系統資訊，確認是伊朗籍「SARVIN」輪的船舶軌跡與衛星影像油污軌跡完全疊合，且衛星航照所攝油污軌跡長達60公里都無間斷，並持續排放廢油至少2至3小時，數量推估至少5公噸，因偷排惡性重大，因此依違反我《海污法》第29條規定處以最高罰鍰。<U+00A0>今天上午9時航港局通知環署，掌握伊朗籍「SARVIN」輪將泊靠高雄港，環署立即邀集相關單位於船舶進港時執行嚴格之聯合船舶稽查作業，且請伊朗籍「SARVIN」輪的台灣船務總代理公司，轉達船舶所有人所屬船舶於我國外海有偷排廢油違規事，並且開立罰單，由該代理公司先行繳納，後續船方還要到我國參加8小時環境講習課程。<U+00A0>環署水保處長葉俊宏說，該船油污排放已逾5個月，且是外籍船舶，相關污染追查及罰鍰追償非常不易，但只要在台灣管轄海域有任何違法或污染海洋行為，一旦查獲不論船舶在何處，都會鍥而不捨，找出元兇並予嚴懲，未來也會持續以衛星及遙控無人機等高科技儀器及設備，嚴密監測我國海域是否有船舶在海上非法駁油或偷排廢污油水等違法情事。（洪敏隆／台北報導）<U+00A0>
## title dt
## 1 伊朗船舶偷排污我國海域 今再入高雄港罰150萬 出版時間：2018/03/04 15:27
## category clicked
## 1 生活 4669
取得列表清單
library(rvest)
newsurl <- 'https://tw.appledaily.com/new/realtime'
alinks <- read_html(newsurl) %>% html_nodes('.rtddt a') %>% html_attr('href')
# method 1 ; use rbind
dfall <- data.frame()
for (url in alinks){
print(url)
dfall <- rbind(dfall, getArticle(url))
}
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1306615/"
## [1] "https://tw.finance.appledaily.com/realtime/20180304/1308095/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1307874/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1307929/"
## [1] "https://tw.news.appledaily.com/local/realtime/20180304/1307940/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1307912/"
## [1] "https://tw.news.appledaily.com/local/realtime/20180304/1308082/"
## [1] "https://tw.news.appledaily.com/local/realtime/20180304/1307905/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1308031/"
## [1] "https://tw.news.appledaily.com/local/realtime/20180304/1308088/"
## [1] "https://tw.news.appledaily.com/international/realtime/20180304/1308092/"
## [1] "https://tw.sports.appledaily.com/realtime/20180304/1308098/"
## [1] "https://tw.entertainment.appledaily.com/realtime/20180304/1308080/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1306602/"
## [1] "https://tw.entertainment.appledaily.com/realtime/20180304/1308012/"
## [1] "https://tw.news.appledaily.com/nextmag/realtime/20180304/1308090/"
## [1] "https://tw.news.appledaily.com/forum/realtime/20180304/1308091/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1308096/"
## [1] "https://tw.entertainment.appledaily.com/realtime/20180304/1307927/"
## [1] "https://tw.news.appledaily.com/nextmag/realtime/20180304/1308089/"
## [1] "https://tw.sports.appledaily.com/realtime/20180304/1308025/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1308046/"
## [1] "https://tw.news.appledaily.com/international/realtime/20180304/1308087/"
## [1] "https://tw.news.appledaily.com/local/realtime/20180304/1308085/"
## [1] "https://tw.news.appledaily.com/international/realtime/20180304/1308084/"
## [1] "https://tw.finance.appledaily.com/realtime/20180304/1308071/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1308083/"
## [1] "https://tw.news.appledaily.com/life/realtime/20180304/1308086/"
## [1] "https://tw.finance.appledaily.com/realtime/20180304/1308070/"
## [1] "https://tw.finance.appledaily.com/realtime/20180304/1308037/"
View(dfall)
# method 2 ; use lapply
dflist <- lapply(alinks, function(url) getArticle(url))
# lapply(alinks, getArticle)
df <- do.call(rbind, dflist)
View(df)
library(rvest)
newsurl <- 'https://tw.appledaily.com/new/realtime'
getURL <- function(newsurl){
alinks <- read_html(newsurl) %>% html_nodes('.rtddt a') %>%
html_attr('href')
dflist <- lapply(alinks, function(url) getArticle(url))
df <- do.call(rbind, dflist)
return(df)
}
newsdf <- getURL(newsurl)
head(newsdf)
## article
## 1 國內最近引爆衛生紙獎搶購潮，網路流傳，衛生紙變貴，排便後最好用沖洗的，可以減少衛生紙用量。台安醫院外科部主任糠榮誠說，排便後雖可用自來水將肛門沖乾淨，但沖洗後應立即把肛門用擦乾，並切忌過度沖洗，一旦過度沖洗，或沖後未擦乾，恐出現肛門搔癢、感染等問題。<U+00A0>糠榮誠表示，肛門四周皮膚角質層很薄，過度清洗或擦拭，易使四周神經變得敏感而出現搔癢症狀，常使人愈癢愈抓、愈抓愈癢，還可能造成皮膚角質層破損，增加細菌、黴菌、濕疹等感染風險。<U+00A0>糠榮誠說，若要避免肛門搔癢，建議排便後用水沖洗，且應避免過度清潔，沖洗後則務必擦乾，另最好不要使用含有芳香劑的濕紙巾擦拭肛門，以防皮膚過敏。（沈能元／台北報導）出版：06:30修改：17:15<U+00A0>想知道更多，一定要看……【健康問蘋果】平躺側睡哪個優？ 其實好睡關鍵是這【蘋果查真假】空污吃老薑可清肺？食藥署：無科學根據
## 2 有買房經驗的人，一定會對地下室車位的計價方式有疑問，不論車位好不好停，同一層就是均一價，不太有商量空間，近期台中有建案打破業界的慣例，依停車便利度、周邊空間大小做價格設計，同一層平面車位居然有7種售價，是全台創舉。<U+00A0>地下室車位價格的公平性，數十年來都是建立在「先來後到」的基礎上，均一價，先買先挑，因此建案銷售到中後期，剩的多是難停、卡卡的位子，有的甚至賣不掉，也有購屋者抱怨不公平。台中市聖揚開發於是做了改變，新案「采揚晴空」車位價格多元、合理化。<U+00A0>聖揚開發總經理陳正哲表示，以該案地下2層來說，都是2.5×5.5米大車位，均價140萬元，不過範圍卻從110~150萬元都有，共7種價，「以同樣倒車入庫的標準，停車後駕駛座開門空間大的，就貴一些，夾在2車中間的，就便宜些，牆角車位最多停2次可停好，最便宜。」<U+00A0>車位鄰近車道口或電梯，以及車位正後方的空間大小，也都影響該案車位售價。陳正哲坦言，為了車位合理價的設計，當初傷透腦筋，結果難停的車位反而先賣完，「因為買小戶型的對車位較不在意，後來買的，也有人很驚訝還有好的車位可挑。」（洪子恩／台中報導）想了解更多中部房市訊息，請到蘋果地產王粉絲團<U+00A0>
## 3 （新增影片）由於對流雲系發展旺盛，部分地區午後下起雷雨，中央氣象局指出，馬祖氣象站在今天下午2時觀測到今年第一聲春雷；另預計周四鋒面之後南下的冷空氣，中央氣象局原預估強度為東北季風或大陸冷氣團，根據中央氣象局上午最新預報資料，這波冷空氣強度為大陸冷氣團，周五到下周日清晨將受大陸冷氣團影響，預計北部最低溫下探11℃，台北市估13℃，下周日白天起逐步冷氣團減弱、各地回溫，但下周日清晨可能有輻射冷卻效應，請民眾注意氣溫的大幅變化。民眾出遊把握今天好天氣！中央氣象局指出，今天氣與昨類似，各地都多雲到晴的穩定天氣為主，明下半天鋒面通過，各地都有降雨機率，局部地區有較大雨勢，明晚起東北季風南下，周二、三與周五、六則有兩波冷空氣接力報到，周五、六北部最低溫下探11℃，周四、五在玉山、合歡山則有機會降雪。<U+00A0>昨大武因為焚風出現35.8℃高溫，氣象局指出，今天仍是多雲到晴的穩定天氣，僅東半部和各地山區有零星降雨，白天各地依舊溫暖，甚至有點熱，各地高溫普遍在26℃以上，中南部及宜蘭高溫估可達31、32℃。<U+00A0>不過，明下半天鋒面通過，氣象局預測，各地降雨機率提高，北部及東半部有短暫陣雨或雷雨，中部平地及南部山區也有局部短暫陣雨，並有局部較大雨勢發生機率，明天白天各地高溫普遍仍有29至31℃，台東更要注意焚風，明晚上起隨東北季風增強，北台灣天氣將明顯轉涼。<U+00A0>氣象局認為，周二、三受到東北季風影響，除中南部平地為多雲，其他地區有短暫雨，北台灣低溫降至15、16℃，白天高溫也僅20℃上下，整天都有涼意，其他地方溫度也會下降，不過幅度較小，高溫約23到28℃，低溫則在17到20℃。<U+00A0>周四因另一鋒面通過，氣象局分析，各地都有降雨機率，隨後有一波更強冷空氣南下，強度估可達大陸冷氣團，周五、六受其影響，中部以北及東北部低溫將下探至11到14℃，南部及花東則約16、17℃，預計周五將由濕轉乾，各地降雨逐漸減少，周六各地大多為多雲到晴的天氣，只剩花東有零星短暫雨，預計周四、五玉山、合歡山有機會再降雪。（許敏溶／台北報導）發稿時間：09:06更新時間：17:12想知道更多，一定要看……西半部空氣品質連三天很糟糕 24測站達不良等級北部昨一天空污紅害站日數 破去年整年記錄今空品依舊不佳 彭啟明：明午後變天轉涼看了這則新聞的人，也看了……明傍晚氣溫驟降 吳德榮：周四起冷如冬、恐探10℃5歲男童賞燈「酷酷嫂」 沒想到爸媽也有事新北18縣市強風特報 明起防8至10級強陣風
## 4 信用卡組織Visa近日發表「Visa 2017年全球旅遊意向調查」，發現全球旅人旅程越來越短，但出國次數越來越多，其中美洲旅人在次數領先，去年平均達3.2次，堪稱最常出國旅遊地區，日本則取代美國成為全球旅客最青睞目的地，全球平均每次旅行支出1793美元（約5.3萬台幣），沙烏地阿拉伯旅客更花費逾15.6萬元台幣，是最會花錢旅客。Visa調查27市場出境旅客旅行意向，發現旅程越來越短，全球平均旅程為8晚，較2013年平均10晚的時間短，但是出國次數越來越多，，從過去2年的平均2.5次提高到未來兩年的平均2.7次。而美洲過去兩年也在旅行次數方面領先，去年的平均次數達3.2次。調查也發現11%的全球旅客在旅程中會同時拜訪多個國家，而過去兩年中，日本已取代美國，成為全球旅客最青睞的旅遊目的地，其次為美國和澳洲。但調查認為與各區域的旅客偏好有關，亞太旅客特別喜愛日本旅遊，美國旅客更偏好歐洲，但墨西哥、加拿大和日本仍為美國旅客嚮往的目的地。在旅遊支出上，全球旅客每次旅行的平均支出為1,793美元，和預計下一趟旅程預計花費2443美元相比，成長36.25％，其中亞太地區增幅最大，由1677美元，提升至2443美元，增長45.68%，傳統認為高消費的歐洲地區，前次旅行1174美元，和下次預計花費1409美元，反在調查主要地區墊底。其中非洲與中東花費2666美元最高，其中前一次國際旅行支出金額最高的國家為沙烏地阿拉伯，達5333美元，其次為科威特3143美元和中國的2988美元，澳洲和阿拉伯聯合大公國也分別有2745美元、2722美元。但是如詢問下次國際旅行預計支出金額，雖沙烏地拉拉伯仍有4800美元居冠，但較前次減少，中國則以4034美元躍居第二，澳洲、美國分別達3529美元、3500美元分居三、四名。（朱正庭／台北報導）
## 5 （更新：增加照片）前十大槍擊要犯林豐德的小弟「貴仔」劉民治（46歲，槍砲、毒品前科），涉嫌擁槍販毒，高市警局刑警大隊獲報，4天前荷槍實彈前往屏東市攻堅，當場逮劉男及洪姓女友（29歲，毒品前枓），起出007電影《空降危機》詹姆斯龐德配用手槍PX900及金牛座手槍各一把，全案依違反《槍砲彈藥刀械管制條例》、《毒品危害防制條例》送辦。劉男僅坦承持有及吸食毒品，否認販賣，也否認持有槍枝，逃亡近2年的劉男說，終於可以不用再過躲躲藏藏、神經兮兮的日子，劉也感嘆地說：「整個不法組織就只剩下他還沒進去，這次也認栽了。」因劉的洪姓女友也因毒品案通緝要入監服刑1年，兩人被送辦後立即發監執行。高市刑大偵二隊專員陳仁正說，5分隊同仁3個月前接獲線報，前十大槍擊要犯林豐德的小弟「貴仔」劉男，擁槍自重，還涉嫌販賣海洛因及安非他命毒品，平日活躍於高屏一帶，在屏東市自由路、竹田鄉及高雄市三民區都設有據點，立即展開跟監並與屏東縣警方聯手偵辦。陳仁正指出，貴仔約從17歲就跟隨林豐德，是林的小弟之一，1997年林豐德與警方在屏東萬大橋發生激烈槍戰落網，同年貴仔染上毒癮，日後常與毒品為伍，無法自拔，2016年因毒品案被判刑3年2月，同年也因一件槍枝有其指紋，雙案遭通緝。警方獲悉劉男與女友藏匿在屏東市自由路一棟大樓10樓租屋處，上周四228當天荷槍實彈前往攻堅，先在地下停車場逮女友，再上樓破門衝入逮劉男，現場查獲毒品海洛因22包84公克、安毒11包139公克、現金20萬元，隨即押往竹田鄉一處三合院，在一輛老舊機車置物箱內取出德制手槍PX900一把、金牛座手槍一把、子彈34顆。（林錫淵、楊適吾／高雄報導）出版時間 12:12更新時間 17:11看了這則新聞的人，也看了……【撞擊瞬間】情侶公路狂飆閃車失控 一頭撞爛加油機【有片】大肚山遭霸路械鬥 路人嚇到吃手手急閃家暴夫駕車衝海前 丟7百要釣客報警
## 6 配合台灣燈會活動，台灣之星今晚將舉辦最後一場「網速猜謎」，只要猜中最接近嘉義燈會現場台灣之星即時網速，且不重複的數字，每場次贏家就可獲得3組現已絕版的「月租$188終身4G上網吃到飽」，同時今最後一場還加碼加送Samsung S8+手機。另外只要參加民眾都可以獲得肯德基新春超霸雙享餐 65折優惠券，還有週週送好禮抽獎資格，台灣之星用戶還可額外獲得1百元通話金。台灣之星表示，今天將是網速猜謎最後一天，晚間9時10分將進行最後一場次，首次參與網速猜謎遊戲民眾需先到台灣之星臉書官方粉絲團或官網燈會活動頁，進入Facebook Messengericon，即可啟動Chatbot聊天機器人，依指示點選「立刻猜網速」選項，輸入欲下注的台灣之星嘉義燈會現場即時網速，數字最多至小數點第二位，如：120.31。業者表示，遊戲限時5分鐘，在燈會現場民眾可透過台灣之星在嘉義燈會品牌主燈大螢幕即時直播目前最多人下注動態數字排行，不在現場民眾也可透過台灣之星官網燈會活動頁得知最新下注戰況，下注結束前都可選擇更改或保留下注數字，遊戲時間到，會以全台最接近實際測速值，且不重複的唯一網速數字為贏家。業者表示，從2月18日起就推出該網速猜謎活動，活動上線至今已吸引超過10萬人次參與。（朱正庭／台北報導）
## title
## 1 嗯嗯後省衛生紙用水沖菊 小心沖出這些毛病
## 2 意外！停車位7種售價 難停的最先賣光
## 3 首聲春雷馬祖現蹤 周五、六冷氣團影響、下探11℃
## 4 <U+200B>全球旅人越來越常出國 這國家不意外最會花錢
## 5 林豐德小弟只剩他 與女友攜仿007龐德手槍落網
## 6 <U+200B>台灣之星網速猜謎今最終場 加送三星旗艦機
## dt category clicked
## 1 出版時間：2018/03/04 17:15 生活 12093
## 2 出版時間：2018/03/04 17:15 財經地產 0
## 3 出版時間：2018/03/04 17:12 生活 17655
## 4 出版時間：2018/03/04 17:12 生活 4993
## 5 出版時間：2018/03/04 17:11 社會 4518
## 6 出版時間：2018/03/04 17:11 生活 740
rbind
a <- data.frame(a=1,b=2)
b <- data.frame(a=3,b=4)
df <- data.frame()
df <- rbind(df,a)
df <- rbind(df,b)
df
## a b
## 1 1 2
## 2 3 4
lapply
x <- list(c(1,2,3,4), c(5,6,7,8))
# recommend using lapply
lapply(x, sum)
## [[1]]
## [1] 10
##
## [[2]]
## [1] 26
# not recommend
for (li in x){
print(sum(li))
}
## [1] 10
## [1] 26
lapply(x, function(e) e[1] )
## [[1]]
## [1] 1
##
## [[2]]
## [1] 5
將三頁蘋果新聞整理成一DataFrame
?paste
# method 1 ; using for loop
for(i in 1:30){
print(paste0('https://tw.appledaily.com/new/realtime/',i) )
}
## [1] "https://tw.appledaily.com/new/realtime/1"
## [1] "https://tw.appledaily.com/new/realtime/2"
## [1] "https://tw.appledaily.com/new/realtime/3"
## [1] "https://tw.appledaily.com/new/realtime/4"
## [1] "https://tw.appledaily.com/new/realtime/5"
## [1] "https://tw.appledaily.com/new/realtime/6"
## [1] "https://tw.appledaily.com/new/realtime/7"
## [1] "https://tw.appledaily.com/new/realtime/8"
## [1] "https://tw.appledaily.com/new/realtime/9"
## [1] "https://tw.appledaily.com/new/realtime/10"
## [1] "https://tw.appledaily.com/new/realtime/11"
## [1] "https://tw.appledaily.com/new/realtime/12"
## [1] "https://tw.appledaily.com/new/realtime/13"
## [1] "https://tw.appledaily.com/new/realtime/14"
## [1] "https://tw.appledaily.com/new/realtime/15"
## [1] "https://tw.appledaily.com/new/realtime/16"
## [1] "https://tw.appledaily.com/new/realtime/17"
## [1] "https://tw.appledaily.com/new/realtime/18"
## [1] "https://tw.appledaily.com/new/realtime/19"
## [1] "https://tw.appledaily.com/new/realtime/20"
## [1] "https://tw.appledaily.com/new/realtime/21"
## [1] "https://tw.appledaily.com/new/realtime/22"
## [1] "https://tw.appledaily.com/new/realtime/23"
## [1] "https://tw.appledaily.com/new/realtime/24"
## [1] "https://tw.appledaily.com/new/realtime/25"
## [1] "https://tw.appledaily.com/new/realtime/26"
## [1] "https://tw.appledaily.com/new/realtime/27"
## [1] "https://tw.appledaily.com/new/realtime/28"
## [1] "https://tw.appledaily.com/new/realtime/29"
## [1] "https://tw.appledaily.com/new/realtime/30"
# method 2 ; using lapply
lapply(1:30, function(i) paste0('https://tw.appledaily.com/new/realtime/',i))
## [[1]]
## [1] "https://tw.appledaily.com/new/realtime/1"
##
## [[2]]
## [1] "https://tw.appledaily.com/new/realtime/2"
##
## [[3]]
## [1] "https://tw.appledaily.com/new/realtime/3"
##
## [[4]]
## [1] "https://tw.appledaily.com/new/realtime/4"
##
## [[5]]
## [1] "https://tw.appledaily.com/new/realtime/5"
##
## [[6]]
## [1] "https://tw.appledaily.com/new/realtime/6"
##
## [[7]]
## [1] "https://tw.appledaily.com/new/realtime/7"
##
## [[8]]
## [1] "https://tw.appledaily.com/new/realtime/8"
##
## [[9]]
## [1] "https://tw.appledaily.com/new/realtime/9"
##
## [[10]]
## [1] "https://tw.appledaily.com/new/realtime/10"
##
## [[11]]
## [1] "https://tw.appledaily.com/new/realtime/11"
##
## [[12]]
## [1] "https://tw.appledaily.com/new/realtime/12"
##
## [[13]]
## [1] "https://tw.appledaily.com/new/realtime/13"
##
## [[14]]
## [1] "https://tw.appledaily.com/new/realtime/14"
##
## [[15]]
## [1] "https://tw.appledaily.com/new/realtime/15"
##
## [[16]]
## [1] "https://tw.appledaily.com/new/realtime/16"
##
## [[17]]
## [1] "https://tw.appledaily.com/new/realtime/17"
##
## [[18]]
## [1] "https://tw.appledaily.com/new/realtime/18"
##
## [[19]]
## [1] "https://tw.appledaily.com/new/realtime/19"
##
## [[20]]
## [1] "https://tw.appledaily.com/new/realtime/20"
##
## [[21]]
## [1] "https://tw.appledaily.com/new/realtime/21"
##
## [[22]]
## [1] "https://tw.appledaily.com/new/realtime/22"
##
## [[23]]
## [1] "https://tw.appledaily.com/new/realtime/23"
##
## [[24]]
## [1] "https://tw.appledaily.com/new/realtime/24"
##
## [[25]]
## [1] "https://tw.appledaily.com/new/realtime/25"
##
## [[26]]
## [1] "https://tw.appledaily.com/new/realtime/26"
##
## [[27]]
## [1] "https://tw.appledaily.com/new/realtime/27"
##
## [[28]]
## [1] "https://tw.appledaily.com/new/realtime/28"
##
## [[29]]
## [1] "https://tw.appledaily.com/new/realtime/29"
##
## [[30]]
## [1] "https://tw.appledaily.com/new/realtime/30"
dfall <- lapply(1:3, function(i) getURL(paste0('https://tw.appledaily.com/new/realtime/',i)))
appledf <- do.call('rbind', dfall)
#View(appledf)
# convert chr data to int
appledf$clicked <- as.integer(appledf$clicked )
# convert chr data to factor
appledf$category <- as.factor(appledf$category )
# remove 出版時間
#?sub
appledf$dt <- sub('出版時間：', '' ,appledf$dt)
appledf$dt <- as.POSIXct(appledf$dt)
head(appledf)
## article
## 1 （新增影片）由於對流雲系發展旺盛，部分地區午後下起雷雨，中央氣象局指出，馬祖氣象站在今天下午2時觀測到今年第一聲春雷；另預計周四鋒面之後南下的冷空氣，中央氣象局原預估強度為東北季風或大陸冷氣團，根據中央氣象局上午最新預報資料，這波冷空氣強度為大陸冷氣團，周五到下周日清晨將受大陸冷氣團影響，預計北部最低溫下探11℃，台北市估13℃，下周日白天起逐步冷氣團減弱、各地回溫，但下周日清晨可能有輻射冷卻效應，請民眾注意氣溫的大幅變化。民眾出遊把握今天好天氣！中央氣象局指出，今天氣與昨類似，各地都多雲到晴的穩定天氣為主，明下半天鋒面通過，各地都有降雨機率，局部地區有較大雨勢，明晚起東北季風南下，周二、三與周五、六則有兩波冷空氣接力報到，周五、六北部最低溫下探11℃，周四、五在玉山、合歡山則有機會降雪。<U+00A0>昨大武因為焚風出現35.8℃高溫，氣象局指出，今天仍是多雲到晴的穩定天氣，僅東半部和各地山區有零星降雨，白天各地依舊溫暖，甚至有點熱，各地高溫普遍在26℃以上，中南部及宜蘭高溫估可達31、32℃。<U+00A0>不過，明下半天鋒面通過，氣象局預測，各地降雨機率提高，北部及東半部有短暫陣雨或雷雨，中部平地及南部山區也有局部短暫陣雨，並有局部較大雨勢發生機率，明天白天各地高溫普遍仍有29至31℃，台東更要注意焚風，明晚上起隨東北季風增強，北台灣天氣將明顯轉涼。<U+00A0>氣象局認為，周二、三受到東北季風影響，除中南部平地為多雲，其他地區有短暫雨，北台灣低溫降至15、16℃，白天高溫也僅20℃上下，整天都有涼意，其他地方溫度也會下降，不過幅度較小，高溫約23到28℃，低溫則在17到20℃。<U+00A0>周四因另一鋒面通過，氣象局分析，各地都有降雨機率，隨後有一波更強冷空氣南下，強度估可達大陸冷氣團，周五、六受其影響，中部以北及東北部低溫將下探至11到14℃，南部及花東則約16、17℃，預計周五將由濕轉乾，各地降雨逐漸減少，周六各地大多為多雲到晴的天氣，只剩花東有零星短暫雨，預計周四、五玉山、合歡山有機會再降雪。（許敏溶／台北報導）發稿時間：09:06更新時間：17:12想知道更多，一定要看……西半部空氣品質連三天很糟糕 24測站達不良等級北部昨一天空污紅害站日數 破去年整年記錄今空品依舊不佳 彭啟明：明午後變天轉涼看了這則新聞的人，也看了……明傍晚氣溫驟降 吳德榮：周四起冷如冬、恐探10℃5歲男童賞燈「酷酷嫂」 沒想到爸媽也有事新北18縣市強風特報 明起防8至10級強陣風
## 2 信用卡組織Visa近日發表「Visa 2017年全球旅遊意向調查」，發現全球旅人旅程越來越短，但出國次數越來越多，其中美洲旅人在次數領先，去年平均達3.2次，堪稱最常出國旅遊地區，日本則取代美國成為全球旅客最青睞目的地，全球平均每次旅行支出1793美元（約5.3萬台幣），沙烏地阿拉伯旅客更花費逾15.6萬元台幣，是最會花錢旅客。Visa調查27市場出境旅客旅行意向，發現旅程越來越短，全球平均旅程為8晚，較2013年平均10晚的時間短，但是出國次數越來越多，，從過去2年的平均2.5次提高到未來兩年的平均2.7次。而美洲過去兩年也在旅行次數方面領先，去年的平均次數達3.2次。調查也發現11%的全球旅客在旅程中會同時拜訪多個國家，而過去兩年中，日本已取代美國，成為全球旅客最青睞的旅遊目的地，其次為美國和澳洲。但調查認為與各區域的旅客偏好有關，亞太旅客特別喜愛日本旅遊，美國旅客更偏好歐洲，但墨西哥、加拿大和日本仍為美國旅客嚮往的目的地。在旅遊支出上，全球旅客每次旅行的平均支出為1,793美元，和預計下一趟旅程預計花費2443美元相比，成長36.25％，其中亞太地區增幅最大，由1677美元，提升至2443美元，增長45.68%，傳統認為高消費的歐洲地區，前次旅行1174美元，和下次預計花費1409美元，反在調查主要地區墊底。其中非洲與中東花費2666美元最高，其中前一次國際旅行支出金額最高的國家為沙烏地阿拉伯，達5333美元，其次為科威特3143美元和中國的2988美元，澳洲和阿拉伯聯合大公國也分別有2745美元、2722美元。但是如詢問下次國際旅行預計支出金額，雖沙烏地拉拉伯仍有4800美元居冠，但較前次減少，中國則以4034美元躍居第二，澳洲、美國分別達3529美元、3500美元分居三、四名。（朱正庭／台北報導）
## 3 （更新：增加照片）前十大槍擊要犯林豐德的小弟「貴仔」劉民治（46歲，槍砲、毒品前科），涉嫌擁槍販毒，高市警局刑警大隊獲報，4天前荷槍實彈前往屏東市攻堅，當場逮劉男及洪姓女友（29歲，毒品前枓），起出007電影《空降危機》詹姆斯龐德配用手槍PX900及金牛座手槍各一把，全案依違反《槍砲彈藥刀械管制條例》、《毒品危害防制條例》送辦。劉男僅坦承持有及吸食毒品，否認販賣，也否認持有槍枝，逃亡近2年的劉男說，終於可以不用再過躲躲藏藏、神經兮兮的日子，劉也感嘆地說：「整個不法組織就只剩下他還沒進去，這次也認栽了。」因劉的洪姓女友也因毒品案通緝要入監服刑1年，兩人被送辦後立即發監執行。高市刑大偵二隊專員陳仁正說，5分隊同仁3個月前接獲線報，前十大槍擊要犯林豐德的小弟「貴仔」劉男，擁槍自重，還涉嫌販賣海洛因及安非他命毒品，平日活躍於高屏一帶，在屏東市自由路、竹田鄉及高雄市三民區都設有據點，立即展開跟監並與屏東縣警方聯手偵辦。陳仁正指出，貴仔約從17歲就跟隨林豐德，是林的小弟之一，1997年林豐德與警方在屏東萬大橋發生激烈槍戰落網，同年貴仔染上毒癮，日後常與毒品為伍，無法自拔，2016年因毒品案被判刑3年2月，同年也因一件槍枝有其指紋，雙案遭通緝。警方獲悉劉男與女友藏匿在屏東市自由路一棟大樓10樓租屋處，上周四228當天荷槍實彈前往攻堅，先在地下停車場逮女友，再上樓破門衝入逮劉男，現場查獲毒品海洛因22包84公克、安毒11包139公克、現金20萬元，隨即押往竹田鄉一處三合院，在一輛老舊機車置物箱內取出德制手槍PX900一把、金牛座手槍一把、子彈34顆。（林錫淵、楊適吾／高雄報導）出版時間 12:12更新時間 17:11看了這則新聞的人，也看了……【撞擊瞬間】情侶公路狂飆閃車失控 一頭撞爛加油機【有片】大肚山遭霸路械鬥 路人嚇到吃手手急閃家暴夫駕車衝海前 丟7百要釣客報警
## 4 配合台灣燈會活動，台灣之星今晚將舉辦最後一場「網速猜謎」，只要猜中最接近嘉義燈會現場台灣之星即時網速，且不重複的數字，每場次贏家就可獲得3組現已絕版的「月租$188終身4G上網吃到飽」，同時今最後一場還加碼加送Samsung S8+手機。另外只要參加民眾都可以獲得肯德基新春超霸雙享餐 65折優惠券，還有週週送好禮抽獎資格，台灣之星用戶還可額外獲得1百元通話金。台灣之星表示，今天將是網速猜謎最後一天，晚間9時10分將進行最後一場次，首次參與網速猜謎遊戲民眾需先到台灣之星臉書官方粉絲團或官網燈會活動頁，進入Facebook Messengericon，即可啟動Chatbot聊天機器人，依指示點選「立刻猜網速」選項，輸入欲下注的台灣之星嘉義燈會現場即時網速，數字最多至小數點第二位，如：120.31。業者表示，遊戲限時5分鐘，在燈會現場民眾可透過台灣之星在嘉義燈會品牌主燈大螢幕即時直播目前最多人下注動態數字排行，不在現場民眾也可透過台灣之星官網燈會活動頁得知最新下注戰況，下注結束前都可選擇更改或保留下注數字，遊戲時間到，會以全台最接近實際測速值，且不重複的唯一網速數字為贏家。業者表示，從2月18日起就推出該網速猜謎活動，活動上線至今已吸引超過10萬人次參與。（朱正庭／台北報導）
## 5 新竹市1名唐姓婦人（59歲）病逝遭鼠啃咬，因家庭髒亂引起社會關注。新竹市社會處長陳雪慧今下午率多名社工、環保人員及熱心志工，一起為郭宅清理資源回收品。不過清理過程中，不時傳出女跳腳尖叫「有老鼠、蟑螂」，甚至屋內有還有大蛛蜘，形成一個「食物鍊」，四處逃竄，讓人不禁疑問這種環境怎能住人？<U+00A0>新竹市社會處長帶領多名社工、環保人員及志工，共十多人下午開始幫堆滿垃圾的郭宅進行清理，搬出大批垃圾如桌椅、廢棄的鐵製品，清理時不時有老鼠、蟑螂竄出，不斷傳出尖叫聲。而志工也發現屋內至少有5隻貓，目前已聯絡動保團體將貓送去結紮。<U+00A0>環保局出動１輛３點５噸的貨車搬運這些資源回收品，才清完一樓不到一半就堆了滿滿的一台貨車，相當驚人。環保人員估計，２樓更難處理，裡面充滿狗大便、雜物，預估三層樓至少要十輛車次，才能運完。死者女兒不斷向協助他們的人致謝，表示媽媽生前都不願人家來清掉這些廢棄物，媽媽死了，她也能清理這些髒亂的物品。（突發中心楊勝裕／新竹報導）想知道更多，一定要看……【人間悲劇】婦病亡慘遭鼠啃食 孫兒驚恐目睹慘狀老母死遭鼠啃 意外揭露這家人的悲情6身障兒女目睹亡母慘狀 社工環保局聯手助這家看了這則新聞的人，也看了……林豐德小弟只剩他 與女友攜仿007龐德手槍落網休旅車自撞路樹翻車 女駕駛脫困送醫彰化惡火奪2命 市場生意和交通大亂
## 6 (更新：新增過音影片)昨天一對男女開車行經台一線屏東枋山路段時，為了要閃避前車，疑因方向盤急轉失控，高速撞進加油站，引擎冒出濃煙，猛烈的撞擊力道把加油機都撞爛，車上男女雙雙骨折送醫，汽車撞擊加油機的畫面今曝光，業主也準備向肇事者索賠。<U+00A0>監視器畫面顯示，昨天（3日）晚間7時14分，汽車以高速撞進加油站，讓一部加油機及加油亭無一倖免，甚至加油機整台被撞爛，汽車再撞擊加油站的柱子後停下，可見撞擊力道猛烈，員工眼見汽車引擎冒出濃煙，趕緊拿滅火器噴灑，通報警消救援。警方調查，調閱行車紀錄器發現，陳男(26歲)開車搭載楊姓女友(25歲)行駛在台一線的枋山南下路段，沿路車速並不慢，也不斷變換車道，疑因為車速快反應不及，為了閃避前面一部要迴轉的車輛，向右撞進加油站。酒測值為零，送醫後沒有生命危險。加油站業者表示，昨晚還好當時沒有員工在該部機組加油，也還好加油機下方設置的緊急閥發揮作用，未讓油槽內的汽油噴出，被撞壞的加油機已經無法使用，初步估算至少損失20萬元以上。（李卉婷／屏東報導）發稿時間：11：15更新時間：17：09
## title
## 1 首聲春雷馬祖現蹤 周五、六冷氣團影響、下探11℃
## 2 <U+200B>全球旅人越來越常出國 這國家不意外最會花錢
## 3 林豐德小弟只剩他 與女友攜仿007龐德手槍落網
## 4 <U+200B>台灣之星網速猜謎今最終場 加送三星旗艦機
## 5 【驚訝片】遭鼠啃屍住家堆滿垃圾 市府清理10卡車載不完
## 6 【撞擊瞬間】情侶公路狂飆閃車失控 一頭撞爛加油機
## dt category clicked
## 1 2018-03-04 17:12:00 生活 17655
## 2 2018-03-04 17:12:00 生活 4993
## 3 2018-03-04 17:11:00 社會 4518
## 4 2018-03-04 17:11:00 生活 740
## 5 2018-03-04 17:10:00 社會 0
## 6 2018-03-04 17:09:00 社會 7174
# Save data into csv
write.csv(x=appledf, file = 'applenews.csv')
head(appledf[order(appledf$clicked, decreasing = TRUE),],3)
## article
## 53 （更新：案情）新竹市堪稱全台富裕且幸福的城市，不過仍有社會陰暗處需要關心。1名身心障礙的唐姓婦人（59歲）帶著3名身障兒女（大女兒39歲，兩名弟弟分別為38、36歲）及3孫（長孫15歲、二孫女14歲、小孫子9歲）租屋同住市區，一家人都撿拾資源回收，導致全家住在堆滿垃圾的屋子，只是昨天上午孫女起床時，竟目睹奶奶躺在沙發上，臉部還被老鼠啃食，驚嚇之餘大叫「媽媽」，女兒衝出門外發現母親已無氣息，打電話請警方及消防隊協助送醫，警消趕抵現場，發現唐婦已身亡，身旁還有老鼠竄出，讓警消直呼「這樣的環境怎能住人！」新竹地檢檢察官蔡宜臻偕同法醫楊敏昇到醫院相驗屍體，初步研判死者是因病自然死亡、無他殺之虞。但令檢警大吃一驚的是，死者與家人住在環境髒亂慘不忍睹的地方，家裡養了數隻貓，是專門來抓老鼠的，不過死者的臉部竟有遭老鼠啃咬的嚴重傷勢，仔細詢問死者女兒家庭狀況，才知道死者家人7人全部是身心障礙，死者女兒當場大哭向檢察官下跪說「我也不知道如何處理」，令在場檢警面面相覷。檢警事後準備找相關單位協助處理死者遺體，但卻遇假日新竹市社工放假，臨時找不到社福單位配合的殯儀業者於假日派出協助，讓警方急到如熱鍋螞蟻，幸好熱心的殯儀人員先將死者遺體送往新竹市立殯儀館冰存，社會處事後才緊急派員前去協助。<U+00A0>法醫楊敏昇在臉書沉痛地寫了下「心情隨筆」，敘述這家人的慘狀及無奈。他寫道「今天下午處理一件命案，死者臉部遭到老鼠嚴重啃咬，現場環境髒亂到慘不忍睹，更讓檢警驚訝的是、全家7口皆為智障人士」；當筆錄進行到一半，檢察官溫柔的問死者女兒：「妳要怎麼處理媽媽的後事」，沒想到她竟然跪了下來嚎啕大哭：「我也不知道怎麼處理」～我相信她也沒能力處理。<U+00A0>對此，社會處表示，針對非上班時間有完整的通報及聯繫機制，並均有提供給警政及醫療等相關單位，包含安排八支值勤手機分別由八位同仁24小時備勤。昨日處理單位未聯繫社工的值勤手機，以致社工並未接獲相關單位通報，純屬誤會，也將加強橫向聯繫。而值勤社工若接獲通報，必於第一時間前往所在地協助處理。《蘋果》前去探訪死者住家，發現1家7口全住在髒亂不堪的3層樓房，《蘋果》進入一房內是間客廳，雖供奉數尊神明，但死者躺著的沙發破爛、滿是油垢，地板也都是油膩的黑垢，還傳出陣陣的酸臭味。走進內部除了要先踏過沙發外，腳下踩的都是資源回收品，電鍋、電風扇等資源回收物布滿全室，天花板結滿蛛蜘網，家裡養了數隻貓咪及還有狗兒，家裡環境惡劣，欲走上2、3樓查看，死者女兒表示弟弟房間更是亂，她們已無法整理。<U+00A0>而早上起床目睹奶奶躺在沙發死亡，還被老鼠啃咬，3個孫兒都心有餘悸，受到驚嚇，3個小朋友不敢回家，逗留在公園，深怕回家勾起那一幕驚人噁心的畫面。受到驚嚇的孫女說：「奶奶被啃食的畫面，讓她覺得害怕噁心，直問媽媽怎麼會這樣。」雖然死者女兒不斷安撫，但深夜一家人仍跑出門，坐在公園裡坐在蹺蹺板上，不知如何處理後事。<U+00A0>死者女兒表示，身上僅剩一千多元，雖有社會補助，全家7人每月領7萬多元，扣掉房租有6萬多元可以用，平時跟2個精障弟弟外出撿資源回收，賺幾百元補貼家用，不過扣掉醫療費、生活費所剩無幾，只能堅強帶著2個弟弟及子女活下去。<U+00A0>而她也希望社會善心人士可以幫忙整理家裡環境，因為母親生前愛撿拾資源回收回品，也不讓人丟棄，因此讓家裡一團亂，企盼大家可以伸出援手幫幫他們，同時也可以幫她找到阿姨，讓阿姨能回家來看媽媽的最後一面。（突發中心楊勝裕／新竹報導）發稿時間：0800更新時間：1619想知道更多，一定要看……6身障兒女目睹亡母慘狀 社工環保局聯手助這家老母死遭鼠啃 意外揭露這家人的悲情【驚訝片】遭鼠啃屍住家堆滿垃圾 市府清理10卡車載不完 看了這則新聞的人，也看了……【加油片】帶弱智兒沿街賣地瓜 單親媽盼有自己的家烤地瓜成受助婦生路 社福團體：入門容易彰化服飾店凌晨惡火 老闆與8旬母喪命
## 51 （更新：動新聞、網友意見）成立20年的法醫研究所，在國內重大刑案發生時，透過解剖、化驗等工作，往往能讓屍體說出真相，所內編制的法醫病理組、血清證物組及毒物化學組，分別負責相驗解剖、DNA檢驗、驗毒等工作，協助檢警破案。一度震驚社會的五子命案，也在法醫研究所的協助下，於2015年確認狠心殺害5名子女的劉志勤和林真米夫婦已自殺身亡，讓檢方將這起懸案畫下句點。案發現場：發生在2006年的花蓮五子命案，因為父母劉志勤、林真米人間蒸發而留下不少謎團，直到2015年6月10日，花蓮吉安鄉1名獵人上山打獵，驚見2具白骨，法醫取回檢體化驗，在短短5天內，就證實這兩具白骨就是劉志勤、林真米夫婦，讓沉寂許久的五子命案，再被眾人想起……。<U+00A0>雖然案發現場的服裝、眼鏡都和劉志勤林真米當年現蹤、被監視器拍下的身影相符，但辦案人員不敢大意，仍需透過法醫鑑識，確認骨骸身分。<U+00A0>關鍵一：白骨風化時間至少5到10年<U+00A0>法醫蕭開平說，由於五子命案留下太多疑點，當初得知發現白骨，「第一時間想到的，就是這對夫婦」，他因而趕往花蓮取回骨骸，但風化時間已久，骨骸非常脆弱，「尤其是體積較大的脊椎骨或股骨，一摸就脆掉了」，據此研判死亡時間約為5到10年以上。<U+00A0>關鍵二：DNA吻合<U+00A0>由於骨骸易碎，法醫小心翼翼地透過海綿、報紙包覆骨骸，運送回位於新北市的法醫研究所化驗，取出死者牙根，透過洗淨、磨碎等程序，萃取出DNA，透過儀器分析，證實死者身分就是劉志勤和林真米夫婦。<U+00A0>關鍵三：骨骸驗出農藥成分<U+00A0>由於現場除了塑膠袋打成的繩結，還留有農藥瓶，法醫懷疑兩人服毒再上吊自殺，因而由毒化組接手驗毒。<U+00A0>不過因檢體只剩骨頭，毒化組無法依往例使用血液、尿液、胃內容物等檢體化驗，只能罕見將骨骸透過研缽磨成骨粉，再進行毒藥物篩驗，利用液相層析串聯質譜儀，在兩人骨骸中驗出微量農藥納乃得，證實兩人早在2006年五子命案發生不久，就服毒自殺。真相：<U+00A0>整起案件發生在2006年9月，劉志勤家中傳出惡臭，警方破門發現，劉家5名子女陳屍浴室，頭部套上黑色塑膠袋，手腳被鐵絲綑綁，其中3人眼部和嘴巴被膠帶封住，脖子也有勒痕，現場還留下一張字條和千元大鈔，分別以潦草字跡寫著「遭綁控制中 孩子危及 請速報警 SOS」、「25號遭綁 控制 危及 請速報警」。<U+00A0>由於劉志勤夫婦也在案發後行蹤成謎，檢警一度懷疑夫婦倆遭人綁票，但調閱監視畫面發現，劉志勤在案發前曾到五金行買尖嘴鉗，林真米也刻意幫孩子請假，夫婦倆座車事後也出現在花蓮吉安鄉火車站，專案小組因而排除夫婦倆遭綁。<U+00A0>再加上多年後，刑警成功還原在劉家找到的相機記憶卡，驚見劉志勤狠心綑綁、殺害自己孩子的畫面，夫婦倆的骨骸也被發現，專案小組研判，夫婦倆狠心殘殺自己的孩子，再服毒身亡。但兩人的犯案動機究竟為何，至今仍是謎團。(賴又嘉／綜合報導)網友看完後熱議討論兩夫妻為何要殺子，多數網友稱：「我始終不相信孩子是父母殺的，也不信他們是自殺，檢警太草率了事了」，另有網友指：「之前看報導, 比較合理的報導是, 劉男個性很怪異, 禁止子女跟鄰居&同學往來，個性霸道, 主導了這次的殺子案, 脅迫了劉妻配合殺子。」【更多新聞，請看《蘋果陪審團》粉絲團】<U+00A0>出版時間 00:09更新時間 16:22想知道更多，一定要看……【法眼緝兇5】外遇夫為小三殺妻女 法醫這3點戳破詭計【法眼緝兇6】他剁頭殺妹放血 菜刀上的秘密成鐵證
## 77 （更新：新增影片）網路酸民「住海邊」！<U+00A0>一名辣媽在臉書社團爆廢公社二館PO文，她直言：「廢二本來就是隨人怎麼玩，曬恩愛、曬美腿、曬食物、曬寵物。」<U+00A0>對於有網友酸她「喜歡曬女兒」，辣媽回嗆：「不然是要叫我在這邊曬棉被嗎？」<U+00A0>她火力全開，還加碼補充，「若你沒東西曬，我建議…可以曬你娘」，獲網友激賞。<U+00A0>當然也有識相的，見到女兒的美腿先喊聲「岳母大人」，結果岳母絲毫不領情，回「女兒穩定交往中，不要去騷擾」。（王嘉慶／綜合報導）出版時間 11：40更新時間 15：45看了這則新聞的人，也看了……「龐然大物」醉臥車上 網友嘆：該撿屍還是報警【變身片】地表最強「幸福肥」 反差到女友認不出來
## title dt
## 53 【人間悲劇】婦病亡慘遭鼠啃食 孫兒驚恐目睹慘狀 2018-03-04 16:19:00
## 51 【法眼緝兇4】恐怖夫妻殺5子 白骨指出真兇 2018-03-04 16:22:00
## 77 【有片】上網曬女兒被酸民虧 辣媽霸氣回擊「曬你娘」 2018-03-04 15:45:00
## category clicked
## 53 社會 303699
## 51 社會 161940
## 77 生活 88894
docall
a.frame <-data.frame(x=c(1,2,3), b =c(2,3,4))
b.frame <-data.frame(x=c(3,3,2), b =c(1,2,3))
#b.frame
do.call("rbind", list(a.frame, b.frame))
## x b
## 1 1 2
## 2 2 3
## 3 3 4
## 4 3 1
## 5 3 2
## 6 2 3