Formatting a table to look nice












4












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






table formatting







share|improve this question











$endgroup$

















    4












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






    table formatting







    share|improve this question











    $endgroup$















      4












      4








      4


      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.






      table formatting







      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




      table formatting






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 4 hours ago







      Wombles

















      asked 4 hours ago









      WomblesWombles

      384




      384






















          2 Answers
          2






          active

          oldest

          votes


















          6












          $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
            4 hours ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            4 hours ago



















          2












          $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
            4 hours ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            3 hours 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









          6












          $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
            4 hours ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            4 hours ago
















          6












          $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
            4 hours ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            4 hours ago














          6












          6








          6





          $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 4 hours ago









          kglrkglr

          187k10203421




          187k10203421












          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            4 hours ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            4 hours ago


















          • $begingroup$
            Thank you very much!
            $endgroup$
            – Wombles
            4 hours ago










          • $begingroup$
            @Wombles, you are welcome.
            $endgroup$
            – kglr
            4 hours ago
















          $begingroup$
          Thank you very much!
          $endgroup$
          – Wombles
          4 hours ago




          $begingroup$
          Thank you very much!
          $endgroup$
          – Wombles
          4 hours ago












          $begingroup$
          @Wombles, you are welcome.
          $endgroup$
          – kglr
          4 hours ago




          $begingroup$
          @Wombles, you are welcome.
          $endgroup$
          – kglr
          4 hours ago











          2












          $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
            4 hours ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            3 hours ago
















          2












          $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
            4 hours ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            3 hours ago














          2












          2








          2





          $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 4 hours ago

























          answered 4 hours ago









          mjwmjw

          4328




          4328












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










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            3 hours 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
            4 hours ago










          • $begingroup$
            You might want ToString and StringJoin
            $endgroup$
            – MarcoB
            3 hours 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
          4 hours 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
          4 hours ago












          $begingroup$
          You might want ToString and StringJoin
          $endgroup$
          – MarcoB
          3 hours ago




          $begingroup$
          You might want ToString and StringJoin
          $endgroup$
          – MarcoB
          3 hours 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

          How did Captain America manage to do this?

          Image
          2 How does Captain America lift Thor's hammer? In Avengers: Age of Ultron , he is not worthy but how he is worthy in this film. plot-explanation marvel-cinematic-universe avengers-age-of-ultron avengers-endgame share | improve this question edited 19 mins ago A J ♦ 42.7k 16 229 246 asked 39 mins ago Andi AR Andi AR 325 1 4 14
          Read more

          迪纳利

          Image
          迪纳利峰 位于迪纳利国家公园和保留区的迪纳利峰（旧名麦金利峰） 最高点 海拔 20,237英尺（6,168米）   NGVD 29 . [1] [2] 相對高度 20,073英尺（6,118米） 列表 各洲最高峰列表 特独立山峰 各国最高点列表 美国最高点  排名第一 [3] 坐标 63°04′10″N 151°00′27″W  /  63.06944°N 151.00750°W  / 63.06944; -151.00750  ( Mount McKinley ) 坐标： 63°04′10″N 151°00′27″W  /  63.06944°N 151.00750°W  / 63.06944; -151.00750  ( Mount McKinley )   地理 位置   美國阿拉斯加州迪纳利自治市镇 迪纳利国家公园和保留区 山脈 阿拉斯加山脉 攀山 首次登頂 （ 英语 ： First ascent ） 1913年6月7日 哈德逊·史塔克 哈里·卡斯坦斯 沃尔特·哈珀 罗伯特·塔特姆 最簡路線 西坡路线（攀登冰川/雪） 迪纳利 （北阿萨巴斯卡语支、 英语： Denali ， / d ᵻ ˈ n ɑː l i / ，直译“高山”），1917年至2015年官方名称为 麦金利山 （另译作 麦金利峰 ， 英语： Mount McKinley ），位于阿拉斯加州东南部、阿拉斯加山脉中段，海拔6194米，是北美洲最高峰，也是美国的最高峰。它的俄语名称是 Большая Гора ， 罗马化：Bolshaya Gora ，意思是“大山”。 迪纳利山地区拥有变幻莫测的高山风、典型的北极植被以及野生动植物。这里大部分地区终年积雪，山间经常浓雾不断，雾气在皑皑白雪中缭绕弥漫时，几百米之外的景物便不可见。夏季，迪纳利山的青青山坡上鲜花盛开，紫色的杜鹃和精巧的铃状石南花随处可见。迪纳利山还是世界登山爱好者的汇集之地。每年5月到7月有数百人登山，只有一半不到的人能登顶成功。一次登山约花3个星期。 2015年8月31日，美國政府宣佈將山名由“麦金利山”改回原名“迪纳利山”。美國內政部發表聲
          Read more

          南乌拉尔铁路局

          Image
          南乌拉尔铁路局 Южно-Уральская железная дорога 成立 1934年1月4日 国家   蘇聯（1934年—1991年）   俄羅斯（1991年—） 总部 车里雅宾斯克 隶属 俄罗斯铁路股份公司 路局代码 80 铁路里程 4,934.9公里 奖项 网址 http://yuzd.rzd.ru/ 查 论 编 南乌拉尔铁路局 （俄语： Южно-Уральская железная дорога ， 羅馬化： Yuzhno-Uralskaya zheleznaya doroga ，简称 ЮУЖД ）是俄罗斯铁路股份公司属下的铁路管理局之一，总部位于车里雅宾斯克，负责管辖俄罗斯联邦乌拉尔南部地区的铁路系统，范围包括奥伦堡州、车里雅宾斯克州、库尔干州的大部分铁路，以及萨马拉州、斯维尔德洛夫斯克州、巴什科尔托斯坦共和国的少部分铁路，并有部分铁路延伸至或穿过哈萨克斯坦境内。南乌拉尔铁路局的营业里程为4,934.9公里，与伏尔加铁路局、古比雪夫铁路局、斯维尔德洛夫斯克铁路局、西西伯利亚铁路局相邻，并与南方的哈萨克斯坦铁路连接。 外部链接 （俄文） Южно-Уральская железная дорога — филиал ОАО РЖД （俄文） 南乌拉尔铁路局管辖路线图（一） （俄文） 南乌拉尔铁路局管辖路线图（二） 查 论 编 俄罗斯铁路（集团）股份公司 十月铁路局 · 莫斯科铁路局 · 北高加索铁路局 · 高尔基铁路局 · 古比雪夫铁路局 · 北方铁路局 · 伏尔加铁路局 · 东南铁路局 · 斯维尔德洛夫斯克铁路局 · 南乌拉尔铁路局 · 西西伯利亚铁路局 · 克拉斯诺亚尔斯克铁路局 · 东西伯利亚铁路局 · 后贝加尔铁路局 · 远东铁路局 · 加里宁格勒铁路局 This page is only for reference, If you need detailed information, please check here
          Read more