Message Boards

WOLFRAM COMMUNITY

1812 Views

3 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Data Science Mathematica

How to insert a dataset inside another one?

Ehud Behar

Posted 1 year ago

I have the following two datasets: Dataset[{ <\|"Date" -> DateObject[{2024, 1, 10}]\|>, <\|"Collection-area" -> Quantity[3, ("Centimeters")^2]\|>, <\|"Integration Time" -> Quantity[2.1, "Seconds"]\|> }] and Dataset[{ <\|"\[Lambda]" -> Quantity[195.050, "Nanometers"], "r" -> Quantity[2.9, "Watts"]\|>, <\|"\[Lambda]" -> Quantity[196.000, "Nanometers"], "r" -> Quantity[2.1, "Watts"]\|>, <\|"\[Lambda]" -> Quantity[196.050, "Nanometers"], "r" -> Quantity[2.6, "Watts"]\|> }] How can I merge them into a new dataset that looks the following:

I have the following two datasets:

Dataset[{
  <|"Date" -> DateObject[{2024, 1, 10}]|>,
  <|"Collection-area" -> Quantity[3, ("Centimeters")^2]|>,
  <|"Integration Time" -> Quantity[2.1, "Seconds"]|>
  }]

and

Dataset[{
  <|"\[Lambda]" -> Quantity[195.050, "Nanometers"], "r" -> Quantity[2.9, "Watts"]|>,
  <|"\[Lambda]" -> Quantity[196.000, "Nanometers"], "r" -> Quantity[2.1, "Watts"]|>,
  <|"\[Lambda]" -> Quantity[196.050, "Nanometers"], "r" -> Quantity[2.6, "Watts"]|>
  }]

How can I merge them into a new dataset that looks the following:

enter image description here

POSTED BY: Ehud Behar

3 Replies

Sort By:

Carl Verdon

Carl Verdon, Ctrs Disease Control & Prevention

Posted 11 months ago

To approximate the look you want, is this good enough? Column[{d1, d2}, Alignment -> Center, Spacings -> 1, Frame -> True, FrameStyle -> Gray] Out[] = Otherwise, you can alternatively do this: Dataset[{ <\|"Date" -> DateObject[{2024, 1, 10}]\|>, <\|"Collection-area" -> Quantity[3, ("Centimeters")^2]\|>, <\|"Integration Time" -> Quantity[2.1, "Seconds"]\|>, <\|"\[Lambda],r" -> d2 }]

To approximate the look you want, is this good enough?

Column[{d1, d2}, Alignment -> Center, Spacings -> 1, Frame -> True, 
 FrameStyle -> Gray]

Out[] = enter image description here

Otherwise, you can alternatively do this:

Dataset[{
    <|"Date" -> DateObject[{2024, 1, 10}]|>,
    <|"Collection-area" -> Quantity[3, ("Centimeters")^2]|>,
    <|"Integration Time" -> Quantity[2.1, "Seconds"]|>, 
    <|"\[Lambda],r" -> d2
    }]

POSTED BY: Carl Verdon

Eric Rimbey

Posted 1 year ago

For your expected dataset, did you use actual code to create that, or is it just a graphic or some other "fake". If I could see the actual structure of that dataset, it would be easier. But anyway, in the meantime, this is close: d1 = Dataset[{<\|"Date" -> DateObject[{2024, 1, 10}]\|>, <\|"Collection-area" -> Quantity[3, ("Centimeters")^2]\|>, <\|"Integration Time" -> Quantity[2.1, "Seconds"]\|>}]; d2 = Dataset[{<\|"\[Lambda]" -> Quantity[195.050, "Nanometers"], "r" -> Quantity[2.9, "Watts"]\|>, <\|"\[Lambda]" -> Quantity[196.000, "Nanometers"], "r" -> Quantity[2.1, "Watts"]\|>, <\|"\[Lambda]" -> Quantity[196.050, "Nanometers"], "r" -> Quantity[2.6, "Watts"]\|>}]; Dataset[Append[d1, Merge[d2, Dataset]]]

For your expected dataset, did you use actual code to create that, or is it just a graphic or some other "fake". If I could see the actual structure of that dataset, it would be easier. But anyway, in the meantime, this is close:

d1 = Dataset[{<|"Date" -> DateObject[{2024, 1, 10}]|>, 
              <|"Collection-area" -> Quantity[3, ("Centimeters")^2]|>, 
              <|"Integration Time" -> Quantity[2.1, "Seconds"]|>}];
d2 = Dataset[{<|"\[Lambda]" -> Quantity[195.050, "Nanometers"], "r" -> Quantity[2.9, "Watts"]|>, 
              <|"\[Lambda]" -> Quantity[196.000, "Nanometers"], "r" -> Quantity[2.1, "Watts"]|>, 
              <|"\[Lambda]" -> Quantity[196.050, "Nanometers"], "r" -> Quantity[2.6, "Watts"]|>}];
Dataset[Append[d1, Merge[d2, Dataset]]]

POSTED BY: Eric Rimbey

Ehud Behar

Posted 1 year ago

It is faked, with Microsoft Paint :Facepalming:

POSTED BY: Ehud Behar

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback