Как я могу получить все данные за определенное количество лет? Например мне нужны данные между 1970-2010 - PullRequest
Новая
       16

Как я могу получить все данные за определенное количество лет? Например мне нужны данные между 1970-2010

0 голосов
/ 08 апреля 2019

Я создаю график, который показывает прогресс в ожидаемой продолжительности жизни, а также стоимость медицинской помощи между определенным набором лет в разных странах (1970-2010), но я не могу найти способ получить толькоданные между указанными годами.Также здесь есть ссылка для просмотра набора данных, если это поможет: https://ourworldindata.org/grapher/life-expectancy-vs-health-expenditure

data <- read.csv("file:///C:/Users/Gavyn Henderson/Downloads/life-expectancy-vs-health-expenditure.csv")

names(data) <- c("Country","CountryABV","Year","LifeExpextancy","Expenditure","Population")

data$Expenditure    <- as.numeric(levels(data$Expenditure))[data$Expenditure]


sub1 <- subset(data, CountryABV == "USA"|CountryABV == "GBR"|CountryABV == "DEU"|CountryABV == "FRA"|
                 CountryABV == "JPN"|CountryABV == "AUS"|CountryABV == "CHE"|CountryABV == "CAN")
sub2 <- subset(data, Year %in% 1970:2010)

gg <- ggplot(sub1) + aes(Expenditure, LifeExpextancy,frame = sub2, color = Country) +
  geom_point(aes(size = Population)) + xlab("Life Expectance") + 
  ylab("Health Expenditure") +
  ggtitle("Life Expectance vs. Health Expenditure") +
  ylim(65,85) + 
  xlim(0,8000)
ggplotly(gg)
...