Rでtimeline (Coronavirus)

日本時間　2020.02.23 07:35 現在

BNO News:Tracking coronavirus: Map, data and timelineのtimelineから日本関係の部分を取り出す。

新型コロナウィルスのまとめサイトとしても「BNO News」はおすすめです。
このサイトのtimelineから日本関係の部分を取り出すRコードを考えてみました。

(注意)データの時間はGMT グリニッジ標準時 です。JST 日本標準時との時差は 9時間です。

Data : BNO News:Tracking coronavirus: Map, data and timeline

Diamond Princess関係以外の日本のTimeline

GMT グリニッジ標準時 UTC+0000とJST 日本標準時 UTC+0900時差は 9時間。

Diamond Princess関係のTimeline

GMT グリニッジ標準時 UTC+0000とJST 日本標準時 UTC+0900時差は 9時間。

Rコード

library(rvest)
# read_html() : 必要なHTMLを読み込み
html<-read_html("https://bnonews.com/index.php/2020/02/the-latest-coronavirus-cases/")
# html_nodes() : 必要なノードを取得
node1 <- html_nodes(html, "h4")
# html_text(), html_attr()など : 必要な情報を取得
text1<- html_text(node1)
date<- text1[grep("^[0-9]", text1)]
#date
node2<-html_nodes(html, "ul")
node2<-node2[grep("^<ul>\n<li>([0-9][0-9]:[0-9][0-9]|Total)",node2)]
y<- html_text(html_nodes(node2[1],"li"))
x<-list(c(date[1], y))
for (i in 2:length(date)){
  y<- html_text(html_nodes(node2[i],"li"))
  x<- c(x,list(c(date[i], y)))
}
#x
#Japanを含むニュース
jdat<-NULL
for ( i in 1:length(x)){
# 月日
dat<-unlist(x[[i]])
# Japan関係
y<-dat[grep("Japan",dat)]
jdat<-c(jdat,paste(dat[1],y))
}
jdat<-gsub("\\(Source\\)","",jdat)
# Diamond Princess関係とそれ以外
# Diamond Princess関係
DiPri<- jdat[grep("(Diamond Princess | cruise ship)",jdat)]
# それ以外(invert= T)
jpn<- jdat[grep("(Diamond Princess | cruise ship)",jdat,invert= T)]
#
knitr::kable(jpn,row.names =F)
#
knitr::kable(DiPri,row.names =F)

古いtimeline(出力は下にあります)

library("rvest")
# read_html() : 必要なHTMLを読み込み
html<-read_html("https://bnonews.com/index.php/2020/01/timeline-coronavirus-epidemic/")
# 以下は上と同じ
# html_nodes() : 必要なノードを取得
node1 <- html_nodes(html, "h4")
# html_text(), html_attr()など : 必要な情報を取得
text1<- html_text(node1)
date<- text1[grep("^[0-9]", text1)]
#date
node2<-html_nodes(html, "ul")
node2<-node2[grep("^<ul>\n<li>([0-9][0-9]:[0-9][0-9]|Total)",node2)]
y<- html_text(html_nodes(node2[1],"li"))
x<-list(c(date[1], y))
for (i in 2:length(date)){
  y<- html_text(html_nodes(node2[i],"li"))
  x<- c(x,list(c(date[i], y)))
}
#x
#Japanを含むニュース
jdat<-NULL
for ( i in 1:length(x)){
# 月日
dat<-unlist(x[[i]])
# Japan関係
y<-dat[grep("Japan",dat)]
jdat<-c(jdat,paste(dat[1],y))
}
jdat<-gsub("\\(Source\\)","",jdat)
# Diamond Princess関係とそれ以外
# Diamond Princess関係
DiPri<- jdat[grep("(Diamond Princess | cruise ship)",jdat)]
# それ以外(invert= T)
jpn<- jdat[grep("(Diamond Princess | cruise ship)",jdat,invert= T)]
#
knitr::kable(jpn,row.names =F)
#
knitr::kable(DiPri,row.names =F)