正規表達法

x <- '.list span a.tab12:after{content:"副刊";}:after{content:"qoo";}'

# 非貪婪比對
gsub('.list span a.(.*?):after\\{content:"(.*?)";.*\\}', "\\1 \\2", x)
## [1] "tab12 副刊"
# 貪婪比對
gsub('.list span a.(.*):after\\{content:"(.*)";.*\\}', "\\1 \\2", x)
## [1] "tab12:after{content:\"副刊\";} qoo"
library(rvest)
## Warning: package 'rvest' was built under R version 3.2.5
## Loading required package: xml2
getArticle <- function(ele,category){
  e <- read_html(ele) 
  
  article <- e %>% html_nodes('.trans') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')
  
  title <- e %>% html_nodes('#h1') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')
  
  dt <- e %>% html_nodes('.gggs time') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')
  
  clicked <- e %>% html_nodes('.clicked') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')

  data.frame(title, article, dt, clicked, category, stringsAsFactors = FALSE)
}


df <- getArticle('http://www.appledaily.com.tw/realtimenews/article/finance/20160925/954360/%E3%80%90%E8%B2%A1%E8%A8%8A%E3%80%91%E5%AE%8F%E9%81%94%E9%9B%BBVR%E6%90%8F%E7%BF%BB%E8%BA%AB%E3%80%80%E6%AD%A3%E9%9D%A2%E8%BF%8E%E6%88%B0%E8%87%89%E6%9B%B8%E3%80%81Google', '財經')
View(df)

加上內文資訊

domain <- 'http://www.appledaily.com.tw'
newsurl <- 'http://www.appledaily.com.tw/realtimenews/section/new/'
dfall = data.frame()

rtddt <-  read_html(newsurl) %>% html_nodes('.rtddt')
for (ele in rtddt){
  # 內文連結
  url <- ele %>% 
         html_nodes('a') %>% 
         html_attr('href')
  url <- paste0(domain , url)
  
  # 新聞種類
  category <- ele %>% 
              html_nodes('h2') %>% 
              html_text() %>% 
              iconv(from='UTF-8', to='UTF-8')
  # 取得內文資料
  df <- getArticle(url, category)
  dfall <- rbind(dfall, df)
}
View(dfall)

使用lapply 做改寫

rtddt <-  read_html(newsurl) %>% html_nodes('.rtddt')


getNewsInfo <- function(ele){
  # 內文連結
  url <- ele %>% 
         html_nodes('a') %>% 
         html_attr('href')
  url <- paste0(domain , url)
  
  # 新聞種類
  category <- ele %>% 
              html_nodes('h2') %>% 
              html_text() %>% 
              iconv(from='UTF-8', to='UTF-8')
  # 取得內文資料
  df <- getArticle(url, category)
  df
}

news_list <- lapply(rtddt, getNewsInfo)
applenews <- do.call('rbind', news_list)
View(applenews)

比較for 迴圈與lapply

a <- 3
a <- 5

summation <- function(){
  s = 0
  for(i in 1:10000){
     s = s + i
  }
  s
}
system.time(summation())
##    user  system elapsed 
##    0.02    0.00    0.02
system.time(sum(1:10000))
##    user  system elapsed 
##       0       0       0

清理後面多餘的文字

#原本使用strsplit 做文字分割,為了做文字清除
applenews[1, 'article']
## [1] "\n                                        (更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632\n                    路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝                    \n\t\t\t\t\tgoogletag.cmd.push(function() {googletag.display(\"InRead\");})\n                    googletag.cmd.push(function() {googletag.display('teadstv');})\n                    googletag.cmd.push(function() {googletag.display('goldenhorse');})\n                    googletag.cmd.push(function() {googletag.display('textlink');})\n                    有話要說 投稿「即時論壇」\n                  "
apple.split <- strsplit(applenews[1, 'article'], 'googletag')
apple.split[[1]][1]
## [1] "\n                                        (更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632\n                    路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝                    \n\t\t\t\t\t"
# 使用 %>% 做改寫
applenews[1, 'article'] %>% strsplit('googletag') %>% .[[1]] %>% .[1]
## [1] "\n                                        (更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632\n                    路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝                    \n\t\t\t\t\t"

使用strsplit 分割字串

a <- 'aaa@bbb@ccc'
strsplit(a,'@')
## [[1]]
## [1] "aaa" "bbb" "ccc"
b <- c('aaa@bbb@ccc', 'ddd@eee')
e <- strsplit(b,'@')
e[[1]]
## [1] "aaa" "bbb" "ccc"
e[[2]]
## [1] "ddd" "eee"
list(c(1,2,3), c(2,3))
## [[1]]
## [1] 1 2 3
## 
## [[2]]
## [1] 2 3

使用trimws 去掉前後空白

a <- '     this is a sample string          '
trimws(a)
## [1] "this is a sample string"
trimws(a, 'l')
## [1] "this is a sample string          "
trimws(a, 'left')
## [1] "this is a sample string          "
trimws(a, 'r')
## [1] "     this is a sample string"
trimws(a, 'right')
## [1] "     this is a sample string"

去除文章多餘javascript 與空白

removejs <- applenews[1, 'article'] %>% strsplit('googletag') %>% .[[1]] %>% .[1] 
removejs %>% trimws()
## [1] "(更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632\n                    路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝"
applenews[1, 'article'] %>% strsplit('googletag') %>% .[[1]] %>% .[1] %>% trimws() 
## [1] "(更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632\n                    路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝"

如何將vector合併成字串

paste('hello', 'world')
## [1] "hello world"
?paste
## starting httpd help server ...
##  done
paste('hello', 'world', sep='')
## [1] "helloworld"
paste0('hello', 'world')
## [1] "helloworld"
a <-  'aaa@bbb@ccc'
strsplit(a,'@') %>% .[[1]] %>% paste(collapse = ' ')
## [1] "aaa bbb ccc"
applenews[1, 'article'] %>% strsplit('googletag') %>% .[[1]] %>% .[1] %>% trimws() 
## [1] "(更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632\n                    路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝"
strsplit(applenews[1,"article"],"googletag") %>% .[[1]] %>% .[1] %>% trimws() %>% strsplit('[ \n\r]+') %>% unlist() %>% paste(collapse=' ')
## [1] "(更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632 路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝"

抓出點閱數字

class(applenews[1, 'clicked'])
## [1] "character"
?regex
strsplit(applenews[1, 'clicked'], '人氣\\(') %>% .[[1]] %>% .[2] %>% strsplit('\\)') %>% .[[1]] %>% .[1] %>% as.numeric()
## [1] 39491
gsub('.+\\((\\d+)\\)', '\\1', applenews[1, 'clicked']) 
## [1] "39491"
tab12 <-'.list span a.tab12:after{content:"副刊";}'

tab13 <-'.list span a.tab13:after{content:"3C";letter-spacing:4px;font-size:14px;}'
gsub('\\.list span a\\.(.+?):after\\{content:"(.+?)";\\}', '\\1 \\2',tab12)
## [1] "tab12 副刊"
gsub('\\.list span a\\.(.+?):after\\{content:"(.+?)";\\}', '\\1 \\2',tab13)
## [1] ".list span a.tab13:after{content:\"3C\";letter-spacing:4px;font-size:14px;}"
gsub('\\.list span a\\.(.+?):after\\{content:"(.+?)";.*\\}', '\\1 \\2',tab12)
## [1] "tab12 副刊"
gsub('\\.list span a\\.(.+?):after\\{content:"(.+?)";.*\\}', '\\1 \\2',tab13)
## [1] "tab13 3C"
strsplit(applenews[1, 'clicked'], '[()]') %>% .[[1]] %>% .[2]
## [1] "39491"
a <- 'ABC@123@DEF'
gsub('.*@(.*)@.*', '\\1', a)
## [1] "123"

PCHome 價格萃取

product <- read_html('http://ecapi.pchome.com.tw/ecshop/prodapi/v2/prod/DYAJ81-A9007I9D9-000&store=DYAJ83&fields=Seq,Id,Name,Nick,Store,PreOrdDate,SpeOrdDate,Price,Discount,Pic,Weight,ISBN,Qty,Bonus,isBig,isSpec,isCombine,isDiy,isRecyclable,isCarrier,isMedical,isBigCart,isSnapUp,isDescAndIntroSync,isFoodContents,isHuge,isEnergySubsidy&_callback=jsonp_prod?_callback=jsonp_prod') %>% html_text()

gsub('.*\"P\":(\\d+).*', '\\1', product)
## [1] "28990"
read_html('http://ecapi.pchome.com.tw/ecshop/prodapi/v2/prod/DYAL4B-A9007EY7L-000&fields=Price&_callback=jsonp_prod?_callback=jsonp_prod') %>% html_text()
## [1] "try{jsonp_prod({\"DYAL4B-A9007EY7L-000\":{\"Price\":{\"M\":0,\"P\":26900}}});}catch(e){if(window.console){console.log(e);}}"

新增點閱數字與清理過文章

applenews$view_cnt <- applenews$clicked %>% gsub('.+\\((\\d+)\\)','\\1', .) %>% as.numeric()


applenews$article %>% strsplit('googletag') %>% lapply(., function(e)e[1]) %>% trimws() %>% strsplit('[ \n\r]+') %>%  lapply(., function(e) paste(e, collapse = ' '))
## [[1]]
## [1] "(更新:新增動新聞影片)雲林縣斗六市雲林路三段一家中古車商,突然在大馬路旁賣起用汽、機車零件製成的大型變形金鋼與恐龍,十分吸睛,讓開車、騎車路過的民眾回頭,帶孩子合照。業者江韓彬說,因為從小就喜歡模型、機器人,現在賣中古車也不忘跟興趣結合,由於國內的工資太貴,所以他找韓國、柬甫寨的人工,初步先作了6隻大型的機器人,每隻高約3公尺,關節能活動,售價28.8萬元;恐龍長達9公尺,切割油箱當材料製成,售價40萬元。江韓彬說,大型機器人若以單人施工製造,至少要2個月才能完成,目前已售出2隻,買家主要是賣場、展場,用來當主題或吸引人氣,機器人與恐龍身上都有留孔,可以裝置LED燈,增加聲光效果。這兩天開始展出後,民眾的反應不錯,讓他覺得投資方向正確,更有信心。帶孩子拍照的家長說,「老闆好厲害啊,真有才」,把汽機車零件組成機器人,而且很精緻,不是粗製濫造那種,讓他忍不住停下拍照。(寶智華/雲林報導)出版時間 <U+00A0>1111更新時間 <U+00A0>1632 路過的民眾紛紛停車合照。寶智華攝機器人、恐龍、重機,都是用汽機車零件組成。寶智華攝民眾讚嘆老闆真有才。寶智華攝霸王龍是用油箱切割組合而成。寶智華攝江韓彬將興趣結合事業,樂在其中。寶智華攝"
## 
## [[2]]
## [1] "沒有最扯,只有更扯!輔大心理系處理去年一名女大生酒醉遭學弟性侵,校方處理過程漏洞百出,日前已遭教育部指出多項缺失,沒想到今天有影片外流,今年6月時,輔大心理系邀集全系師生招開討論會,要求被害女大生及其男友到場,眾人公開討論相關事件,更離譜的是現場有人提議是否直播,讓無暇親自到場的師生,也能夠了解討論會內容。不過有關直播討論會的提議,最後在保護當事人的原則下遭到否決,但是現場仍然有人利用手機偷拍討論會過程,更進一步上傳到網路上,也讓討論會中的各種冷血言論,以及對被害人毫無任何同理心的狀況一一遭到揭露。(突發中心呂健豪/新北報導)<U+00A0>"
## 
## [[3]]
## [1] "27歲韓國歌手鄭俊英日前陷入性侵疑雲,經紀公司回應是和前女友間有些誤會,前女友才會到警局報案,雙方都已接受警方調查,已無嫌疑結案。然而今卻爆出他在和前女友發生性關係時還有偷拍影像,他稍早在台灣時間4點終於首爾江南區的飯店舉辦記者會說明,一現身便道歉:「對於造成這麼大的騷動,我向大家致上最深的歉意。」他在記者會上說明,提告女性是他的前女友,雖然2人目前已分手,但仍維持良好的友誼關係。致於性愛影片,他強調「絕對不是偷拍」,他解釋影片是2人年初交往時開玩笑所拍下,也立刻刪除了。但交往沒多久後因為他忙於自己的工作,2人發生爭執,前女友才會拿出偷拍的事情來做為提告的證據。鄭俊英4年前參加選秀節目《我的韓國星》第4季獲季軍,隔年推出迷你專輯《Jung Joon Young Mini Album Vol. 1》正式出道,因出道前便參與綜藝節目《我們結婚了》,以無厘頭的個性受到矚目,目前也是人氣節目《兩天一夜》、《家常飯白老師》的固定班底。鄭俊英前天傳出性侵,經紀公司迅速出面解釋,多數網友認為搶先爆出的媒體《我的韓國星》「未查證就亂貼標籤」,並未出現太多辱罵鄭俊英的留言。然而今爆出他偷拍女友,行為令許多網友表示「不舒服」,湧入《兩天一夜》、《家常飯白老師》官網要求他退出,但截至目前為止製作單位持保留態度,表示暫時不會刪減鄭俊英的畫面。(王怡文/綜合報導)<U+00A0> 鄭俊英今在記者會上道歉。翻攝朝鮮體育報鄭俊英(右)曾參加綜藝節目《我們結婚了》和鄭柔美談虛擬戀,逐漸累積知名度。翻攝medicalworldnews"
## 
## [[4]]
## [1] "買房通常是一般人一生中最大筆的買賣交易,面對房仲多數人都會小心翼翼,《一眼看穿房仲賣屋手法》作者陳泰源,將房仲業6年經歷集結成書,告訴讀者究竟房仲在想什麼,搞懂房仲話術,進而利用房仲替你賣命。陳泰源說,書名很聳動,但內容其實是想告訴讀者,房仲並非都是黑心的,只是真的跟你想的不一樣,使用一些話術是為了讓買賣雙方都舒服,圓滿完成交易。他以車位價格為例,一般人買房時多不會留意,但中間其實暗藏學問,以總價1000萬元、權狀面積15坪的房子來說,假設房仲車位抓200萬元,換算下來單坪約53.3萬元,但如果是抓250萬元,單價就變成50萬元,這時候房仲可能對屋主和買家分別報不同的車位價格,在單價上做文章。陳泰源解釋,在總價一樣的前提下,抓出不同單價讓屋主覺得賣高、買家覺得買低,其實是為了讓買賣雙方都開心,算是一個善意的謊言。而在仲介服務費,一般消費者都會希望「有服務沒有費」,但陳泰源認為,這是可以利用房仲幫你賣命的最佳武器,「仲介服務費最多不過1~2%,但房仲幫忙談到的價格可能不只1~2%,應該把服務費當作獎勵工具,利誘房仲替你賣命。」(陳世峰/台北報導)更多房市快訊請看蘋果地產王粉絲團<U+00A0>"
## 
## [[5]]
## [1] "(新增內容)資深藝人楊忠民昨(24日)凌晨1點多病逝國泰醫院,享壽71歲。他曾是華視的基本演員,在《保鑣》飾演歐陽無敵,也曾是頗受歡迎的秀場名嘴,與高凌風是多年老搭檔,交情深厚。楊忠民20多年前中風,從此息影,之後還患有帕金森氏症,每月靠3000元殘障津貼度日。金友莊凌晨在臉書哀傷寫道:「我們的老朋友忠民哥與世長辭了。」事後透露楊應是因肺癌病逝。台灣演藝人協會理事長楊光友表示,去年農曆年曾去探望楊忠民,當時楊忠民氣色不錯,只是講話較慢。楊忠民生前最後一次公開露面是在高凌風的告別式上,當時他抱病出席送老友最後一程。楊忠民因肺癌過世,他24歲女兒楊喬伊(大喬)是新生代女團「喬紫喬」成員,她今談到父親診斷出癌症約1年,當時父親決定不走化療的治療方式,但有吃藥,他希望能開開心心地把下半輩子過完,她和媽媽也同意爸爸的決定。楊忠民肺癌近期在家臥床,星期一因覺得疼痛劇烈掛急診,楊喬伊在北京工作,前天接到媽媽電話得知爸爸命危,連夜跟團員搭機回台,見爸爸最後一面,他過世時家人都陪在身邊。楊忠民告別式日期目前還未確定,楊喬伊表示希望不要太明顯的宗教儀式,像是誦經或牧師禱告,但還會跟葬儀社討論。據了解,楊喬伊出生後不久,楊忠民就中風,之後罹患帕金森氏症,近年全賴她及媽媽分擔家計。楊忠民生前行動不便,不過看到女兒唱歌跳舞的影片,都會跟著掉淚,用淚水表達感動之情,目前楊喬伊工作全面暫停,專心處理父親後事。王夢麟與楊忠民是相交35年的好友,王夢麟稱讚楊忠民講義氣,待人客氣,很照顧後輩,二人當年在秀場結緣,當時楊忠民很照顧王夢麟,楊忠民中風後,二人也常相約吃飯敘舊,今年初王夢麟還去醫院探望楊忠民,得知好友過世,王夢麟心情低落。(娛樂中心/綜合報導)出版時間:13:25更新時間:16:25 楊忠民(右)曾上節目與王夢麟同台。《壹週刊》資料照片「喬紫喬」成員楊喬伊(左)是楊忠民的女兒。翻攝喬紫喬臉書"
## 
## [[6]]
## [1] "台北市長柯文哲的小內閣團隊,繼法務局長楊芳玲離職後,今教育局長湯志民也請辭,外界關注之後還會有那些官員走人,由於北市議員陳重文日前在議會爆料,下一批離開的官員將是「湯霓陳」,即教育局長湯志民、文化局長謝佩霓,以及原民會主委陳秀惠,如今湯志民已經離開,外界也關注另外兩名官員的動態。無獨有偶,昨北市議員高嘉瑜也在政論節目上透露,北市府恐還有3、4個官員要離開。高嘉瑜今受訪時表示,其實外傳的版本(湯霓陳)都差不多,目前湯志民已經請辭。至於謝佩霓的部分,高嘉瑜指自從謝上任後,幾乎看不到相關文化政績表現,此外,很多台北市的文資保存,也聽不到謝的聲音,顯然謝在這塊領域沒有主導性,因此外界才認為謝可能是下位走人的局長。至於陳秀惠部分,則是因為日前與國民黨原住民立委在議會起衝突,目前也是在市府觀察名單中。高嘉瑜也批評,有些人是來做官的,不是來做事的,如果不是來做事,就應該離開,希望市長認清人才,並盡快做檢討,若局處首長的理念無法與市長配合,也不知道為何還要留在北市府。《蘋果》暫未聯絡上謝佩霓、陳秀惠。台北市長柯文哲今被問及外傳下一批離職的局處首長包括「湯霓陳」,如今湯已請辭,柯對此僅表示這個開玩笑的話就不要當真。(張博亭/台北報導)"
## 
## [[7]]
## [1] "南韓三星電子股價在歷經旗下智慧手機GALAXY Note 7全球召回引發的跌勢後,已出現復甦跡象。三星股價上周五下跌2.9%,但截至上周四連續5個交易日收紅,累計上漲10.44%,是11個月來最大5日漲幅。NH_CA資產管理公司基金經理人朴真浩(音譯)說:「資訊科技業仍是南韓最有前途的產業,我不太在意GALAXY Note 7的電池問題。」三星股價本月12日一度跌至1.465萬韓元,是2012年8月27日以來最低水準,但近來已隨著三星啟動GALAXY Note 7換機計劃而回升。韓聯社報導,截至上周六南韓已有逾半GALAXY Note 7用戶換到新機,僅5%的用戶全額退款,可見南韓人對三星還是很死忠。為加快換機速度,南韓3大電信商門市今大多照常營業。(林文彬/綜合外電報導)"
## 
## [[8]]
## [1] "輔大教授夏林清因處理校園性侵案失當,遭校方暫停社科院院長職務,夏近日又對性侵案數度發表聲明,不斷提及被害人姓氏與系別,律師林俊峰提醒,由於被害人的姓氏較特別,外界可根據姓氏、性別與科系相互勾稽、辨別出被害人身分,夏此舉已有違反《性侵害犯罪防治法》第12條、《性別平等教育法》第22條第2項之虞,恐導致輔大校方遭開罰最重10萬元的罰鍰。律師林俊峰指出,《性侵害犯罪防治法》第12條規定,因職務或業務知悉或持有性侵害被害人姓名、出生年月日、住居所及其他足資識別其身分之資料者,除法律另有規定外,應予保密;另《性別平等教育法》第22條規定,學校調查、處理校園性侵害,對當事人的姓名或其他足以辨識身分之資料,除有調查必要或基於公共安全考量者外,應予保密。林指出,夏林清在聲明中,數度提及輔大某個特定的系、某個特定的姓,由於被害人的姓氏比較特別,加上是個女生,外界根據關鍵字勾稽起來就足以辨別被害人是何人,因此夏已違反《性侵害犯罪防治法》第12條、《性別平等教育法》第22條第2項的規定。由於夏林清代表輔大社科院對外發言,也就是代表輔大校方,依《性別平等教育法》第36條第1項規定,輔大校方可能被處罰1萬元以上、10萬元以下的罰鍰,但基於此法條規定是處罰學校,並不處罰行為人,因此夏林清不會被處罰。(孫友廉/新北報導)【更多新聞,請看《蘋果陪審團》粉絲團】"
## 
## [[9]]
## [1] "英國威廉王子(Prince William)和凱特王妃(Kate Middleton)一家四口今天出訪加拿大,3歲喬治小王子和1歲夏綠蒂公主萌樣超搶鏡,全家精心打扮,藍色dress code看起來十分清爽,兼具柔和與正式感。凱特王妃選穿她最愛的設計師Jenny Packham作品,寶藍色的合身過膝洋裝,輪廓和剪裁都相當簡約,是凱特王妃一貫優雅氣質的滿分穿搭;她為一雙兒女挑的造型也很出色,喬治王子穿著Pepa & Co針織毛衣,搭配格紋襯衫、深藍色短褲和深藍色長統襪與黑色皮革休閒鞋,夏綠蒂公主則穿天空藍的印花小洋裝,頭上還繫了藍色小髮飾。(陳意佳/綜合報導)影片來源:Global News<U+00A0>YOUTUBE 威廉王子(左起)、喬治王子、凱特王妃、夏綠蒂小公主出訪加拿大。歐新社凱特王妃和夏綠蒂公主的藍色母女裝俏皮。美聯社喬治王子穿藍色針織毛衣搭配深藍色短褲和長襪。美聯社"
## 
## [[10]]
## [1] "(新增影片)台北市政府局處首長再少1人。繼北市法務局局長楊芳玲前幾天辭職後,教育局局長湯志民也請辭。北市教育局人員證實此事,並表示湯做到本周(10月1日星期六)。北市府幕僚今也證實此事,並指湯是在上周議會總質詢後向柯遞辭呈,但目前柯尚未批准。據了解,北市府在處理中山國中前教師蕭曉玲遭解聘案時,因與教育局見解不同,市府高層就對局方有意見,但此原因未獲證實。(蔡永彬、張博亭/台北報導)出版:14:43修改:16:19 【想知道更多,一定要看……】一張表看柯市府出走首長數 已達13人湯志民請辭 柯P:明天上班日再處理疑蕭曉玲案爭議,北市教育局局長湯志民請辭。資料照片"
## 
## [[11]]
## [1] "(新增動新聞)中國男星喬任梁16日在上海住處身亡,終年28歲。他抑鬱尋短,粉絲震驚心碎,包括陳喬恩、趙麗穎等星友也悲慟不已,22日赴告別式送他最後一程。昨《Hello!女神》節目播出他錄的最後一集,明顯可見他脖子貼著大片膚色膠帶,以及大熱天仍穿著長袖,難免引人聯想。上月27日和喬任梁一起錄該集的藝人袁成杰,透露喬任梁全程態度配合,「叫你吃點東西,你都說不用,我說你怎麼那麼瘦,你還笑稱因為拉肚子了。我們相約著下次上海再聚。哪知道,這一面,竟是永遠」。粉絲看到節目中他脖子貼著膠帶,懷疑是自殘,即使網路流出他的微信截圖和傷勢照片,當中他自稱拍戲時騎車撞傷,詢問該怎麼去疤,仍有不少網友半信半疑,「那一條一條劃痕真不像撞的」,也有人指責經紀公司讓他帶傷上節目。他在節目中不斷幫女學員加油打氣,頂著高溫帶她們為警察等值勤人員送水致謝,路人要求合照,他來者不拒加送抱抱,還活潑地跟小朋友猜拳、索吻,最後笑著表示:「希望還有機會再來跟你們傳遞元氣。」藏起自己的憂鬱,帶給大家歡笑,令粉絲看了更加心酸。(娛樂中心/綜合報導)出版時間:09:37更新時間:16:17再給自己一次機會自殺防治諮詢安心專線:0800-788995(24小時)<U+00A0>生命線協談專線:1995<U+00A0>張老師專線:1980 喬任梁脖子貼膚色膠帶引發聯想。翻攝騰訊視頻網路曝光疑似喬任梁微信截圖,手臂傷痕累累。翻攝微博疑似喬任梁的微信自稱拍戲騎車撞傷,脖子也有傷勢,詢問該如何去疤。翻攝微博《Hello!女神》昨播出喬任梁錄的最後一集。翻攝騰訊視頻"
## 
## [[12]]
## [1] "松山機場跳電!民航局台北國際航空站表示,松山機場第4島櫃於今天下午2時45分時跳電,幸好馬上啟用備用電源,國際航線未受到影響,國內航線部份航線作業稍有影響,但很快恢復正常。目前松山機場作業正常。至於跳電原因,台北國際航空站說,可能是國內線出境的行李轉盤附近電線走火,導致國際線第5~6島櫃跳電,但國際航線今天下午沒有航班起飛,未受影響,國內航則有少部份航班受影響,起飛時間延誤。台北國際航空站已在搶修中,希望今天即能搶修完畢,恢復供電。長榮航空表示,國際航線未受影響,但子公司立榮航空國內航線,因改人工作業,於下午3時20分後,有6個航班受到影響,約延遲誤10至20分鐘起飛。華信航空說,華信航空辦公室沒電,但櫃檯正常運作,仍可用電腦辦理旅客報到手續。(戴安瑋/台北報導)出版時間:15:56更新時間:16:17 松山機場下午不明原因跳電,台北國際航空站已啟用緊急備用電源。讀者提供松山機場下午不明原因跳電,辦公室都沒電,黑漆漆,天花板上的燈光全滅。讀者提供松山機場下午不明原因跳電,連銀行都沒有電。讀者提供"
## 
## [[13]]
## [1] "(更新:增加影片)第二屆唐獎頒獎典禮今天下午在國父紀念館舉行,首屆唐獎生醫獎得主本庶佑(Tasuku Honjo)、法治獎得主奧比.薩克斯(Albie Sachs),以及名建築師安藤忠雄、2001年諾貝爾獎得主野依良治、1986年諾貝爾獎得主李遠哲等各領域專家學者,皆到場致意。本屆唐獎永續發展獎得主是亞瑟.羅森費爾德(Arthur H. Rosenfeld),生醫獎得主是伊曼紐.夏彭提耶(Emmanuelle Charpentier)、珍妮佛.道納(Jennifer A. Doudna)及張鋒,漢學獎得主狄培理(William Theodore de Bary),法治獎得主路易斯.阿爾布爾(Louise Arbour)。唐獎基金會執行長陳振川表示,唐獎是為了表揚這些得主對於世界文明所做的貢獻,本屆6位得主堪稱為世界的楷模,而成立於2012年的唐獎是由潤泰集團總裁尹衍樑捐助設立,並由李遠哲扛起評選委員會總召集人的工作,匯集海內外學者,遴選出對世界具有創新實質貢獻及影響力的成就者。執行唐獎遴選的中央研究院院長廖俊智表示,唐獎是以世界級的高度與眼界來籌備,是東方的諾貝爾獎,唐獎有世界的涵義,包括提高台灣能見度,本屆推薦人數成長20%-70%,象徵了國際學術界相當看重唐獎的格局與公信力,中央研究院最為我國最高學術研究機關,組成獨立評選委員會評選,也不負所托選出得獎者,讓台灣成為舉世注目的焦點,更促進了世界頂尖學術的交流。(劉嘉韻╱台北報導)出版:15:33更新:16:16 第二屆唐獎頒獎典禮今天下午在國父紀念館舉行。蕭榕攝尹衍樑(左起)、李遠哲,廖俊智。蕭榕攝"
## 
## [[14]]
## [1] "紐約中央車站今天很「台」!台灣觀光局駐紐約辦事處與美國博物館組織Smithsonian聯合主辦的「Celebrate Taiwan台灣日」,結合道地台式藝文與美食特色,在人潮車水馬龍的紐約中央車站熱鬧登場,現場除了有珍珠奶茶、刈包、鹽水雞等美食小吃,還有音樂劇、花式調酒、旅遊觀光介紹、摸彩等活動,吸引超過5000名民眾及遊客湧入,長長的人龍甚至一度排到車站外、爭相體驗台灣道地魅力!除了有好吃的美食小吃攤位,活動現場舞台上表演的也都是台灣年輕一代的新秀,包括主持人是台灣旅遊作家孫偉家及2016美國華裔小姐冠軍余思霆,花式調酒冠軍高永逸、黃于庭,演出音樂劇的「TMTA」吳曉清、莊詠善、徐偉峰、陳詠涵、李阡綸及林明學,新派台菜酒吧餐廳<U+53C1>和院的主廚團隊也在現場示範美食秀,讓民眾眼睛嘴巴都滿足。活動最後也當場抽出兩位幸運民眾,可獲得中華航空、長榮航空台北紐約來回機票。經文處處長徐儷文表示,這次是第四次與Smithsonian舉辦活動,透過跨界文化與觀光藝術做結合,特別有效果,也能吸引大家的目光,對於提升台灣的能見度更是重要,希望今天的活動,使能讓越來越多的紐約主流人士對台灣旅遊觀光有更深入的了解。(丁維莉/紐約報導) 調酒冠軍黃于庭現場表演調酒。丁維莉攝花式調酒冠軍高永逸精彩的表演獲得台下熱烈掌聲。丁維莉攝「Celebrate Taiwan」主持人台灣旅遊作家孫偉家(左)及2016美國華裔小姐冠軍余思霆。丁維莉攝「TMTA」表演的音樂劇,徐偉峰(左)、李阡綸演唱大家耳熟能詳的《雨中即景》、《台北的天空》。丁維莉攝觀光局駐紐約辦事處主任張維庭(左起)、駐紐約台北經文處長徐儷文及Smithsonican副總裁Alan Chu。丁維莉攝紐約中央車站周末人潮熙來攘往,許多遊客紛紛駐足攤位品嚐台式小吃、欣賞表演。丁維莉攝台灣餐廳<U+53C1>和院主廚現場示範美食秀。丁維莉攝"
## 
## [[15]]
## [1] "中華職棒二軍總冠軍賽第4戰,背水一戰的Lamigo桃猿二軍,靠3棒指定打擊張閔勛,9局上敲出2分打點關鍵安打,5比2逆轉勝中信兄弟二軍,雙方戰成2比2平手,將在明天進行最終決戰。中職二軍總冠軍賽,採五戰三勝制,中信二軍前2戰都獲勝,取得聽牌,但桃猿二軍也連追2勝。1局下,中信二軍靠2棒曾陶鎔、3棒詹子賢與6棒蔡益民的接連安打,取得2比0領先。桃猿二軍則在4局上攻佔滿壘,靠4棒楊岱均的左外野安打,先追回1分。中信二軍先發潘韋辰,投5局僅被敲3支安打失1分,表現優異,可惜隊友失守無緣勝投。9局上,面對中信二軍救援投手歐耀宗,率先上場的7棒葉竹軒敲出左外野二壘安打,9棒郭永維、1棒翁克堯接連安打,追平比數;2棒謝炫任獲得保送,形成滿壘,張閔勛敲出中外野安打,帶有2分打點,逆轉戰局,5棒郭修延再補上右外野安打,追加保險分。(王翊<U+4E98>/綜合報導)<U+00A0>"
## 
## [[16]]
## [1] "(更新內文及照片)楊祐寧今早5點就起床,經由泰國曼谷轉機飛清邁,整個人看起來彌漫著濃濃睡意。他跟陳怡蓉曾合作《向前走向愛走》,經紀人Gaby更是促成新人的紅娘,說什麼也非參加婚禮不可,還擔任重要的伴郎。楊祐寧身邊的「閨蜜」都很幸福,陳妍希、林心如、舒淇都在今年完成終身大事,如今換陳怡蓉,他也因此獲封「桃花小天使」名號,但他本人依舊單身,會不會感傷?答案是「還好」,看起來難免有一點。伴娘楊謹華則將於下午搭威航直飛清邁。她和陳怡蓉是在製作人王珮華牽線下成為好友,王珮華說:「我在拍《致,第三者》時,2個都分別說要來探班,我就請她們自己約好再來,促成這段友誼。」楊謹華與男友一起搭機,她表示:「心情蠻緊張的,看到好朋友穿上白紗,不知道會不會感動掉眼淚。」熱戀中的她,被追問是去實習婚禮嗎?她笑說「你看我像工讀生嗎?沒有啦,就是去祝福新人」。(趙大智/清邁報導)出版時間 13:43更新時間 16:15 【想知道更多,一定要看……】陳怡蓉已在紐約登記 明天清邁婚禮砸1200萬陳怡蓉婚前BLUE 伴手禮遭海關扣留損失20萬楊謹華(右)與男友搭機前往清邁。吳詠平攝陳怡蓉(左)和薛博仁明天將在清邁完婚。資料照片"
## 
## [[17]]
## [1] "輔大心理系去年發生校園性侵醜聞,但後續風波延燒至今尚未停息,日前被害女大生才在臉書PO文道歉引起軒然大波,今天又有6月時,輔大心理系針對相關事件召開師生討論會,現場近200人參與,不料,有人偷拍現場並將影片流出,過程中冷血的對談言論,讓所謂討論會簡直淪為被害者的「公審大會」!討論會現場除社科院院長夏林清、被害女大生及其男友外,還聚集近進200名心理系師生,討論過程中被害女大生近乎崩潰地說「傷害已經造成!」沒想到性侵案件卻遭現場工作小組成員質疑有「版本」問題,竟說出「受傷是真的,我相信那是真的,但是這個版本怎麼怎麼還原,也可能你們當時是誤讀啊。」被害女大生聽聞自己的不幸遭遇被質疑有版本問題時,忍不住激動哭喊,卻遭其他人嗆聲:「不要用這種語調好不好?」、「妳尊重一下好不好!」讓整起事件中受傷最重的被害者,瞬間彷彿變成加害者般遭到公審。除此之外,教育部已針對該事件指出輔大處理過程有多項缺失,但是在該場討論會上,時任輔大心理系系主任何東洪竟然大言不慚表示:「還好我們心理系有這個機制」、「今天如果全部交給性平會,人家會說你們輔大心理系怎麼可以直接交給性平會,你們不是一個很進步的系所嗎?」這段影片被轉載到PTT後,過程中的各種冷言冷語被披露在網友眼中,讓許多人痛批:「噁心」、「冷血」,更痛斥工作小組,對被害人連最基本的同情心都沒有,怎麼可能處理好這個事件。(突發中心呂健豪/新北報導) 輔大心理系今年6月召開師生討論會的通知。翻攝畫面"
## 
## [[18]]
## [1] "2016年唐獎漢學獎得主美國哥倫比亞大學榮譽退休教授狄培理,在他70的學術生涯中,編寫過31冊書,也發動了大型翻譯計畫,將東方文學翻譯成英文,其中有多部具有突破性的貢獻與影響,對儒家思想有同情的理解與闡揚,也不乏誠懇的批評,功在西方儒學研究,可謂一代漢學巨擘。今年97歲的狄培理今天未親自出席領獎,由其女布瑞特.狄培理教授代表領獎,並由中研院士王士元頒獎。狄培理透過錄影畫面表示,很榮幸獲得唐獎,而儒學對他個人發展深具意義,儒家經典也呼應了當今世界的問題,有助了解當代政治社會問題的道德面;狄培理也規劃將唐獎獎金的一部分、新台幣1000萬元,交由哥倫比亞大學亞洲與中東委員會主任鄭義靜使用,並延續他終身推動的加深文明對話。美國康乃爾大學亞洲學系教授布瑞特.狄培理說,唐獎不僅是頒獎給得主而已,而是透過得主透過講座與年輕世代交流,父親剛開始研究中國時,世界正在戰亂中,後來在1949年回到哥倫比亞大學並受到鼓勵開始學習儒家思想,透過儒家思想了解了中日韓,他之所以接觸觸到儒學,是拜大時代所賜,不同經典也必須做跨時代、跨文化的溝通與對話。法治獎得主路易斯.阿爾布爾是加拿大奧思古得廳法學院刑事法教授,曾參與聯合國審理前南斯拉夫戰犯、盧安達戰犯所誠意的國際刑事法庭,逐一為法庭逮捕到嫌犯,其中最為人知的就是將當時的塞爾維亞總統米落賽維奇繩之以法;阿爾布爾一生為世界人權平等努力不懈,致力解決與面對當前世界地位社會地位不平等而造成人權失衡問題。今由唐獎第一屆法治講得主奧比薩克思頒獎。(劉嘉韻╱台北報導)"
## 
## [[19]]
## [1] "中國空軍新聞發言人申進科大校今天宣布,空軍出動40多架各型戰機,前出西太平洋遠海訓練,多型戰機成體系飛越宮古海峽,檢驗遠海實戰能力。不過宮古海峽距釣魚島不到200公里,此舉是否向日本展示軍力,引發外界關注。宮古海峽,又稱宮古水道,位於琉球群島的沖繩島與宮古島之間,寬300公里,依《聯合國海洋法公約》屬於國際水道。雖然如此,該海峽因兩邊均為日本領土,距釣魚島不到200公里,是連接東海和西太平洋的主航道,更是中國海軍空軍進出太平洋的必經之路,極具戰略意義。長期以來,宮古海峽、琉球群島及菲律賓群島,被美國列為阻止中國進入西太平洋的第一島鏈。2009年3月,中國海軍艦隊首次穿越宮古海峽,突破第一島鏈直入太平洋,引起日本高度緊張。據澎湃新聞網報導,申進科大校是在華東某機場宣布此消息,並稱軍方同時出動轟炸機、殲擊機在東海防空識別區例行性警巡。他表示,常態化前出西太平洋遠海訓練和警巡東海防空識別區,都是中國空軍維護國家主權、保衛國家安全、保障和平發展的需要。申進科介紹,這次遠海訓練,空軍轟-6K、蘇-30、加油機等多型戰機成體系飛越宮古海峽。當天,40多架各型戰機從部署機場快速完成出動準備,快速飛赴西太平洋開展訓練,實施了偵察預警、海上突擊、空中加油等訓練課題,檢驗空軍部隊遠海實戰能力。 (大陸中心/綜合外電報導)跟上國際脈動,請到蘋果繞著地球爆按讚<U+00A0> 翻攝澎湃新聞網翻攝澎湃新聞網翻攝澎湃新聞網"
## 
## [[20]]
## [1] "2016年唐獎永續發展獎得主是亞瑟.羅森費爾德,曾為美國勞倫斯柏克萊國家實驗室能源科技中心副主任,以及加州大學柏克萊分校土木及環境工程系教授,他畢生從事能源使用效率的開拓型創新,使得全球能源消耗及溫室氣體排放大幅減少,被尊稱為「能源效率教父」。今年90歲的羅森費爾德因健康因素未親自出席領獎,由其門生、現任勞倫斯柏克萊國家實驗室能源科技中心負責人阿胥侯.卡吉爾博士(Dr. Ashok Gadgil) 代為領獎,並由前中研院長李遠哲頒獎。羅森費爾德透過事前錄影方式發表感言表示,獲得唐獎是他莫大榮譽,非常謝謝唐獎基金會體諒他身體不便遠行而由阿胥侯.卡吉爾代表領獎;他費盡力氣在鏡頭前說話,令人動容。第二屆唐獎生技醫藥獎由德國學者伊曼紐.夏彭提耶(Emmanuelle Charpentier)、美國加州柏克萊大學珍妮佛.道納(Jennifer A. Doudna)及麻省理工學院研究員張鋒共同獲得,他們在 CRISPR╱Cas9基因編輯技術上的貢獻,將大幅改革生醫研究與疾病治療的策略,極具治療人類疾病的潛力。中央研究院院士龔行健形容,人體基因就像有30億顆珍珠的項鍊,而基因體編輯功能就像是找出其中壞掉的珍珠並用剪刀將它剪掉,並換上好的珍珠,而三位旋者開發的CRISPR╱Cas9平台,編輯基因體的效率與精準度都是空前的,將能帶動基因體編輯革命。該獎項由2001年諾貝爾獎得主野依良治頒發。夏彭提耶表示,感謝評審委員肯定CRISPR╱Cas9的貢獻,也希望能夠進一步了解生命奧秘,並繼續在微生物學領域貢獻心力。道納表示,今天的成就是集結了研究室中所有同事的力量,唐獎是給大家的肯定,也是認可了基礎研究的重要性。張鋒則說,以謙卑的心情接受這個獎項,而我們是站在巨人的肩膀上來進行研究,唐獎的肯定是集結了過去眾人研究的成果。(劉嘉韻╱台北報導)<U+00A0>"
## 
## [[21]]
## [1] "【更新:新增影片】近況不佳的國民隊,今天終於時來運轉,靠著第3任投手羅培茲(Reynaldo Lopez)臨危受命,撐了5.1局無失分,以6比1力克海盜,再拜大都會以8比10輸給費城人之賜,魔術數字一下子從2減到0,奪下國聯東區冠軍。這是國民隊近5年來第3次拿下國聯東區第一,且剛好是偶數年的2012、14和16年,不過前兩次都在被看好之下,於第一輪的國聯分區季後賽就遭到淘汰。長期在分區位居龍頭的國民,近況並不理想,過去6場就輸了5場,再加上大都會近來表現不錯,魔術數字遞減得非常慢,今天開賽也不是那麼順,先發投手羅斯(Joe Ross)只投了2.2局被敲5安打,失1分就退場,今年表現好壞落差大的菜鳥投手羅培茲在4局起登板,一直投到9局下1出局後才退場,5.1局只被敲3安打,投出2次四壞和6次三振,無失分,不但守住勝利,也減少牛棚消耗量,個人拿下第4勝。國民頭號強打哈潑(Bryce Harper)今天敲勝利打點、包辦2打點,成了勝利英雄之一,但兩度攻下分數都不是靠安打,1局上敲高飛犧牲打,4局下擊出滾地球造成失誤,全隊也沒有全壘打,但敲了12安,靠團隊戰力拿下一場關鍵勝利。(謝岱穎/綜合報導)發稿時間:11:06更新時間:16:08<U+00A0> 國民分區封王,賽後全隊在休息室開香檳慶祝。法新社國民5年內3度奪得國聯東區冠軍。取自國民推特國民沃斯(Jayson Werth)回壘得分,和隊友擊掌慶祝。法新社"
## 
## [[22]]
## [1] "輔仁大學性侵案引發關注,而今年6月時輔大心理系針對該案召開「討論會」,邀請各界師生、被害女同學及男友等參與,結果卻形同「公審」檢討被害人,對被害人造成二度傷害,現在有網友po出了當時會議紀錄的10萬字逐字稿,揭露完整情況。網友在「對不起,我就是站在受害者的位子上」臉書活動中分享了6月7日討論會的逐字稿全文及摘錄版,這場討論會被害女生幾度崩潰,一名女工作小組人員竟還說:「說受傷是真的,我相信那是真的,但是這個版本要怎麼還原也有可能當時你們是誤讀呀!」女學生哭喊,「這個感覺的東西,怎麼會有版本的問題呢?」,沒想到竟被時任輔大心理系主任何東洪回嗆:「不要用這種語調好不好」。而還有網友解析了討論會中的「鬥爭手法」,並標誌出對照全文的頁次,網友批評,何東洪主持討論會明顯偏頗,而之後夏林清和其團隊則連番追打:1.下馬威(P6)2.濫用裁量權(P11-13)3.排除他者(P13-15)4.偷渡資訊(P22-25)5.攻擊代替防守(P35-38)6.技術干擾(P44、51-52、56)7.被攻擊時拖延議程(P56)8.對方鬆口時加緊攻擊(P65-66、76、95、108、141、156、221)9.我方認錯時轉移話題(P68-70)10.黑臉白臉(P81-82、113-119)11.鞏固成果(P97-100、112-114、121-124、129)12.玩弄名詞(P102-106)13.Reset議程(P107)14.Reset對立關係(P133-135)15.貍貓換太子(P139-169、154-155)16.假動作(P173-186)17.上籃得分(P186-197)18.乘勝追擊(P197-224)(即時新聞中心/綜合報導) 【想知道更多,一定要看……】【影片外流】輔大百名師生 冷血公審遭性侵女學生"
## 
## [[23]]
## [1] "(新增影片)26歲「暮光女」克莉絲汀史都華(Kristen Stewart)和17歲莉莉蘿絲(Lily Rose)是精品CHANEL(香奈兒)力捧女星,前晚她倆一起在洛杉磯出席N°5 L'EAU香水上市慶祝活動,莉莉蘿絲是新香代言人,在晚宴上就像主人四處打招呼。她倆應媒體要求合影時,克莉絲汀史都華很有「姊」的大器風範,大方伸手勾著莉莉蘿絲的肩膀拍照,還為她比出大拇指按讚手勢。兩人都是一身CHANEL露腰造型,莉莉蘿絲選穿2016秋冬高級訂製服的金絲縷短版外套,中空露出小蠻腰的範圍遠勝前輩,且她未搭內裡更顯性感,她笑說:「這大概是我最冒險的一次時尚挑戰,但我們巧妙有縫起中間,應該沒問題!」(陳意佳/綜合報導)出版時間:10:15更新時間:16:04 莉莉蘿絲穿CHANEL 2016秋冬高訂服的小外套,中空露蠻腰。翻攝lily rose IG莉莉蘿絲(左)和克莉絲汀史都華前晚一起出席香奈兒香水活動。翻攝fashiontomax IG莉莉蘿絲在香水活動上像主人四處招呼賓客。翻攝thefashioncodebyannie IG莉莉蘿絲代言N°5 L'EAU香水,100ml/5600元。翻攝Lily Rose IG"
## 
## [[24]]
## [1] "中山國中前教師蕭曉玲9年前遭解聘,台北市長柯文哲責成教育局撤銷原解聘處分,還要補發蕭女9年薪水約4、5百萬元。此事引發外界諸多批評,傳北市法務局長楊芳玲、教育局長湯志民接連請辭,也與蕭曉玲復職案有關。(即時新聞中心/綜合報導)原因:蕭曉玲解聘案 北市教育局撤銷原解聘函台北市教育局2016年09月21日宣布,中山國中前教師蕭曉玲之解聘案,教育局基於原處分不當,撤銷原核准解聘函,代表解聘處分自始無效,教育局將協調安置蕭師復職,並補發自2008年解聘以來的本俸。北市中山國中前音樂教師蕭曉玲,因控告時任市長的郝龍斌推行一綱一本政策剝奪教師選書權,後遭校方以接獲投訴教學不力、有損師道為由解聘。蕭雖不服解聘提起的行政訴訟敗訴定讞,但北市廉政會建議撤銷解聘處分,監察院也認為調查程序有瑕疵。爭議:回聘女教師還補百萬薪 柯文哲挨告中山國中前音樂教師蕭曉玲9年前因上課僅播放錄影帶、還辱罵學生等行為,被校方以行為不檢有損師道為由解聘,蕭女雖打行政訴訟爭權益,但最高行政法院仍認定校方解聘有理,判蕭女敗訴定讞,但台北市長柯文哲卻依照監察院的糾正文及市府廉委會的聽證會,責成教育局撤銷原解聘處分,還要補發蕭女9年薪水約4、5百萬元,台北市議員鍾小平認為柯文哲膽大妄為、違法亂紀,2016年09月22日前往台北地檢署控告柯P及台北市教育局長湯志民瀆職、圖利。影響一:姚立明爆料 妻楊芳玲因蕭曉玲案辭官台北市法務局長楊芳玲2016年09月19日請辭並發公開信,自稱很遺憾在許多個案被理解成有礙台北市長柯文哲效率、對抗柯,若不能認同長官理念,政務官本應知所進退。國會觀察基金會董事長姚立明22日爆料,他太太楊芳玲請辭主因,就是中山國中教師蕭曉玲復職案。楊堅持撤銷蕭解聘案要有法律理由,不能用政治手段讓蕭復職,但有人講「妳煩不煩啊」,讓太太決心請辭。影響二:疑蕭曉玲案爭議 北市教育局長湯志民請辭繼北市法務局局長楊芳玲前幾天辭職後,教育局局長湯志民也請辭。北市教育局人員證實此事,並表示湯做到10月1日。北市府幕僚指湯是在上周議會總質詢後向柯遞辭呈,但柯文哲尚未批准。據了解,北市府在處理中山國中前教師蕭曉玲遭解聘案時,因與教育局見解不同,市府高層就對局方有意見,但此原因未獲證實。 【想知道更多,一定要看……】【有片】官員折損快 柯P:郝4年內走24個官疑蕭曉玲案爭議 北市教育局局長湯志民請辭湯志民公開信 稱完成「階段性大工作」"
## 
## [[25]]
## [1] "基市陳姓男子今年2月間,併排停車不聽警員勸導離開,警員要求查看証件準備開單,陳男竟惱羞成怒,像連珠砲式連串侮辱員警「你在臭屁什麼,臭屁、臭屁,我沒看過這麼刁、刁鑽的警察,臭屁什麼」,當場侮辱值勤警員,被檢方依妨害公務罪嫌起訴。法官參考教育部臺灣常用詞辭典,「臭屁」係形容人喜歡誇大炫耀,自以為是的樣子,「刁」係指狡猾、狡詐,「刁鑽」係指奸詐、狡猾,法官認為,陳男大聲接續辱罵警員,足使警員感到難堪與屈辱,判拘役40天,可易科罰金4萬元。(突發中心蔡進男/基隆報導)"
## 
## [[26]]
## [1] "(更新:增加影片)北市府繼法務局長楊芳玲請辭後,今換成教育局長湯志民請辭,媒體今詢問台北市長柯文哲,是否有反省過為何大家都不願意跟他做事,柯表示他有去調資料,前市長郝龍斌在4年內換了24個官員,有時政務官來來去去,甚至升官,像官員有更好的發展,升官去中央,也不能攔截。媒體追問柯,是否覺得自己沒有問題,柯表示這跟離婚一樣,沒有對錯,只有適合或不適合的問題。(張博亭/台北報導)出版:15:47更新:16:02 【想知道更多,一定要看……】官員折損快 柯P:郝4年內走24個官一張表看柯市府出走首長數 已達13人台北市長柯文哲。劉耿豪攝"
## 
## [[27]]
## [1] "(更新:增加影片)台北市政府宣傳世大運的影片爆出抄襲日本樂團MV,遭網友批丟臉。台北市長柯文哲今受訪時表示,他還沒看到影片,會請觀光傳播局去處理。柯並說案子很多,突然被媒體問,他也不曉得。(張博亭/台北報導)出版:15:48更新:16:02 【想知道更多,一定要看……】【更新】北市府世大運影片 爆疑抄日本樂團台北市政府宣傳世大運影片爆出抄襲日本樂團MV。市長柯文哲今說,會請觀傳局處理。劉耿豪攝"
## 
## [[28]]
## [1] "(更新:新增影片)中度颱風梅姬對台灣威脅大,國內蔬菜主要產區的雲林地區,今日菜農一早就忙著做預防性採收蔬菜,林姓菜農表示,葉菜類蔬菜最怕被風颳過,強風吹襲後會呈現委凋,農民怕即將收成的蔬菜損失,做預防性採收,以免颱風來襲,無法收成損失慘重。今天適逢週日西螺果菜市場休市,未進行蔬菜交易,受到風預期心理影響,還是有許多蔬菜盤商直接到產地田間採購批發蔬菜。張姓盤商說,假日傳統市場、黃昏市場蔬菜攤商未休市,零售需求未減,加上颱風進逼,葉菜類蔬菜已經稍漲,預計明天果菜市場開市拍賣,蔬菜交易價格恐會漲更多。今日西螺果菜市場休市日,未進行場內交易,場外葉菜類蔬菜交易價每公斤小白菜32元、青江菜30元、芥藍菜 37元、油菜30元、蚵白35元、空心菜45元至60元間。(李政遠/雲林報導)出版時間:13:07更新時間:16:00 蔬菜盤商直接到產地田間採購批發蔬菜。李政遠攝農民怕即將收成的蔬菜損失,做預防性採收,以免颱風來襲,無法收成損失慘重。農民怕即將收成的蔬菜損失,做預防性採收,以免颱風來襲,無法收成損失慘重。蔬菜盤商直接到產地田間採購批發蔬菜。李政遠攝農民怕即將收成的蔬菜損失,做預防性採收,以免颱風來襲,無法收成損失慘重。"
## 
## [[29]]
## [1] "韓國女子團體EXID今中午抵台,5名成員下機後展現相當親和力,頻對大家揮手致意。有近2百名歌迷在桃園機場二航廈入境大廳迎接,她們一走出入境大門,歌迷呼叫自己偶像名字聲此起彼落,不少人蜂擁而上要拍照,現場秩序頓時大亂,保全人員護著五人沿著牆邊慢慢走機場。(突發中心吳詠平/桃園報導)<U+00A0> EXID抵台。吳詠平攝EXID抵台。吳詠平攝歌迷在入境大廳等候。吳詠平攝現場大批歌迷迎接團員很享受。吳詠平攝被迫沿著牆邊走。吳詠平攝工作人員護著五人前進。吳詠平攝"
## 
## [[30]]
## [1] "(更新:增加影片)台北市教育局長湯志民請辭,外傳是因日前市府同意讓中山國中前教師蕭曉玲復職,但湯與台北市長柯文哲在蕭案的見解不同。媒體今問柯,是否局處長不想與他一起肩負蕭案的政治責任?柯表示,每件事都有正反面,有時候還是要做選擇。媒體追問柯,在法制面與教育面,局長是否因都不挺柯的決定才相繼去職?柯表示也不盡然,這是好問題。媒體問柯文哲,是否堅持蕭案的決定?柯表示,轉型正義真正的目的是防止過去的錯誤在未來發生,而非要懲罰過去的加害者,所以在現行法律下,如果沒有人做錯甚麼事,這個案子(蕭案)要怎麼撤銷,所以長官要做抉擇。由於柯不追究當初打壓蕭曉玲的官員,遭蕭批評「為德不卒」,柯強調自己不贊成循環報復,如果一定要說有人做錯,此案才能平反,那他選擇自己扛起來。媒體又問柯,為了蕭曉玲案折損兩位局長,是否代價有點大,柯表示,有些事情身為市長還是要做決定,如果要純粹用法律來解決政治問題,也沒辦法解決。媒體追問,這樣是否會違反行政程序或有違法的問題?柯表示,之前為蕭案有詢問法務部,法務部回函是請北市府自行擇處。柯表示,湯志民請辭的事,明天上班日再來討論。是否有其他的局處長會離職?柯表示,到時候會作全部的檢討,再一起處理。(張博亭/台北報導)出版:15:46更新:15:59 【想知道更多,一定要看……】一張表看柯市府出走首長數 已達13人疑蕭曉玲案爭議 北市教育局局長湯志民請辭台北市長柯文哲今被問及蕭曉玲案是否折損兩位市府一級官員時說,每件事都有正反面,還是要做選擇。劉耿豪攝北市教育局長湯志民請辭,外傳是與日前北市府同意讓中山國中前教師蕭曉玲復職有關。資料照片"
contentclean <- function(news){
    news %>% 
       strsplit("googletag") %>% 
       .[[1]] %>% 
       .[1]   %>% 
     trimws() %>% 
    strsplit('[ \n\r]+') %>% 
    unlist() %>% 
    paste(collapse=' ')
}

applenews$content_clean <- sapply(applenews$article, contentclean)
class(applenews$article)
## [1] "character"
length(applenews$article)
## [1] 30

轉換時間格式

a <- '2016年09月25日11:26'
b <- '2016年09月25日10:25'
#a - b
class(a)
## [1] "character"
ds <- c("08 18, 2014 12:00")
x <- strptime(ds, "%m %d, %Y %H:%M")

ds2 <- c("07 11, 2014 12:00")
x1 <- strptime(ds2, "%m %d, %Y %H:%M")

x - x1
## Time difference of 38 days
as.numeric(x - x1)
## [1] 38
ds = '2016年04月05日22:47'
x <- strptime(ds, "%Y年%m月%d日%H:%M")
x
## [1] "2016-04-05 22:47:00 CST"
applenews$dt1 <- strptime(applenews$dt, "%Y年%m月%d日%H:%M")

迴圈函式

li <- list(c(1,2,3), c(2,3))

for(ele in li){
  print(sum(ele));
}
## [1] 6
## [1] 5
unlist(lapply(li, sum))
## [1] 6 5
# simplified lapply
sapply(li, sum)
## [1] 6 5

整理30 頁蘋果新聞

# 引用rvest
library(rvest)

# 建立取得內文函式
getArticle <- function(ele,category){
  e <- read_html(ele) 
  
  article <- e %>% html_nodes('.trans') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')
  
  title <- e %>% html_nodes('#h1') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')
  
  dt <- e %>% html_nodes('.gggs time') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')
  
  clicked <- e %>% html_nodes('.clicked') %>% html_text() %>% iconv(from='UTF-8', to='UTF-8')

  data.frame(title, article, dt, clicked, category, stringsAsFactors = FALSE)
}

# 取得新聞Data Frame
getNewsInfo <- function(ele){
  domain <- 'http://www.appledaily.com.tw'
  # 內文連結
  url <- ele %>% 
         html_nodes('a') %>% 
         html_attr('href')
  url <- paste0(domain , url)
  
  # 新聞種類
  category <- ele %>% 
              html_nodes('h2') %>% 
              html_text() %>% 
              iconv(from='UTF-8', to='UTF-8')
  # 取得內文資料
  df <- getArticle(url, category)
  df
}

# 取得每頁清單
getURL <- function(page){
  newsurl <- 'http://www.appledaily.com.tw/realtimenews/section/new/'
  pageurl <- paste0(newsurl, page)
  rtddt   <- read_html(pageurl) %>% html_nodes('.rtddt')
  news_list <- lapply(rtddt, getNewsInfo)
  applenews <- do.call('rbind', news_list)
  applenews
}



news_list <- lapply(1:36, function(e) getURL(e) )

applenews <- do.call('rbind', news_list)
View(applenews)

資料清理

applenews$dt <- strptime(applenews$dt, "%Y年%m月%d日%H:%M")

contentclean <- function(news){
    news %>% 
       strsplit("googletag") %>% 
       .[[1]] %>% 
       .[1]   %>% 
     trimws() %>% 
    strsplit('[ \n\r]+') %>% 
    unlist() %>% 
    paste(collapse=' ')
}

applenews$article <- sapply(applenews$article, contentclean)

applenews$clicked <- applenews$clicked %>% gsub('.+\\((\\d+)\\)','\\1', .) %>% as.numeric()

資料儲存

save(applenews, file = 'applenews.RData')
write.csv(applenews, 'applenews.csv')

簡易資料分析

View(applenews[order(applenews$clicked, decreasing=TRUE), c('title', 'clicked')])

summary(applenews$clicked)

barplot(sort(tapply( applenews$clicked,  factor(applenews$category), sum), decreasing=TRUE))

barplot(sort(tapply( applenews$clicked,  factor(applenews$category), mean), decreasing=TRUE))