Find cumulative number by increment in percentage in R












0















I have a dataframe (new_df) as below ( sample of original)



structure(list(Facility = c("ABE", "ABE", "ABE", "ABE", "ABE", 

"ABE", "ABE", "ABE", "ABE", "ABE"), Year.x = c(2017, 2018, 2019, 

2020, 2021, 2022, 2023, 2024, 2025, 2026), `Growth Rate` = c(25.375, 

15.5865736124958, 14.5677592486103, 12.3473314371758, 10.253164556962, 

6.67251975417032, 2.65906932573599, 1.55411655874191, 1.51211513936965, 

1.5853074898301), Year.y = c(2016, 2016, 2016, 2016, 2016, 2016, 

2016, 2016, 2016, 2016), OPS = c(7200, 0, 0, 0, 0, 0, 0, 0, 0, 

0)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"

))


I want to input value in OPS such that it shows cumulative times percent increment (column Growth rate)
Below is gist of work I am trying to do



For (all facilities in OPSNET)
For each facility in OPSNET find the new number of operations for year 2017 to 2045 which is based on the growth rate of each facility for each year. Remember that growth rate is give in “GR”.



Let’s say you want to do that for facility “ABE”. First you multiply 7200 by growth rate in year 2017 (25) and sum it up with 7200 which gives you 9027. Then you multiply 9027 by growth rate in 2018 (15) and sum it up with 9027 which gives you 10434. You do that until year 2045.



I have tried below using dplyr but I am struggling how to multiple with percent increment while taking



my take :- 



new_df <- new_df %>% arrange(Facility, Year.x) %>% 

  mutate(cumsum = cumsum(OPS))


Please assist me!






r dplyr tidyverse cumulative-sum







share|improve this question

























  • Use cumprod. For instance, cumprod(1+df$"Growth Rate"/100) gives you the cumulative rates you need to multiply to the initial OPS value.

    – nicola
    Nov 23 '18 at 12:03













  • Thanks for quick help but how would cumprod be used for each levels in facility column, could you please clear that with an example. I feel its something very little just could not figure it out

    – Vaibhav Singh
    Nov 23 '18 at 12:07











  • Can you post the expected result? Not sure to really understand what you need

    – Bram
    Nov 23 '18 at 13:52
















0















I have a dataframe (new_df) as below ( sample of original)



structure(list(Facility = c("ABE", "ABE", "ABE", "ABE", "ABE", 

"ABE", "ABE", "ABE", "ABE", "ABE"), Year.x = c(2017, 2018, 2019, 

2020, 2021, 2022, 2023, 2024, 2025, 2026), `Growth Rate` = c(25.375, 

15.5865736124958, 14.5677592486103, 12.3473314371758, 10.253164556962, 

6.67251975417032, 2.65906932573599, 1.55411655874191, 1.51211513936965, 

1.5853074898301), Year.y = c(2016, 2016, 2016, 2016, 2016, 2016, 

2016, 2016, 2016, 2016), OPS = c(7200, 0, 0, 0, 0, 0, 0, 0, 0, 

0)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"

))


I want to input value in OPS such that it shows cumulative times percent increment (column Growth rate)
Below is gist of work I am trying to do



For (all facilities in OPSNET)
For each facility in OPSNET find the new number of operations for year 2017 to 2045 which is based on the growth rate of each facility for each year. Remember that growth rate is give in “GR”.



Let’s say you want to do that for facility “ABE”. First you multiply 7200 by growth rate in year 2017 (25) and sum it up with 7200 which gives you 9027. Then you multiply 9027 by growth rate in 2018 (15) and sum it up with 9027 which gives you 10434. You do that until year 2045.



I have tried below using dplyr but I am struggling how to multiple with percent increment while taking



my take :- 



new_df <- new_df %>% arrange(Facility, Year.x) %>% 

  mutate(cumsum = cumsum(OPS))


Please assist me!






r dplyr tidyverse cumulative-sum







share|improve this question

























  • Use cumprod. For instance, cumprod(1+df$"Growth Rate"/100) gives you the cumulative rates you need to multiply to the initial OPS value.

    – nicola
    Nov 23 '18 at 12:03













  • Thanks for quick help but how would cumprod be used for each levels in facility column, could you please clear that with an example. I feel its something very little just could not figure it out

    – Vaibhav Singh
    Nov 23 '18 at 12:07











  • Can you post the expected result? Not sure to really understand what you need

    – Bram
    Nov 23 '18 at 13:52














0












0








0








I have a dataframe (new_df) as below ( sample of original)



structure(list(Facility = c("ABE", "ABE", "ABE", "ABE", "ABE", 

"ABE", "ABE", "ABE", "ABE", "ABE"), Year.x = c(2017, 2018, 2019, 

2020, 2021, 2022, 2023, 2024, 2025, 2026), `Growth Rate` = c(25.375, 

15.5865736124958, 14.5677592486103, 12.3473314371758, 10.253164556962, 

6.67251975417032, 2.65906932573599, 1.55411655874191, 1.51211513936965, 

1.5853074898301), Year.y = c(2016, 2016, 2016, 2016, 2016, 2016, 

2016, 2016, 2016, 2016), OPS = c(7200, 0, 0, 0, 0, 0, 0, 0, 0, 

0)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"

))


I want to input value in OPS such that it shows cumulative times percent increment (column Growth rate)
Below is gist of work I am trying to do



For (all facilities in OPSNET)
For each facility in OPSNET find the new number of operations for year 2017 to 2045 which is based on the growth rate of each facility for each year. Remember that growth rate is give in “GR”.



Let’s say you want to do that for facility “ABE”. First you multiply 7200 by growth rate in year 2017 (25) and sum it up with 7200 which gives you 9027. Then you multiply 9027 by growth rate in 2018 (15) and sum it up with 9027 which gives you 10434. You do that until year 2045.



I have tried below using dplyr but I am struggling how to multiple with percent increment while taking



my take :- 



new_df <- new_df %>% arrange(Facility, Year.x) %>% 

  mutate(cumsum = cumsum(OPS))


Please assist me!






r dplyr tidyverse cumulative-sum







share|improve this question
















I have a dataframe (new_df) as below ( sample of original)



structure(list(Facility = c("ABE", "ABE", "ABE", "ABE", "ABE", 

"ABE", "ABE", "ABE", "ABE", "ABE"), Year.x = c(2017, 2018, 2019, 

2020, 2021, 2022, 2023, 2024, 2025, 2026), `Growth Rate` = c(25.375, 

15.5865736124958, 14.5677592486103, 12.3473314371758, 10.253164556962, 

6.67251975417032, 2.65906932573599, 1.55411655874191, 1.51211513936965, 

1.5853074898301), Year.y = c(2016, 2016, 2016, 2016, 2016, 2016, 

2016, 2016, 2016, 2016), OPS = c(7200, 0, 0, 0, 0, 0, 0, 0, 0, 

0)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"

))


I want to input value in OPS such that it shows cumulative times percent increment (column Growth rate)
Below is gist of work I am trying to do



For (all facilities in OPSNET)
For each facility in OPSNET find the new number of operations for year 2017 to 2045 which is based on the growth rate of each facility for each year. Remember that growth rate is give in “GR”.



Let’s say you want to do that for facility “ABE”. First you multiply 7200 by growth rate in year 2017 (25) and sum it up with 7200 which gives you 9027. Then you multiply 9027 by growth rate in 2018 (15) and sum it up with 9027 which gives you 10434. You do that until year 2045.



I have tried below using dplyr but I am struggling how to multiple with percent increment while taking



my take :- 



new_df <- new_df %>% arrange(Facility, Year.x) %>% 

  mutate(cumsum = cumsum(OPS))


Please assist me!






r dplyr tidyverse cumulative-sum




r dplyr tidyverse cumulative-sum






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 23 '18 at 11:58









Rui Barradas

18.2k51833




18.2k51833










asked Nov 23 '18 at 11:53









Vaibhav SinghVaibhav Singh

8112




8112













  • Use cumprod. For instance, cumprod(1+df$"Growth Rate"/100) gives you the cumulative rates you need to multiply to the initial OPS value.

    – nicola
    Nov 23 '18 at 12:03













  • Thanks for quick help but how would cumprod be used for each levels in facility column, could you please clear that with an example. I feel its something very little just could not figure it out

    – Vaibhav Singh
    Nov 23 '18 at 12:07











  • Can you post the expected result? Not sure to really understand what you need

    – Bram
    Nov 23 '18 at 13:52



















  • Use cumprod. For instance, cumprod(1+df$"Growth Rate"/100) gives you the cumulative rates you need to multiply to the initial OPS value.

    – nicola
    Nov 23 '18 at 12:03













  • Thanks for quick help but how would cumprod be used for each levels in facility column, could you please clear that with an example. I feel its something very little just could not figure it out

    – Vaibhav Singh
    Nov 23 '18 at 12:07











  • Can you post the expected result? Not sure to really understand what you need

    – Bram
    Nov 23 '18 at 13:52

















Use cumprod. For instance, cumprod(1+df$"Growth Rate"/100) gives you the cumulative rates you need to multiply to the initial OPS value.

– nicola
Nov 23 '18 at 12:03







Use cumprod. For instance, cumprod(1+df$"Growth Rate"/100) gives you the cumulative rates you need to multiply to the initial OPS value.

– nicola
Nov 23 '18 at 12:03















Thanks for quick help but how would cumprod be used for each levels in facility column, could you please clear that with an example. I feel its something very little just could not figure it out

– Vaibhav Singh
Nov 23 '18 at 12:07





Thanks for quick help but how would cumprod be used for each levels in facility column, could you please clear that with an example. I feel its something very little just could not figure it out

– Vaibhav Singh
Nov 23 '18 at 12:07













Can you post the expected result? Not sure to really understand what you need

– Bram
Nov 23 '18 at 13:52





Can you post the expected result? Not sure to really understand what you need

– Bram
Nov 23 '18 at 13:52












1 Answer
1






active

oldest

votes


















1














What about this:



for(i in 2:nrow(a)){

 if(a$Facility[i]==a$Facility[i-1]){

   a$OPS[i] <- (a$OPS[i-1])*((a$`Growth Rate`[i-1]/100)+1)

 }

}





share|improve this answer
























    Your Answer






    StackExchange.ifUsing("editor", function () {
    StackExchange.using("externalEditor", function () {
    StackExchange.using("snippets", function () {
    StackExchange.snippets.init();
    });
    });
    }, "code-snippets");

    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "1"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53446239%2ffind-cumulative-number-by-increment-in-percentage-in-r%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    1














    What about this:



    for(i in 2:nrow(a)){
    
 if(a$Facility[i]==a$Facility[i-1]){
    
   a$OPS[i] <- (a$OPS[i-1])*((a$`Growth Rate`[i-1]/100)+1)
    
 }
    
}





    share|improve this answer




























      1














      What about this:



      for(i in 2:nrow(a)){
      
 if(a$Facility[i]==a$Facility[i-1]){
      
   a$OPS[i] <- (a$OPS[i-1])*((a$`Growth Rate`[i-1]/100)+1)
      
 }
      
}





      share|improve this answer


























        1












        1








        1







        What about this:



        for(i in 2:nrow(a)){
        
 if(a$Facility[i]==a$Facility[i-1]){
        
   a$OPS[i] <- (a$OPS[i-1])*((a$`Growth Rate`[i-1]/100)+1)
        
 }
        
}





        share|improve this answer













        What about this:



        for(i in 2:nrow(a)){
        
 if(a$Facility[i]==a$Facility[i-1]){
        
   a$OPS[i] <- (a$OPS[i-1])*((a$`Growth Rate`[i-1]/100)+1)
        
 }
        
}






        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 23 '18 at 14:12









        BramBram

        1299




        1299
































            draft saved

            draft discarded




















































            Thanks for contributing an answer to Stack Overflow!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid …



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53446239%2ffind-cumulative-number-by-increment-in-percentage-in-r%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            -

            這個網誌中的熱門文章

            Xamarin.form Move up view when keyboard appear

            圖片
            .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 0 I'm trying to build a Chat app UI, the idea of the Layout was pretty simple: When the input bar is focused, keyboard show up and "push" up the chat bar, as it's a grid, the ListView will resize to fit the screen: I update the input bar's margin to "push" it up: NSValue result = (NSValue)args.Notification.UserInfo.ObjectForKey(new NSString(UIKeyboard.FrameEndUserInfoKey)); CGSize keyboardSize = result.RectangleFValue.Size; if (Element != null){ Element.Margin = new Thickness(0, 0, 0,keyboardSize.Height); //push the entry up to keyboard height when keyboard is activated } And this is ...
            閱讀完整內容

            Post-Redirect-Get with Spring WebFlux and Thymeleaf

            圖片
            .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 2 Can someone explain to me how to implement the post-redirect-get pattern in Spring WebFlux and Thymeleaf? What subscribes on the database save method? @GetMapping("/register") public String showRegisterForm(Model model) { model.addAttribute("user", new User()); return "register"; } @PostMapping public String processRegisterForm(@Valid User user, BindingResult bindingResult) { if (bindingResult.hasErrors()) { return "register"; } else { userRepository.save(user); //what subscribes on this? //how to redirect on e.g. "/login"? ...
            閱讀完整內容

            Anylogic : not able to use stopDelay()

            圖片
            -2 I am building a railway station model. I want a train to depart when I click a button. I want to call stopDelay() for that but I am not sure how to do that and from which place. anylogic share | improve this question asked Nov 23 '18 at 10:12 Anupam Singh Anupam Singh 1 Hi Anupam, welcome to SOF. Please check how to ask good questions, see link below. Your question is...
            閱讀完整內容