Formatting a table to look niceHow to create a Table of Tables with indexed variablesTable shifting...

What could be a means to defeat a childrens’ nightmare?

Should we avoid writing fiction about historical events without extensive research?

How can I be pwned if I'm not registered on the compromised site?

Inconsistent behaviour between dict.values() and dict.keys() equality in Python 3.x and Python 2.7

When to use mean vs median

How to disable or uninstall iTunes under High Sierra without disabling SIP

Why doesn't "adolescent" take any articles in "listen to adolescent agonising"?

Can we carry rice to Japan?

How do you say “my friend is throwing a party, do you wanna come?” in german

How to fix my table, centering of columns

School performs periodic password audits. Is my password compromised?

Why is my Contribution Detail Report (native CiviCRM Core report) not accurate?

When was drinking water recognized as crucial in marathon running?

Being asked to review a paper in conference one has submitted to

Sometimes a banana is just a banana

Where is the fallacy here?

Wardrobe above a wall with fuse boxes

What does each site of a vanilla 9.1 installation do?

How can I highlight parts in a screenshot

Why won't the strings command stop?

Specific Chinese carabiner QA?

Where is this quote about overcoming the impossible said in "Interstellar"?

Correct physics behind the colors on CD (compact disc)?

Was it really inappropriate to write a pull request for the company I interviewed with?



Formatting a table to look nice


How to create a Table of Tables with indexed variablesTable shifting bug?Transposing a tableHow to create a table of tables with different table lengths?Looping with “Table” over two variablesHow to plot data from table dynamically, without knowing how many columns are there?Creating iterations on a circle using the Table functionProgress bar / counter for multi-row table with 2 variablesPlotting in Table[…]Attempting to fill a table with the number of elements in each bin and make a table with the elements in the bins?













3












$begingroup$


my current code is:



binsize = 21;
data = {535, 481, 554, 567, 565, 513, 526, 506, 565, 475, 552, 533,
474, 556, 520, 508, 597, 479, 537, 499, 546, 473, 579, 526, 594,
477, 518, 538, 497, 565};
firstbin = 472;
a = BinCounts[data, {firstbin, Max[data] + binsize, binsize}];
b = Range[firstbin, Max[data] + binsize, binsize];
Transpose[{Take[b, Length[a]], a}] // TableForm


Which does give me a nice table, however I would like the bins to be labeled something like "472-492 6" instead of just "472 6"



any advice would be great, thank you.










share|improve this question











$endgroup$

















    3












    $begingroup$


    my current code is:



    binsize = 21;
    data = {535, 481, 554, 567, 565, 513, 526, 506, 565, 475, 552, 533,
    474, 556, 520, 508, 597, 479, 537, 499, 546, 473, 579, 526, 594,
    477, 518, 538, 497, 565};
    firstbin = 472;
    a = BinCounts[data, {firstbin, Max[data] + binsize, binsize}];
    b = Range[firstbin, Max[data] + binsize, binsize];
    Transpose[{Take[b, Length[a]], a}] // TableForm


    Which does give me a nice table, however I would like the bins to be labeled something like "472-492 6" instead of just "472 6"



    any advice would be great, thank you.










    share|improve this question











    $endgroup$















      3












      3








      3


      1



      $begingroup$


      my current code is:



      binsize = 21;
      data = {535, 481, 554, 567, 565, 513, 526, 506, 565, 475, 552, 533,
      474, 556, 520, 508, 597, 479, 537, 499, 546, 473, 579, 526, 594,
      477, 518, 538, 497, 565};
      firstbin = 472;
      a = BinCounts[data, {firstbin, Max[data] + binsize, binsize}];
      b = Range[firstbin, Max[data] + binsize, binsize];
      Transpose[{Take[b, Length[a]], a}] // TableForm


      Which does give me a nice table, however I would like the bins to be labeled something like "472-492 6" instead of just "472 6"



      any advice would be great, thank you.










      share|improve this question











      $endgroup$




      my current code is:



      binsize = 21;
      data = {535, 481, 554, 567, 565, 513, 526, 506, 565, 475, 552, 533,
      474, 556, 520, 508, 597, 479, 537, 499, 546, 473, 579, 526, 594,
      477, 518, 538, 497, 565};
      firstbin = 472;
      a = BinCounts[data, {firstbin, Max[data] + binsize, binsize}];
      b = Range[firstbin, Max[data] + binsize, binsize];
      Transpose[{Take[b, Length[a]], a}] // TableForm


      Which does give me a nice table, however I would like the bins to be labeled something like "472-492 6" instead of just "472 6"



      any advice would be great, thank you.







      table formatting






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 1 hour ago







      Wombles

















      asked 1 hour ago









      WomblesWombles

      334




      334






















          2 Answers
          2






          active

          oldest

          votes


















          4












          $begingroup$

          {binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];
          bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];
          TableForm[Transpose[{bins, bincounts}]]


          enter image description here






          share|improve this answer









          $endgroup$













          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            1 hour ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            1 hour ago



















          1












          $begingroup$

          Here is one way:



          bb = b - 1;
          c = Complement[bb, {Min[bb]}];
          Transpose[{Take[b, Length[a]], ConstantArray["---", Length[a]], c, a}] // TableForm


          Here is the output:



          enter image description here






          share|improve this answer











          $endgroup$













          • $begingroup$
            I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
            $endgroup$
            – mjw
            1 hour ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            57 mins ago











          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',
          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%2fmathematica.stackexchange.com%2fquestions%2f192750%2fformatting-a-table-to-look-nice%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          2 Answers
          2






          active

          oldest

          votes








          2 Answers
          2






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          4












          $begingroup$

          {binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];
          bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];
          TableForm[Transpose[{bins, bincounts}]]


          enter image description here






          share|improve this answer









          $endgroup$













          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            1 hour ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            1 hour ago
















          4












          $begingroup$

          {binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];
          bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];
          TableForm[Transpose[{bins, bincounts}]]


          enter image description here






          share|improve this answer









          $endgroup$













          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            1 hour ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            1 hour ago














          4












          4








          4





          $begingroup$

          {binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];
          bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];
          TableForm[Transpose[{bins, bincounts}]]


          enter image description here






          share|improve this answer









          $endgroup$



          {binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];
          bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];
          TableForm[Transpose[{bins, bincounts}]]


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 1 hour ago









          kglrkglr

          187k10203421




          187k10203421












          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            1 hour ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            1 hour ago


















          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            1 hour ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            1 hour ago
















          $begingroup$
          Thank you very much!
          $endgroup$
          – Wombles
          1 hour ago




          $begingroup$
          Thank you very much!
          $endgroup$
          – Wombles
          1 hour ago












          $begingroup$
          @Wombles, you are welcome.
          $endgroup$
          – kglr
          1 hour ago




          $begingroup$
          @Wombles, you are welcome.
          $endgroup$
          – kglr
          1 hour ago











          1












          $begingroup$

          Here is one way:



          bb = b - 1;
          c = Complement[bb, {Min[bb]}];
          Transpose[{Take[b, Length[a]], ConstantArray["---", Length[a]], c, a}] // TableForm


          Here is the output:



          enter image description here






          share|improve this answer











          $endgroup$













          • $begingroup$
            I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
            $endgroup$
            – mjw
            1 hour ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            57 mins ago
















          1












          $begingroup$

          Here is one way:



          bb = b - 1;
          c = Complement[bb, {Min[bb]}];
          Transpose[{Take[b, Length[a]], ConstantArray["---", Length[a]], c, a}] // TableForm


          Here is the output:



          enter image description here






          share|improve this answer











          $endgroup$













          • $begingroup$
            I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
            $endgroup$
            – mjw
            1 hour ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            57 mins ago














          1












          1








          1





          $begingroup$

          Here is one way:



          bb = b - 1;
          c = Complement[bb, {Min[bb]}];
          Transpose[{Take[b, Length[a]], ConstantArray["---", Length[a]], c, a}] // TableForm


          Here is the output:



          enter image description here






          share|improve this answer











          $endgroup$



          Here is one way:



          bb = b - 1;
          c = Complement[bb, {Min[bb]}];
          Transpose[{Take[b, Length[a]], ConstantArray["---", Length[a]], c, a}] // TableForm


          Here is the output:



          enter image description here







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 1 hour ago

























          answered 1 hour ago









          mjwmjw

          4228




          4228












          • $begingroup$
            I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
            $endgroup$
            – mjw
            1 hour ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            57 mins ago


















          • $begingroup$
            I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
            $endgroup$
            – mjw
            1 hour ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            57 mins ago
















          $begingroup$
          I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
          $endgroup$
          – mjw
          1 hour ago




          $begingroup$
          I wish I knew more about string manipulation to get the first three columns to combine to one column of text!
          $endgroup$
          – mjw
          1 hour ago












          $begingroup$
          You might want ToString and StringJoin
          $endgroup$
          – MarcoB
          57 mins ago




          $begingroup$
          You might want ToString and StringJoin
          $endgroup$
          – MarcoB
          57 mins ago


















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Mathematica 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%2fmathematica.stackexchange.com%2fquestions%2f192750%2fformatting-a-table-to-look-nice%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

          IEEEtran - How to include ORCID in TeX/PDF with PdfLatexIs there a standard way to include ORCID in TeX /...

          Cicindela nigrior Przypisy | Menu nawigacyjneCicindela varians unicolorManual for the Identification of the...

          Glossaries-extra: Adding glossaries package to “Clas­sicTh­e­sis” template by Dr. André Miede v. 4.6 ...