计算百分比并保留名称

我有以下DF名为总计。

  Group    Year_2016  Year_2017  Year_2018
    A         342         2342      234
    B         231         2357      6867
    c         67          9796      75474

在下面的代码中，我可以计算出正确的百分比，但是它不会保留组列。

percentage = sapply(names(totals)[-1], function(x) {
Year[paste0(x, "_pct")] <<- totals[x] / sum(totals[x]})

我想要按组百分比。很高兴能成为其他列或新的DF。

我还有数百行和更多列。

任何帮助表示赞赏。