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

                    Is there a general name for the setup in which payoffs are not known exactly but players try to influence each other's perception of the payoffs?Osborne, Nash equilibria and the correctness of beliefsIs there a name for this family of games (Binomial games?)?Perfect Bayesian EquilibriumCalculating mixed strategy equilibrium in battle of sexesPure Strategy SPNEIs there a commitment mechanism which allows players to achieve pareto optimal solutions?Extensive Form GamesAn $n$-player prisoner's dilemma where a coalition of 2 players is better off defectingTit-For-Stat Strategy Best RepliesPotential solutions of the $n$-player Prisoner's Dilemma

                    Is flight data recorder erased after every flight?When are black boxes used?What protects the location beacon (pinger) of a flight data recorder?Is there anywhere I can pick up raw flight data recorder information?Who legally owns the Flight Data Recorder?Constructing flight recorder dataWhy are FDRs and CVRs still two separate physical devices?What are the data elements shown on the GE235 flight data recorder (FDR) plot?Are CVR and FDR reset after every flight?What is the format of data stored by a Flight Data Recorder?How much data is stored in the flight data recorder per hour in a typical flight of an A380?Is a smart flight data recorder possible?

                    Rank groups within a grouped sequence of TRUE/FALSE and NAGrouping functions (tapply, by, aggregate) and the *apply familyCharacters counting and subletting specific patternsWhat is the purpose of setting a key in data.table?data.table vs dplyr: can one do something well the other can't or does poorly?how to make a bar plot for a list of dataframes?How to group by unique values in a list in RPandas - Alternative to rank() function that gives unique ordinal ranks for a columnRank within group in for loop in RData transformation: from dyadic to observational data in RGetting map from purrr to work with paste0