随着时间的推移而变化

Question

问题已于1/9/20回答

Answer 1

您可以使用软件包ggplot2来绘制问题的答案。
这种类型的问题通常与数据重塑有关。格式应为长格式，数据应为宽格式。有关如何将数据从长格式更改为宽格式的信息，请参见this post。

library(dplyr)
library(tidyr)
library(ggplot2)

my_data %>% 
  rename(country = `1800`) %>%
  pivot_longer(
    cols = starts_with('18'),
    names_to = 'time',
    values_to = 'mortality'
  ) %>%
  mutate(time = as.numeric(time)) %>%
  ggplot(aes(time, mortality, color = country)) +
  geom_point() +
  geom_line()

Answer 2

我们可以使用matplot中的base R

matplot(t('row.names<-'(as.matrix(my_data[-1]), my_data[[1]])), 
          type = 'l', xaxt = 'n')
legend("top", my_data[[1]], col = seq_along(my_data[[1]]),
          fill = seq_along(my_data[[1]]))