---
title: '北九州市5月23日以降の分析 - 新型コロナ(COVID-19)嫌儲対策本部'
description: 北九州市5月23日以降の分析
lang: ja-jp
---
[新型コロナ（COVID-19）嫌儲対策本部](/@covid19-kenmo/SARS-Cov-2/)

# 北九州市5月23日以降の分析

[TOC]

## 情報源

北九州市内の状況（新型コロナウイルス）
https://www.city.kitakyushu.lg.jp/ho-huku/18901209.html
北九州市オープンデータ（csvあり）
https://www.open-governmentdata.org/kitakyushu-city/

## 感染者のネットワーク

https://kenmomd.github.io/covid19/kitakyushu-cluster_from20200523.html

<iframe width="1200" height="1000" src="https://kenmomd.github.io/covid19/kitakyushu-cluster_from20200523.html" frameborder="0"></iframe>

## エピカーブ

以降はやや古いデータ



## 発症から診断・公表までにかかる日数の分布

## rvestでスクレイピング

###北九州市の最新データを取得する
library(rvest)
URL = "https://www.city.kitakyushu.lg.jp/ho-huku/k18901158.html"

html <- read_html(URL)
html
tables <- html %>% html_table()
tables

data_df <- NULL
for (i in 1:length(tables)) {
  data_df <- bind_rows(data_df, tables[[i]])
}
data_df

#Shift-JISでcsvファイルに保存
write.csv(data_df, "./北九州市_最新.csv", fileEncoding = "CP932")
###

###### tags: `Documentation`