How to insert a dataset inside another one?

Questions
,
1

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:

aaa.png
aaa.png398×260 3.61 KB

2

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

It is faked, with Microsoft Paint :Facepalming:

4

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

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

Out[] =

Showtwodatasetsgroupedtogether.jpg
Showtwodatasetsgroupedtogether.jpg504×424 18.3 KB

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