我的df看起来有点像这样:
data <- data.frame(
"id" = c(2, 4, 5),
"paid" = c(80, 293.64, 157),
"basic_fee" = c(500, 140.59, 21.49),
"marketing_fee" = c(151.51, 10.12, 562.50),
"utility_fee" = c(65, 99.29, 102.35),
stringsAsFactors = F)
我想要实现的是
final <- data.frame(
"id" = c(2, 4, 5),
"paid" = c(80, 293.64, 157),
"basic_fee" = c(500, 140.59, 21.49),
"marketing_fee" = c(151.51, 10.12, 562.50),
"utility_fee" = c(65, 99.29, 102.35),
"paid_basic" = c(80, 140.59, 21.49),
"paid_marketing" = c(0, 10.12, 135.51),
"paid_utlity" = c(0, 99.29, 0),
stringsAsFactors = F)
实际上,两者之间的逻辑非常简单。对于每个id,获取已付价值的金额,然后按优先顺序“尽可能多地支付”费用-基本费用、营销费用、效用费用。请注意,任何费用的支付金额都不能高于其实际价值。
我的代码下面工作,但它是非常丑陋的重复代码的一部分。现在我有了更复杂的包含100+列的数据帧。我不想创建更多更复杂的代码,如果有成千上万行的话。
final <-
data %>%
mutate(
paid_basic = if_else(basic_fee - paid > 0, basic_fee - (basic_fee - paid), basic_fee),
overpayment_basic = if_else(paid-paid_basic > 0, 1, 0),
paid_marketing = if_else(overpayment_basic == 1, (paid-paid_basic), 0),
paid_marketing = if_else(paid_marketing > marketing_fee, marketing_fee, paid_marketing),
overpayment_marketing = if_else(paid-paid_basic-paid_marketing > 0, 1, 0),
paid_utility = if_else(overpayment_marketing == 1, (paid-paid_basic-paid_marketing), 0),
paid_utility = if_else(paid_utility > utility_fee, utility_fee, paid_utility)
)
https://stackoverflow.com/questions/56668247
复制相似问题