如何使用相同的数据集 plot 折线图？

Question

我正在尝试使用 Covid-2019 数据集对 plot 图表进行处理。 我已经能够 plot 一个国家确诊病例数，但现在我需要一个每个国家的伤亡人数。 我怎样才能做到这一点？ 这是我用于确认病例数的代码：

library(ggplot2)

library('remotes')
remotes::install_github("GuangchuangYu/nCov2019", dependencies = TRUE)

library('nCov2019')
get_nCov2019(lang = 'en')

x <- get_nCov2019()
y <- load_nCov2019()

library(magrittr)

d <- y['global'] 
f <- d %>% dplyr::filter(time == time(y)) %>% top_n(180, cum_confirm) %>% arrange(desc(cum_confirm)) 

library(dplyr)

require(ggplot2)
require(ggrepel)
ggplot(filter(d, d$time > '2020-02-05' & country %in% f$country), mapping = aes(time, cum_confirm , color = country, label = country))  +
geom_line() +
  geom_text(data = f, aes(label = country, colour = country, x = time, y = cum_confirm))+
theme_minimal(base_size = 14)+
theme(legend.position = "none") +
ggtitle('Covid-19 Cases by Country', 'The progression of confirmed cases by countries')+
ylab('Confirmed Cases')

Answer 1

我担心我的解决方案过于简单，但您的 object f似乎还包含cum_dead列中的伤亡人数。

我认为您需要做的就是将cum_confirm更改为cum_dead 。

ggplot(filter(d, d$time > '2020-02-05' & country %in% f$country), mapping = aes(time, cum_confirm , color = country, label = country))  +
geom_line() +
  geom_text(data = f, aes(label = country, colour = country, x = time, y = cum_dead))+
theme_minimal(base_size = 14)+
theme(legend.position = "none") +
ggtitle('Covid-19 Cases by Country', 'The progression of confirmed cases by countries')+
ylab('Confirmed Dead')