如何将GDP增长率计算代码与data.frame()函数优雅结合？

方法1：一步式data.frame()嵌入计算 #

直接在创建数据框时同时定义列名并嵌入增长率计算逻辑，无需拆分步骤：

# 生成带规范列名的GDP增长率结果
data.frame(
  country = "Belize",
  GDP_percent = round(with(Belize_1960_1970, 
                          (Value[Year == 1970] - Value[Year == 1960])/Value[Year == 1960])*100),
  row.names = FALSE
)

运行后会直接输出带country和GDP_percent列的结果，省去额外的变量赋值与打印操作。

方法2：dplyr管道式实现（适配复杂场景） #

如果需要扩展到多国家处理或数据逻辑更复杂的情况，用dplyr的管道语法会更清晰且健壮：

library(dplyr)

Belize_1960_1970 %>%
  filter(Year %in% c(1960, 1970)) %>%
  arrange(Year) %>%
  summarize(
    country = "Belize",
    GDP_percent = round((last(Value) - first(Value))/first(Value)*100)
  )

这种方式无需硬编码年份索引，即使数据中年份顺序混乱，first()和last()也能准确获取首尾年份的数值，同时便于后续批量处理多组数据。

内容的提问来源于stack exchange，提问作者FirstCosmonaut