如何根据条件使用小标题值进行操作

问题描述

我希望可以解释我的问题，我有以下示例：

    men <- c(204887,218530,161706,275769,159381,184331,166283,171636,196118,189572,157465,171137,120363,301591,126385,157317)
    women <- c(205113,225793,152857,320207,139366,181088,157010,169101,206268,188374,151218,168920,113733,331912,110329,149641)
   age <-seq(27,42,by= 1)

我做了个小标题：

base1<-tibble(M=men,W=women,A=age)


   # A tibble: 16 x 3
        M      W     A
    <dbl>  <dbl> <dbl>
 1 204887 205113    27
 2 218530 225793    28
 3 161706 152857    29
 4 275769 320207    30.....

我希望能够以一种简单的方式进行下一个操作：

IR= (men_value at age 30)*5 / (men_val at age 28 + men_val at age 29 + ... + men_val at age 32)

我想知道哪些是最简单的方法，而不需要进行大量的循环或条件操作，希望您能为我提供帮助，我也很想使用tibble来完成此操作，因为我将使用数据库，在此先感谢！：）

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r tibble tidy