Question

问题

我有一个历史税率清单和一个应税收入向量，我需要将它们合并起来才能计算每年每个收入水平的应纳税额。当我遍历历史税率和收入时，我收到一条错误消息：

Error: Argument 2 can't be a list containing data frames

对有关如何修改数据或函数调用（如下）以完成迭代的任何建议感兴趣。

数据

pit_sch <- list(`2016` = structure(list(id = c("2016", "2016", "2016", "2016"
), hh_exp_def = c(0.989, 0.989, 0.989, 0.989), `Taxable income` = c("$18,201 – $37,000", 
"$37,001 – $80,000", "$80,001 – $180,000", "$180,001 and over"
), `Tax on this income` = c("19c for each $1 over $18200", "$3572 plus 32.5c for each $1 over $37000", 
"$17547 plus 37c for each $1 over $80000", "$54547 plus 45c for each $1 over $180000"
), cumm_tax_amt = c(0, 3572, 17547, 54547), tax_rate = c(19, 
32.5, 37, 45), threshold = c(18200, 37000, 80000, 180000), real_threshold = c(18402.4266936299, 
37411.5267947422, 80889.7876643074, 182002.022244692), real_cumm_tax_amt = c(0, 
3611.72901921132, 17742.16380182, 55153.6905965622)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -4L)), `2017` = structure(list(
    id = c("2017", "2017", "2017", "2017"), hh_exp_def = c(1, 
    1, 1, 1), `Taxable income` = c("$18,201 – $37,000", "$37,001 – $87,000", 
    "$87,001 – $180,000", "$180,001 and over"), `Tax on this income` = c("19c for each $1 over $18200", 
    "$3572 plus 32.5c for each $1 over $37000", "$19822 plus 37c for each $1 over $87000", 
    "$54232 plus 45c for each $1 over $180000"), cumm_tax_amt = c(0, 
    3572, 19822, 54232), tax_rate = c(19, 32.5, 37, 45), threshold = c(18200, 
    37000, 87000, 180000), real_threshold = c(18200, 37000, 87000, 
    180000), real_cumm_tax_amt = c(0, 3572, 19822, 54232)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -4L)))

income <- seq(from = 1, to = 100000, by = 100)

尝试

# Defining the function which will calculate tax liability for a given set of tax rates (in pit_sch) and income
nominial_tax_calc <- function(data, income) {
  i <-pmax(which(income >= data[, 7]))
  if (length(i) > 0) 
    return(tibble(income = income, 
                  tax = (income - data[i, 7]) * (data[i, 6] / 100) + data[i, 5]))
  else
    return(tibble(income = income, tax = 0))
}

# Function that results in the error
map(pit_sch,~map_df(income, nominial_tax_calc, data = .))

Answer 1

我认为您需要在功能上进行两项更改

1）使用Derived*代替int Base::execute(BaseThunk x) // no need to be virtual {return (this->*x)();}

2）将pmax包装在max计算中

as.numeric

然后致电

tax

Answer 2

问题在于data参数是一个小标题，但是您正在使用方括号索引，就好像它是基本R数据帧一样。这样会留下一个列名，从而导致您的麻烦：

pit_sch[["2016"]][2, 7]

# A tibble: 1 x 1
  threshold
      <dbl>
1     37000

将data转换为nominial_tax_calc()第一行中的数据帧，
data <- as.data.frame(data)，然后可以使用所选的索引语法，函数将无错误运行。

使用purrr :: map遍历列表会产生错误

问题

数据

尝试

2 个答案: