How to group by pivot table with BREAKDOWN in same table data.table R












0














Data.table has various way to make a pivot table with by = function,
but how can we group the breakdown information in the SAME group by shape ?



Sample Data



# DT
DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
"A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
TYPE = c("A","B","C","D","E",
"B","B","A","A","E"),
AMOUNT =c(123,1424,1244,2111,44559,
128,1221,12144,11,439))


Separate Table but not grouped in one frame



# ALL
ALL_G <- DT[,.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]

# A_GROUP Breakdown 1
A_G <- DT[grepl("A_GROUP",GROUP),.(SUM =format(sum(AMOUNT),big.mark=",")),by = TYPE]

# B_GROUP Breakdown 2
B_G <- DT[grepl("B_GROUP",GROUP),.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]


Desire shape



# TARGET
TYPE ALL SUM A_GROUP_SUM B_GROUP_SUM
A 12,278 123 12,155
B 2,773 128 2,645
C 1,244 0 1,244
D 2,111 0 2,111
E 44,998 44998 0


How can i achieve this ?










share|improve this question



























    0














    Data.table has various way to make a pivot table with by = function,
    but how can we group the breakdown information in the SAME group by shape ?



    Sample Data



    # DT
    DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
    "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
    TYPE = c("A","B","C","D","E",
    "B","B","A","A","E"),
    AMOUNT =c(123,1424,1244,2111,44559,
    128,1221,12144,11,439))


    Separate Table but not grouped in one frame



    # ALL
    ALL_G <- DT[,.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]

    # A_GROUP Breakdown 1
    A_G <- DT[grepl("A_GROUP",GROUP),.(SUM =format(sum(AMOUNT),big.mark=",")),by = TYPE]

    # B_GROUP Breakdown 2
    B_G <- DT[grepl("B_GROUP",GROUP),.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]


    Desire shape



    # TARGET
    TYPE ALL SUM A_GROUP_SUM B_GROUP_SUM
    A 12,278 123 12,155
    B 2,773 128 2,645
    C 1,244 0 1,244
    D 2,111 0 2,111
    E 44,998 44998 0


    How can i achieve this ?










    share|improve this question

























      0












      0








      0







      Data.table has various way to make a pivot table with by = function,
      but how can we group the breakdown information in the SAME group by shape ?



      Sample Data



      # DT
      DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
      "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
      TYPE = c("A","B","C","D","E",
      "B","B","A","A","E"),
      AMOUNT =c(123,1424,1244,2111,44559,
      128,1221,12144,11,439))


      Separate Table but not grouped in one frame



      # ALL
      ALL_G <- DT[,.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]

      # A_GROUP Breakdown 1
      A_G <- DT[grepl("A_GROUP",GROUP),.(SUM =format(sum(AMOUNT),big.mark=",")),by = TYPE]

      # B_GROUP Breakdown 2
      B_G <- DT[grepl("B_GROUP",GROUP),.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]


      Desire shape



      # TARGET
      TYPE ALL SUM A_GROUP_SUM B_GROUP_SUM
      A 12,278 123 12,155
      B 2,773 128 2,645
      C 1,244 0 1,244
      D 2,111 0 2,111
      E 44,998 44998 0


      How can i achieve this ?










      share|improve this question













      Data.table has various way to make a pivot table with by = function,
      but how can we group the breakdown information in the SAME group by shape ?



      Sample Data



      # DT
      DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
      "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
      TYPE = c("A","B","C","D","E",
      "B","B","A","A","E"),
      AMOUNT =c(123,1424,1244,2111,44559,
      128,1221,12144,11,439))


      Separate Table but not grouped in one frame



      # ALL
      ALL_G <- DT[,.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]

      # A_GROUP Breakdown 1
      A_G <- DT[grepl("A_GROUP",GROUP),.(SUM =format(sum(AMOUNT),big.mark=",")),by = TYPE]

      # B_GROUP Breakdown 2
      B_G <- DT[grepl("B_GROUP",GROUP),.(SUM = format(sum(AMOUNT),big.mark=",")),by = TYPE]


      Desire shape



      # TARGET
      TYPE ALL SUM A_GROUP_SUM B_GROUP_SUM
      A 12,278 123 12,155
      B 2,773 128 2,645
      C 1,244 0 1,244
      D 2,111 0 2,111
      E 44,998 44998 0


      How can i achieve this ?







      r data.table pivot






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Nov 14 '18 at 6:57









      rane

      15419




      15419
























          1 Answer
          1






          active

          oldest

          votes


















          1














          library( data.table)

          # sample data
          DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
          "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
          TYPE = c("A","B","C","D","E",
          "B","B","A","A","E"),
          AMOUNT =c(123,1424,1244,2111,44559,
          128,1221,12144,11,439))


          #create a dt for the sum by TYPE
          dt1 <- DT[, list( ALL_SUM = sum( AMOUNT ) ), by = "TYPE" ]

          #create a dt for the sum by TYPE and GROUP
          dt2 <- DT[, list( sum = sum( AMOUNT ) ), by = c( "TYPE", "GROUP" )]
          #rename the groups to the desired column names
          dt2[, GROUP := paste0( GROUP, "_SUM" )]
          #cast to wide format
          dt2 <- dcast( dt2, TYPE ~ GROUP, value.var = "sum", fill = 0 )

          # option 1: join together (you can use setcolorder() afterwards to get the desired order of columns)
          dt2[dt1, on = "TYPE"]

          #option 2: bind together (drop the first colum of dt2, oly works of both dt's have the same number of rows)
          cbind( dt1, dt2[, -1] )

          # TYPE ALL_SUM A_GROUP_SUM B_GROUP_SUM
          # 1 A 12278 123 12155
          # 2 B 2773 128 2645
          # 3 C 1244 0 1244
          # 4 D 2111 0 2111
          # 5 E 44998 44998 0





          share|improve this answer























          • Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
            – rane
            Nov 14 '18 at 16:46











          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%2f53294665%2fhow-to-group-by-pivot-table-with-breakdown-in-same-table-data-table-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














          library( data.table)

          # sample data
          DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
          "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
          TYPE = c("A","B","C","D","E",
          "B","B","A","A","E"),
          AMOUNT =c(123,1424,1244,2111,44559,
          128,1221,12144,11,439))


          #create a dt for the sum by TYPE
          dt1 <- DT[, list( ALL_SUM = sum( AMOUNT ) ), by = "TYPE" ]

          #create a dt for the sum by TYPE and GROUP
          dt2 <- DT[, list( sum = sum( AMOUNT ) ), by = c( "TYPE", "GROUP" )]
          #rename the groups to the desired column names
          dt2[, GROUP := paste0( GROUP, "_SUM" )]
          #cast to wide format
          dt2 <- dcast( dt2, TYPE ~ GROUP, value.var = "sum", fill = 0 )

          # option 1: join together (you can use setcolorder() afterwards to get the desired order of columns)
          dt2[dt1, on = "TYPE"]

          #option 2: bind together (drop the first colum of dt2, oly works of both dt's have the same number of rows)
          cbind( dt1, dt2[, -1] )

          # TYPE ALL_SUM A_GROUP_SUM B_GROUP_SUM
          # 1 A 12278 123 12155
          # 2 B 2773 128 2645
          # 3 C 1244 0 1244
          # 4 D 2111 0 2111
          # 5 E 44998 44998 0





          share|improve this answer























          • Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
            – rane
            Nov 14 '18 at 16:46
















          1














          library( data.table)

          # sample data
          DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
          "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
          TYPE = c("A","B","C","D","E",
          "B","B","A","A","E"),
          AMOUNT =c(123,1424,1244,2111,44559,
          128,1221,12144,11,439))


          #create a dt for the sum by TYPE
          dt1 <- DT[, list( ALL_SUM = sum( AMOUNT ) ), by = "TYPE" ]

          #create a dt for the sum by TYPE and GROUP
          dt2 <- DT[, list( sum = sum( AMOUNT ) ), by = c( "TYPE", "GROUP" )]
          #rename the groups to the desired column names
          dt2[, GROUP := paste0( GROUP, "_SUM" )]
          #cast to wide format
          dt2 <- dcast( dt2, TYPE ~ GROUP, value.var = "sum", fill = 0 )

          # option 1: join together (you can use setcolorder() afterwards to get the desired order of columns)
          dt2[dt1, on = "TYPE"]

          #option 2: bind together (drop the first colum of dt2, oly works of both dt's have the same number of rows)
          cbind( dt1, dt2[, -1] )

          # TYPE ALL_SUM A_GROUP_SUM B_GROUP_SUM
          # 1 A 12278 123 12155
          # 2 B 2773 128 2645
          # 3 C 1244 0 1244
          # 4 D 2111 0 2111
          # 5 E 44998 44998 0





          share|improve this answer























          • Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
            – rane
            Nov 14 '18 at 16:46














          1












          1








          1






          library( data.table)

          # sample data
          DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
          "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
          TYPE = c("A","B","C","D","E",
          "B","B","A","A","E"),
          AMOUNT =c(123,1424,1244,2111,44559,
          128,1221,12144,11,439))


          #create a dt for the sum by TYPE
          dt1 <- DT[, list( ALL_SUM = sum( AMOUNT ) ), by = "TYPE" ]

          #create a dt for the sum by TYPE and GROUP
          dt2 <- DT[, list( sum = sum( AMOUNT ) ), by = c( "TYPE", "GROUP" )]
          #rename the groups to the desired column names
          dt2[, GROUP := paste0( GROUP, "_SUM" )]
          #cast to wide format
          dt2 <- dcast( dt2, TYPE ~ GROUP, value.var = "sum", fill = 0 )

          # option 1: join together (you can use setcolorder() afterwards to get the desired order of columns)
          dt2[dt1, on = "TYPE"]

          #option 2: bind together (drop the first colum of dt2, oly works of both dt's have the same number of rows)
          cbind( dt1, dt2[, -1] )

          # TYPE ALL_SUM A_GROUP_SUM B_GROUP_SUM
          # 1 A 12278 123 12155
          # 2 B 2773 128 2645
          # 3 C 1244 0 1244
          # 4 D 2111 0 2111
          # 5 E 44998 44998 0





          share|improve this answer














          library( data.table)

          # sample data
          DT <- data.table(GROUP = c("A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP",
          "A_GROUP","B_GROUP","B_GROUP","B_GROUP","A_GROUP"),
          TYPE = c("A","B","C","D","E",
          "B","B","A","A","E"),
          AMOUNT =c(123,1424,1244,2111,44559,
          128,1221,12144,11,439))


          #create a dt for the sum by TYPE
          dt1 <- DT[, list( ALL_SUM = sum( AMOUNT ) ), by = "TYPE" ]

          #create a dt for the sum by TYPE and GROUP
          dt2 <- DT[, list( sum = sum( AMOUNT ) ), by = c( "TYPE", "GROUP" )]
          #rename the groups to the desired column names
          dt2[, GROUP := paste0( GROUP, "_SUM" )]
          #cast to wide format
          dt2 <- dcast( dt2, TYPE ~ GROUP, value.var = "sum", fill = 0 )

          # option 1: join together (you can use setcolorder() afterwards to get the desired order of columns)
          dt2[dt1, on = "TYPE"]

          #option 2: bind together (drop the first colum of dt2, oly works of both dt's have the same number of rows)
          cbind( dt1, dt2[, -1] )

          # TYPE ALL_SUM A_GROUP_SUM B_GROUP_SUM
          # 1 A 12278 123 12155
          # 2 B 2773 128 2645
          # 3 C 1244 0 1244
          # 4 D 2111 0 2111
          # 5 E 44998 44998 0






          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Nov 14 '18 at 8:02

























          answered Nov 14 '18 at 7:53









          Wimpel

          4,210321




          4,210321












          • Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
            – rane
            Nov 14 '18 at 16:46


















          • Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
            – rane
            Nov 14 '18 at 16:46
















          Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
          – rane
          Nov 14 '18 at 16:46




          Whatever its not in one script , but simple , fast , clear make its perfect . Thankyou Wimpel
          – rane
          Nov 14 '18 at 16:46


















          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.





          Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


          Please pay close attention to the following guidance:


          • 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%2f53294665%2fhow-to-group-by-pivot-table-with-breakdown-in-same-table-data-table-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







          Popular posts from this blog

          Guess what letter conforming each word

          Port of Spain

          Run scheduled task as local user group (not BUILTIN)