Created
April 4, 2020 05:06
-
-
Save swsoyee/40682d8ff0e3eda5f75e41b256ce7a28 to your computer and use it in GitHub Desktop.
尝试用点图做cluster，
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| signateDetail<- fread(paste0(DATA_PATH, 'SIGNATE COVID-2019 Dataset - 罹患者.csv'), header = T) | |
| signateDetail$公表日 <- as.Date(signateDetail$公表日) | |
| signateDetail[, 受診都道府県 := gsub('県', '', 受診都道府県)] | |
| signateDetail[, 受診都道府県 := gsub('府', '', 受診都道府県)] | |
| signateDetail[, 受診都道府県 := gsub('東京都', '東京', 受診都道府県)] | |
| signateDetail[, regionId := paste0(都道府県コード, '-', 都道府県別罹患者No)] | |
| oldYear <- c('0 - 9', '10 - 19', '20 - 29', '30 - 39', '40 - 49', '50 - 59', '60 - 69', '70 - 79', '80 - 89', '-90', '非公表', '', NA) | |
| newYear <- c(10, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 100, 100) | |
| names(oldYear) <- newYear | |
| for (i in oldYear) { | |
| signateDetail[年代 == i, 年代 := names(oldYear[i == oldYear][1])] | |
| } | |
| signateDetail$ageSize <- as.numeric(signateDetail$年代) | |
| signateDetail <- signateDetail[order(公表日, 性別, 都道府県別罹患者No)] | |
| dt <- signateDetail[受診都道府県 == '東京'] | |
| dt <- dt[, rank := order(性別), by = 公表日] | |
| tmp <- dt[, .(公表日, 性別, 都道府県別罹患者No, rank)] | |
| dt %>% | |
| group_by(性別) %>% | |
| e_chart(公表日) %>% | |
| e_scatter( | |
| rank, | |
| ageSize, scale = log1p, symbol_size = 3) %>% | |
| e_tooltip() %>% | |
| e_grid(left = '5%', right = '5%', top = '5%', bottom = '15%') %>% | |
| e_y_axis(show = F) %>% | |
| e_x_axis(splitLine = list(show = F)) %>% | |
| e_toolbox_feature(feature = 'dataZoom') %>% | |
| e_datazoom(x_index = 0) %>% | |
| e_datazoom(y_index = 0) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment