Ygthkb

3.5% Interest Student Loan or use all of my savings on Tuition?

What is a term for a function that when called repeatedly, has the same effect as calling once?

Is there a frame of reference in which I was born before I was conceived?

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

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

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

Why are special aircraft used for the carriers in the United States Navy?

Giving a talk in my old university, how prominently should I tell students my salary?

Relationship between the symmetry number of a molecule as used in rotational spectroscopy and point group

How to kill a localhost:8080

Can a space-faring robot still function over a billion years?

Where is the fallacy here?

Has Wakanda ever accepted refugees?

How can neutral atoms have exactly zero electric field when there is a difference in the positions of the charges?

How to fix my table, centering of columns

Plagiarism of code by other PhD student

Why would the IRS ask for birth certificates or even audit a small tax return?

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

Is there a math equivalent to the conditional ternary operator?

How to merge row in the first column in LaTeX

Wardrobe above a wall with fuse boxes

If there are any 3nion, 5nion, 7nion, 9nion, 10nion, etc.

The Ohm's law calculations of the parts do not agree with the whole

Lock enemy's y-axis when using Vector3.MoveTowards to follow the player

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?

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

edited 2 hours ago

Wombles

asked 2 hours ago

WomblesWombles

384

$endgroup$

add a comment | 

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

edited 2 hours ago

Wombles

asked 2 hours ago

WomblesWombles

384

$endgroup$

add a comment | 

$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

edited 2 hours ago

Wombles

asked 2 hours ago

WomblesWombles

384

$endgroup$

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

share|improve this question

edited 2 hours ago

Wombles

asked 2 hours ago

WomblesWombles

384

share|improve this question

edited 2 hours ago

Wombles

asked 2 hours ago

WomblesWombles

384

asked 2 hours ago

WomblesWombles

384

asked 2 hours ago

WomblesWombles

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}]]

share|improve this answer

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

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:

share|improve this answer

edited 2 hours ago

answered 2 hours ago

mjwmjw

4228

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

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You might want ToString and StringJoin
  $endgroup$
  – MarcoB
  1 hour ago
  

  
  
  
  

add a comment | 

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

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

6

$begingroup$

{binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];

bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];

TableForm[Transpose[{bins, bincounts}]]

share|improve this answer

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

6

$begingroup$

{binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];

bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];

TableForm[Transpose[{bins, bincounts}]]

share|improve this answer

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

$begingroup$

{binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];

bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];

TableForm[Transpose[{bins, bincounts}]]

share|improve this answer

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

{binlims, bincounts} = HistogramList[data, {firstbin, Max[data] + binsize, binsize}];

bins = Row[{#, #2 - 1}, "-"] & @@@ Partition[binlims, 2, 1];

TableForm[Transpose[{bins, bincounts}]]

share|improve this answer

answered 2 hours ago

kglrkglr

187k10203421

answered 2 hours ago

kglrkglr

187k10203421

answered 2 hours ago

kglrkglr

187k10203421

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:

share|improve this answer

edited 2 hours ago

answered 2 hours ago

mjwmjw

4228

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

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You might want ToString and StringJoin
  $endgroup$
  – MarcoB
  1 hour ago
  

  
  
  
  

add a comment | 

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:

share|improve this answer

edited 2 hours ago

answered 2 hours ago

mjwmjw

4228

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

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You might want ToString and StringJoin
  $endgroup$
  – MarcoB
  1 hour ago
  

  
  
  
  

add a comment | 

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

share|improve this answer

edited 2 hours ago

answered 2 hours ago

mjwmjw

4228

$endgroup$

bb = b - 1;

c = Complement[bb, {Min[bb]}];

Transpose[{Take[b, Length[a]], ConstantArray["---", Length[a]], c, a}] // TableForm

share|improve this answer

edited 2 hours ago

answered 2 hours ago

mjwmjw

4228

answered 2 hours ago

mjwmjw

4228

answered 2 hours ago

mjwmjw

4228