如何根据条件对多列进行突变

Question

我想通过将行元素除以前导行来添加多个新列。

例如，我要按国家分组将1960年的第1行除以2960年的第2行，并将其存储在新列中。我想一直这样做

    Countries      1960    1961    1962    1963
1   US             100     200      300     400
2   US             12      10       20      30
3   China          400     350      500     800
4   China          50      60       70      80

    Countries      1960    1961    1962    1963   Tr_1960  Tr_1961 ......
1   US             100     200      300     400    8.33     20
2   US             12      10       20      30     NA       NA
3   China          400     350      500     800    8        5.83
4   China          50      60       70      80     NA       NA

我可以通过复制粘贴手动进行操作，但这不是编程应该正确运行的方式吗？ 我读到map或map2函数可能会派上用场，但不幸的是我无法解决它，并且已经花了很多时间了。

df %>%
select(df, 5:8)
mutate(gdp_cap_1960 = ./lead(.) + 1)

我刚刚开始编码，希望对您有所帮助