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

                    Marja Vauras Lähteet | Aiheesta muualla | NavigointivalikkoMarja Vauras Turun yliopiston tutkimusportaalissaInfobox OKSuomalaisen Tiedeakatemian varsinaiset jäsenetKasvatustieteiden tiedekunnan dekaanit ja muu johtoMarja VaurasKoulutusvienti on kestävyys- ja ketteryyslaji (2.5.2017)laajentamallaWorldCat Identities0000 0001 0855 9405n86069603utb201588738523620927

                    Which is better: GPT or RelGAN for text generation?2019 Community Moderator ElectionWhat is the difference between TextGAN and LM for text generation?GANs (generative adversarial networks) possible for text as well?Generator loss not decreasing- text to image synthesisChoosing a right algorithm for template-based text generationHow should I format input and output for text generation with LSTMsGumbel Softmax vs Vanilla Softmax for GAN trainingWhich neural network to choose for classification from text/speech?NLP text autoencoder that generates text in poetic meterWhat is the interpretation of the expectation notation in the GAN formulation?What is the difference between TextGAN and LM for text generation?How to prepare the data for text generation task

                    Is this part of the description of the Archfey warlock's Misty Escape feature redundant?When is entropic ward considered “used”?How does the reaction timing work for Wrath of the Storm? Can it potentially prevent the damage from the triggering attack?Does the Dark Arts Archlich warlock patrons's Arcane Invisibility activate every time you cast a level 1+ spell?When attacking while invisible, when exactly does invisibility break?Can I cast Hellish Rebuke on my turn?Do I have to “pre-cast” a reaction spell in order for it to be triggered?What happens if a Player Misty Escapes into an Invisible CreatureCan a reaction interrupt multiattack?Does the Fiend-patron warlock's Hurl Through Hell feature dispel effects that require the target to be on the same plane as the caster?What are you allowed to do while using the Warlock's Eldritch Master feature?