代码之家 › 专栏 › 技术社区 › Stephen Okiya

向后和向前预测

dplyr r

Stephen Okiya · 技术社区 · 8 月前

我有一个数据框架,其中包含不同年份的年增长值和特定年份的值,我想用该值向后降低该值,并用该值向前增加该值。示例数据集如下

ex_df = structure(list(year = c(2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023, 2024, 2025), 
                    growth = c(1152, -2051, 1074, 1200, 1036, 1593, 1007, 1701, 1642, -1800, 1607), 
                    value = c(NA, NA, NA, NA, NA, NA, NA, 11278, NA, NA, NA), 
                    new_value = c(5874, 7026, 4975, 6049, 7642, 8678, 10271, 11278, 12979, 14621, 12821)), 
               class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -11L))

我尝试的代码如下

ex_df %>%
  arrange(year) |>
  mutate(cum_yr_increase = cumsum(growth), 
         new_value_2 = cum_yr_increase + value[year == 2024])

1 回复 | 直到 8 月前

one 8 月前

ex_df %>%
  arrange(year) |>
         # lag() is needed because the growth is added in next year
  mutate(cum_yr_increase = cumsum(lag(growth,default = 0)), 
         # set the baseline for cum_yr_increase to year 2022
         cum_yr_increase2 = cum_yr_increase-cum_yr_increase[year==2022], 
         new_value_2 = cum_yr_increase2 + value[year == 2022]) 

    year growth value new_value cum_yr_increase cum_yr_increase2 new_value_2
   <dbl>  <dbl> <dbl>     <dbl>           <dbl>            <dbl>       <dbl>
 1  2015   1152    NA      5874               0            -5011        6267
 2  2016  -2051    NA      7026            1152            -3859        7419
 3  2017   1074    NA      4975            -899            -5910        5368
 4  2018   1200    NA      6049             175            -4836        6442
 5  2019   1036    NA      7642            1375            -3636        7642
 6  2020   1593    NA      8678            2411            -2600        8678
 7  2021   1007    NA     10271            4004            -1007       10271
 8  2022   1701 11278     11278            5011                0       11278
 9  2023   1642    NA     12979            6712             1701       12979
10  2024  -1800    NA     14621            8354             3343       14621
11  2025   1607    NA     12821            6554             1543       12821

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

6 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

6 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

6 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

6 月前

Ben · 统计向量中的单词在字符串中出现的频率

6 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

6 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

6 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

6 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

6 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

7 月前