- library(nCov2019)
- x <- get_nCov2019()
- df <- x[]
- ggplot(data = df, aes(
- x = reorder(name, dead, median),
- y = dead,
- fill = name
- )) +
- geom_col() +
- coord_flip() +
- scale_y_continuous(expand = c(0, 0)) +
- geom_text(aes(label = dead), hjust = -0.5)


雷达卡




京公网安备 11010802022788号







