Skip to content

Instantly share code, notes, and snippets.

@yufree

yufree/nCov2019.r

Created February 27, 2020 15:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yufree/9b923c418e18c2df04779dc5aadd53e6 to your computer and use it in GitHub Desktop.
Save yufree/9b923c418e18c2df04779dc5aadd53e6 to your computer and use it in GitHub Desktop.
Download ZIP
nCov2019 data
Raw
nCov2019.r
df <- read.csv('https://raw.githubusercontent.com/BlankerL/DXY-2019-nCoV-Data/master/csv/DXYArea.csv')
bj <- df[df$provinceName == '北京市',]
plot(bj$province_confirmedCount~as.Date(bj$updateTime))
sh <- df[df$provinceName == '上海市',]
plot(sh$province_confirmedCount~as.Date(sh$updateTime))
sz <- df[df$cityName == '深圳',]
plot(sz$city_confirmedCount~as.Date(sz$updateTime))
gz <- df[df$cityName == '广州',]
plot(gz$city_confirmedCount~as.Date(gz$updateTime))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment