r - 将特定列中每一行的值转换为该特定列中特定行的值的百分比

Question

我有一个数据框，其中包含来自财务报表(例如损益表、 Assets 负债表、现金流量表)的数据，每一行都引用一个财务报表条目(例如收入、利润)，每一列都引用一个特定的年。

数据示例如下:

variable <- c("Revenue", "Cost of Goods Sold", "Gross Profit", "SG&A", "Operating Income", "Interest Expense", 
          "Pretax Income", "Income Tax", "Net Income")
year_2014 <- c(6500, 3012, 3488, 1231, 2257, 231, 2026, 462, 1564)
year_2015 <- c(3250, 1323, 1927, 912, 1015, 109, 906, 209, 697)
year_2016 <- c(4965, 2723, 2242, 1159, 1083, 106, 977, 187, 790)
df <- data.frame(variable, year_2014, year_2015, year_2016) 

我想将财务报表的大小统一，我将每一行都与收入分开。例如2014年净收入1564/收入6500*100，所得税462/收入6500*100等。

我正在寻找的最终结果看起来像这样:

我尝试了多种方法来解决这个问题，但都没有用:

library(dplyr)

df <- df %>%
    mutate(percentage = year_2014/filter(select(year_2014), variable == "Revenue")

这source表明我无法在 mutate 中进行过滤。

我尝试使用子集表示法为后续除法步骤获取“收入”行，但失败了:

df <- df %>%
    mutate(percentage = year_2014/variable["Revenue"])

我也搜索了 Stackoverflow，但找不到答案。我得到的“最接近”答案是这个 post还有这个post .然而，这些帖子是不同的，因为它们的数据集是长格式的(与我的宽格式相反)，它们的数据集由组组成(我没有什么可以“group_by”)，我需要对我正在制作的特定行进行硬编码引用。

非常感谢!谢谢!

Answer 1

可以试试 dplyr::mutate_at。此外，如果 Revenue 预计不会出现在第一行，那么通用解决方案可以是:

library(dplyr)

df %>% mutate_at(vars(starts_with("year")), 
                  funs(100*./.[which(variable == "Revenue")])) %>%
  as.data.frame()


#             variable year_2014 year_2015 year_2016
# 1            Revenue    100.00    100.00    100.00
# 2 Cost of Goods Sold     46.34     40.71     54.84
# 3       Gross Profit     53.66     59.29     45.16
# 4               SG&A     18.94     28.06     23.34
# 5   Operating Income     34.72     31.23     21.81
# 6   Interest Expense      3.55      3.35      2.13
# 7      Pretax Income     31.17     27.88     19.68
# 8         Income Tax      7.11      6.43      3.77
# 9         Net Income     24.06     21.45     15.91