Weighted mean with summarise_at dplyrUsing the GA R package to optimize the weights of a MLP neural networkColoring labels using scatterplot3d in RHow to Return Mean Response Values using dplyr and SQL Server R Services?Which tool should I use for combining this large dataset?R summarise with conditionCan Expectation Maximization estimate truth and confusion matrix from multiple noisy sources?Calculate weighted mean for two columns and hundreds of rows?Divide a column by itself with mutate_at dplyr

Giving feedback to someone without sounding prejudiced

What (the heck) is a Super Worm Equinox Moon?

Pre-mixing cryogenic fuels and using only one fuel tank

The Digit Triangles

Review your own paper in Mathematics

Do we have to expect a queue for the shuttle from Watford Junction to Harry Potter Studio?

What features enable the Su-25 Frogfoot to operate with such a wide variety of fuels?

What's the name of the logical fallacy where a debater extends a statement far beyond the original statement to make it true?

In a multiple cat home, how many litter boxes should you have?

How can I write humor as character trait?

PTIJ: Why is Haman obsessed with Bose?

Temporarily disable WLAN internet access for children, but allow it for adults

What is going on with gets(stdin) on the site coderbyte?

Why the "ls" command is showing the permissions of files in a FAT32 partition?

How to draw a matrix with arrows in limited space

What is the difference between lands and mana?

Mimic lecturing on blackboard, facing audience

Does the reader need to like the PoV character?

Why is it that I can sometimes guess the next note?

Multiplicative persistence

Confused about Cramer-Rao lower bound and CLT

Merge org tables

What does Apple's new App Store requirement mean

US tourist/student visa



Weighted mean with summarise_at dplyr


Using the GA R package to optimize the weights of a MLP neural networkColoring labels using scatterplot3d in RHow to Return Mean Response Values using dplyr and SQL Server R Services?Which tool should I use for combining this large dataset?R summarise with conditionCan Expectation Maximization estimate truth and confusion matrix from multiple noisy sources?Calculate weighted mean for two columns and hundreds of rows?Divide a column by itself with mutate_at dplyr













1












$begingroup$


I strictly need to use the summarise_at to compute a weighted mean, with weights based on the values of another column



 df %>% summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
.funs = weighted.mean, w=INVESTMENT, na.rm=TRUE)


It always shows the error: 'INVESTMENT' is not found.



I then tried with:



df %>%summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
.funs = weighted.mean, w=vars(INVESTMENT), na.rm=TRUE)


But in this case : Evaluation error: 'x' and 'w' must have the same length.



Why is this? Am I doing anything wrong? Do you have hints to solve this issue? Thanks










share|improve this question









$endgroup$
















    1












    $begingroup$


    I strictly need to use the summarise_at to compute a weighted mean, with weights based on the values of another column



     df %>% summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
    .funs = weighted.mean, w=INVESTMENT, na.rm=TRUE)


    It always shows the error: 'INVESTMENT' is not found.



    I then tried with:



    df %>%summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
    .funs = weighted.mean, w=vars(INVESTMENT), na.rm=TRUE)


    But in this case : Evaluation error: 'x' and 'w' must have the same length.



    Why is this? Am I doing anything wrong? Do you have hints to solve this issue? Thanks










    share|improve this question









    $endgroup$














      1












      1








      1





      $begingroup$


      I strictly need to use the summarise_at to compute a weighted mean, with weights based on the values of another column



       df %>% summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
      .funs = weighted.mean, w=INVESTMENT, na.rm=TRUE)


      It always shows the error: 'INVESTMENT' is not found.



      I then tried with:



      df %>%summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
      .funs = weighted.mean, w=vars(INVESTMENT), na.rm=TRUE)


      But in this case : Evaluation error: 'x' and 'w' must have the same length.



      Why is this? Am I doing anything wrong? Do you have hints to solve this issue? Thanks










      share|improve this question









      $endgroup$




      I strictly need to use the summarise_at to compute a weighted mean, with weights based on the values of another column



       df %>% summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
      .funs = weighted.mean, w=INVESTMENT, na.rm=TRUE)


      It always shows the error: 'INVESTMENT' is not found.



      I then tried with:



      df %>%summarise_at(.vars = vars(FACTOR,tv:`smart tv/console`), 
      .funs = weighted.mean, w=vars(INVESTMENT), na.rm=TRUE)


      But in this case : Evaluation error: 'x' and 'w' must have the same length.



      Why is this? Am I doing anything wrong? Do you have hints to solve this issue? Thanks







      r data-mining dataset dplyr






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Feb 6 at 9:24









      3nomis3nomis

      1929




      1929




















          1 Answer
          1






          active

          oldest

          votes


















          0












          $begingroup$

          You can specify the weights directly within the weighted.mean() function, within the call to funs() like so:



          data.frame(x=rnorm(100), y=rnorm(100), weight=runif(100)) %>%
          summarise_at(vars(x,y), funs(weighted.mean(., w=weight)))





          share|improve this answer








          New contributor




          mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
          Check out our Code of Conduct.






          $endgroup$












            Your Answer





            StackExchange.ifUsing("editor", function ()
            return StackExchange.using("mathjaxEditing", function ()
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            );
            );
            , "mathjax-editing");

            StackExchange.ready(function()
            var channelOptions =
            tags: "".split(" "),
            id: "557"
            ;
            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: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            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%2fdatascience.stackexchange.com%2fquestions%2f45148%2fweighted-mean-with-summarise-at-dplyr%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









            0












            $begingroup$

            You can specify the weights directly within the weighted.mean() function, within the call to funs() like so:



            data.frame(x=rnorm(100), y=rnorm(100), weight=runif(100)) %>%
            summarise_at(vars(x,y), funs(weighted.mean(., w=weight)))





            share|improve this answer








            New contributor




            mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
            Check out our Code of Conduct.






            $endgroup$

















              0












              $begingroup$

              You can specify the weights directly within the weighted.mean() function, within the call to funs() like so:



              data.frame(x=rnorm(100), y=rnorm(100), weight=runif(100)) %>%
              summarise_at(vars(x,y), funs(weighted.mean(., w=weight)))





              share|improve this answer








              New contributor




              mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
              Check out our Code of Conduct.






              $endgroup$















                0












                0








                0





                $begingroup$

                You can specify the weights directly within the weighted.mean() function, within the call to funs() like so:



                data.frame(x=rnorm(100), y=rnorm(100), weight=runif(100)) %>%
                summarise_at(vars(x,y), funs(weighted.mean(., w=weight)))





                share|improve this answer








                New contributor




                mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
                Check out our Code of Conduct.






                $endgroup$



                You can specify the weights directly within the weighted.mean() function, within the call to funs() like so:



                data.frame(x=rnorm(100), y=rnorm(100), weight=runif(100)) %>%
                summarise_at(vars(x,y), funs(weighted.mean(., w=weight)))






                share|improve this answer








                New contributor




                mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
                Check out our Code of Conduct.









                share|improve this answer



                share|improve this answer






                New contributor




                mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
                Check out our Code of Conduct.









                answered Mar 18 at 6:27









                mmkmmk

                101




                101




                New contributor




                mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
                Check out our Code of Conduct.





                New contributor





                mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
                Check out our Code of Conduct.






                mmk is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
                Check out our Code of Conduct.



























                    draft saved

                    draft discarded
















































                    Thanks for contributing an answer to Data Science Stack Exchange!


                    • 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.

                    Use MathJax to format equations. MathJax reference.


                    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%2fdatascience.stackexchange.com%2fquestions%2f45148%2fweighted-mean-with-summarise-at-dplyr%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

                    Adding axes to figuresAdding axes labels to LaTeX figuresLaTeX equivalent of ConTeXt buffersRotate a node but not its content: the case of the ellipse decorationHow to define the default vertical distance between nodes?TikZ scaling graphic and adjust node position and keep font sizeNumerical conditional within tikz keys?adding axes to shapesAlign axes across subfiguresAdding figures with a certain orderLine up nested tikz enviroments or how to get rid of themAdding axes labels to LaTeX figures

                    Tähtien Talli Jäsenet | Lähteet | NavigointivalikkoSuomen Hippos – Tähtien Talli

                    Do these cracks on my tires look bad? The Next CEO of Stack OverflowDry rot tire should I replace?Having to replace tiresFishtailed so easily? Bad tires? ABS?Filling the tires with something other than air, to avoid puncture hassles?Used Michelin tires safe to install?Do these tyre cracks necessitate replacement?Rumbling noise: tires or mechanicalIs it possible to fix noisy feathered tires?Are bad winter tires still better than summer tires in winter?Torque converter failure - Related to replacing only 2 tires?Why use snow tires on all 4 wheels on 2-wheel-drive cars?