使用tidyverse可能会有效果。

if(no_NA) {
Remove last pipe line
}

：）

gdp_test %>%filter(Country.=="usa") %>% group_by(Year.) %>% select(-Country.) %>% 
left_join(gdp_test,by="Year.") %>% 
  rename(GDPus=GDP.x,GDP=GDP.y) %>% 
  mutate(ratio=GDP/GDPus) %>% ungroup() %>% 
  mutate(ratio=ifelse(ratio==1,NA,ratio))

这是一个非常笨拙的方法来完成这项工作。我相信有更好的方法来完成它。帮助将是非常感谢的。

gdp_test <- read.table(text = "Country, Year, GDP
costa_rica  1979  200
costa_rica  1980  210
costa_rica  1981  250
usa         1979  350
usa         1980  375
usa         1981  421", header=T)
gdp_test <- as.data.frame(gdp_test) %>%
  mutate(ID=row_number(),)

gdp_usa <- gdp_test$GDP[4:6]
usa <- as.data.frame(c(gdp_usa,gdp_usa)) %>% 
  mutate(ID=row_number(),)
gdp <-full_join(gdp_test,usa, by = "ID")
gdp <- gdp %>% mutate(ratio = GDP/gdp_usa)