How to find items tied for most appearances in a list?

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
8
down vote

favorite












I want to create a list of the items in list w tied for appearing the most times in w. In other words, if 22 appears in w more than any other number, I want the result to be 22. If 34 and 55 appear the most times in w but the same number of times, I want the result to be 34,55.



The example below just uses a randomly generated list w. My method works but is ugly and inefficient.



w = RandomInteger[100, 200]
fw = w // DeleteDuplicates
wc = Counts[w]
m = Max[fw /. wc]
Reap[Do[If[(fw[[i]] /. wc) == m, Sow[fw[[i]]]], i, 1, Length[fw]]][[2, 1]]


Is there a tidier way?






list-manipulation







share|improve this question



























    up vote
    8
    down vote

    favorite












    I want to create a list of the items in list w tied for appearing the most times in w. In other words, if 22 appears in w more than any other number, I want the result to be 22. If 34 and 55 appear the most times in w but the same number of times, I want the result to be 34,55.



    The example below just uses a randomly generated list w. My method works but is ugly and inefficient.



    w = RandomInteger[100, 200]
    fw = w // DeleteDuplicates
    wc = Counts[w]
    m = Max[fw /. wc]
    Reap[Do[If[(fw[[i]] /. wc) == m, Sow[fw[[i]]]], i, 1, Length[fw]]][[2, 1]]


    Is there a tidier way?






    list-manipulation







    share|improve this question

























      up vote
      8
      down vote

      favorite









      up vote
      8
      down vote

      favorite











      I want to create a list of the items in list w tied for appearing the most times in w. In other words, if 22 appears in w more than any other number, I want the result to be 22. If 34 and 55 appear the most times in w but the same number of times, I want the result to be 34,55.



      The example below just uses a randomly generated list w. My method works but is ugly and inefficient.



      w = RandomInteger[100, 200]
      fw = w // DeleteDuplicates
      wc = Counts[w]
      m = Max[fw /. wc]
      Reap[Do[If[(fw[[i]] /. wc) == m, Sow[fw[[i]]]], i, 1, Length[fw]]][[2, 1]]


      Is there a tidier way?






      list-manipulation







      share|improve this question















      I want to create a list of the items in list w tied for appearing the most times in w. In other words, if 22 appears in w more than any other number, I want the result to be 22. If 34 and 55 appear the most times in w but the same number of times, I want the result to be 34,55.



      The example below just uses a randomly generated list w. My method works but is ugly and inefficient.



      w = RandomInteger[100, 200]
      fw = w // DeleteDuplicates
      wc = Counts[w]
      m = Max[fw /. wc]
      Reap[Do[If[(fw[[i]] /. wc) == m, Sow[fw[[i]]]], i, 1, Length[fw]]][[2, 1]]


      Is there a tidier way?






      list-manipulation




      list-manipulation






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Sep 11 at 8:55

























      asked Sep 11 at 0:55









      Jerry Guern

      1,954833




      1,954833




















          1 Answer
          1






          active

          oldest

          votes

















          up vote
          9
          down vote



          accepted










          You need Commonest:



          SeedRandom[1]
          w = RandomInteger[100, 200];

          Commonest[w]



          68, 25, 63




          % /. Counts[w]



          5, 5, 5







          share|improve this answer






















          • Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
            – Jerry Guern
            Sep 11 at 4:21






          • 1




            @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
            – kglr
            Sep 11 at 4:38











          • Okay, thanks for the followup and links.
            – Jerry Guern
            Sep 11 at 8:51










          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: "387"
          ;
          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',
          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%2fmathematica.stackexchange.com%2fquestions%2f181652%2fhow-to-find-items-tied-for-most-appearances-in-a-list%23new-answer', 'question_page');

          );

          Post as a guest

















          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes








          up vote
          9
          down vote



          accepted










          You need Commonest:



          SeedRandom[1]
          w = RandomInteger[100, 200];

          Commonest[w]



          68, 25, 63




          % /. Counts[w]



          5, 5, 5







          share|improve this answer






















          • Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
            – Jerry Guern
            Sep 11 at 4:21






          • 1




            @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
            – kglr
            Sep 11 at 4:38











          • Okay, thanks for the followup and links.
            – Jerry Guern
            Sep 11 at 8:51














          up vote
          9
          down vote



          accepted










          You need Commonest:



          SeedRandom[1]
          w = RandomInteger[100, 200];

          Commonest[w]



          68, 25, 63




          % /. Counts[w]



          5, 5, 5







          share|improve this answer






















          • Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
            – Jerry Guern
            Sep 11 at 4:21






          • 1




            @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
            – kglr
            Sep 11 at 4:38











          • Okay, thanks for the followup and links.
            – Jerry Guern
            Sep 11 at 8:51












          up vote
          9
          down vote



          accepted







          up vote
          9
          down vote



          accepted






          You need Commonest:



          SeedRandom[1]
          w = RandomInteger[100, 200];

          Commonest[w]



          68, 25, 63




          % /. Counts[w]



          5, 5, 5







          share|improve this answer














          You need Commonest:



          SeedRandom[1]
          w = RandomInteger[100, 200];

          Commonest[w]



          68, 25, 63




          % /. Counts[w]



          5, 5, 5








          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Sep 11 at 6:24

























          answered Sep 11 at 1:00









          kglr

          170k8193397




          170k8193397











          • Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
            – Jerry Guern
            Sep 11 at 4:21






          • 1




            @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
            – kglr
            Sep 11 at 4:38











          • Okay, thanks for the followup and links.
            – Jerry Guern
            Sep 11 at 8:51
















          • Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
            – Jerry Guern
            Sep 11 at 4:21






          • 1




            @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
            – kglr
            Sep 11 at 4:38











          • Okay, thanks for the followup and links.
            – Jerry Guern
            Sep 11 at 8:51















          Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
          – Jerry Guern
          Sep 11 at 4:21




          Thank you! The first part is exactly what I need. But you could explain how the syntax of the second part works? I don't even know how to look that up.
          – Jerry Guern
          Sep 11 at 4:21




          1




          1




          @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
          – kglr
          Sep 11 at 4:38





          @JerryGuern, thank you for the accept. About the last line: it gives the same result as 68, 25, 63 /. Counts[w]. % stands for the last result generated . (See Out (%) in the docs.) So the last line is the same as Count[w, #]&/@ 68,25,63. See also: Map (/@), Function (&) and Slot (#).
          – kglr
          Sep 11 at 4:38













          Okay, thanks for the followup and links.
          – Jerry Guern
          Sep 11 at 8:51




          Okay, thanks for the followup and links.
          – Jerry Guern
          Sep 11 at 8:51

















           

          draft saved


          draft discarded















































           


          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f181652%2fhow-to-find-items-tied-for-most-appearances-in-a-list%23new-answer', 'question_page');

          );

          Post as a guest
































































          -

          這個網誌中的熱門文章

          Is there any way to eliminate the singular point to solve this integral by hand or by approximations?

          圖片
          Clash Royale CLAN TAG #URR8PPP up vote 0 down vote favorite 1 $$int_0^1 (1+(x^-p-1)^1-p)^frac1pdx, pin mathbbR, pge 1$$ I find that $x=0,1$ are singular points(discontinuous points of this integral), is there a way to eliminate those singular points to make sure that this integral can be calculated by hand or by Taylor approximations. In either cases, what are those steps of calculating the integral? calculus real-analysis analysis approximation share | cite | improve this question edited Sep 11 at 5:07 asked Sep 11 at 4:48 Mclalalala 126 8 1 What is $p$? Please give more information to make it complete. – xbh Sep 11 at 5:02 @xbh already fixed it, thanks for reminding. – Mclalalala Sep 11 at 5:10 Seems that $0$ is not singular here… [I might compute wrong] – xbh Sep 11 at 5:30 @xbh can you show me how to get the close formula for the integral above? – Mclalalala Sep 11 at 5:33
          閱讀完整內容

          Why am i infinitely getting the same tweet with the Twitter Search API?

          圖片
          up vote 0 down vote favorite My code workes perfectly for other queries, but for one query I am infinitely getting the same tweet. I can't understand what the problem is. API call: query='Allergic asthma OR Nonallergic asthma OR Occupational asthma OR EIB OR Exercise-induced bronchoconstriction OR Nocturnal asthma OR Cough-variant asthma' new_tweets = api.search(q=searchQuery, count=100, since_id=since_id, lang='en',tweet_mode='extended') if not new_tweets: print("No more tweets found") break for tweet in new_tweets: if True: print(jsonpickle.encode(tweet._json, unpicklable=False)) my_file = open('searchTweets.txt','a') my_file.write(jsonpickle.encode(tweet._json, unpicklable=False)+'n') my_file.close() else: continue Output in file: https://pastebin.com/JmRCsTeE These are the JSONs of the same Tweet. Other queries that work: Breast cancer OR Prostate cancer OR Colon cancer OR Lung cancer Type 2 dia
          閱讀完整內容

          Solve: $(3xy-2ay^2)dx+(x^2-2axy)dy=0$

          圖片
          Clash Royale CLAN TAG #URR8PPP up vote 0 down vote favorite Solve: $(3xy-2ay^2)dx+(x^2-2axy)dy=0$ The given differential equation is not exact. The given differential equation is homogeneous. Therefore, $I.F=frac1Mx+Ny$ $=frac1(3xy-2ay^2)x+(x^2-2axy)y$ $=frac1xy(4x-4ay)$ With Integrating Factor of this form (ugly value), it is difficult to compute further integration, that is involved in solving the equation. So, can we not solve the equation using the rule: If in the differential eqn $Mdx+Ndy=0$, provided $ Mx+Ny ne 0$, andM and N ar eboth homogeneous then $I.F=frac1Mx+Ny$ differential-equations share | cite | improve this question edited Aug 8 at 9:19 asked Aug 8 at 9:13 Soumee 626 2 13 put $y=vx,$ ............. – Magneto Aug 8 at 9:44 add a comment  |  up vote 0 down vote favorite Solve: $(3xy-2ay^2)dx+(x^2-2axy)dy=0$ The given differential equation is not exact. The given differential eq
          閱讀完整內容