The format of my data looks like:
{"Name", "HDNumber", "SpectralClass", "BVColorIndex", \
"EffectiveTemperature", "Mass", "Luminosity", "AbsoluteMagnitude", \
"ApparentMagnitude", "RightAscension", "Declination", \
"ConstellationName"}
I import and join classes of formatted AstronomicalData like:
importClassBStar1 = Import["tableClassBStar1.tsv", {"Data", {All}}, "HeaderLines" -> 1];
importClassBStar2 = Import["tableClassBStar2.tsv", {"Data", {All}}, "HeaderLines" -> 1];
importClassBStar3 = Import["tableClassBStar3.tsv", {"Data", {All}}, "HeaderLines" -> 1];
importClassBStar4 = Import["tableClassBStar4.tsv", {"Data", {All}}, "HeaderLines" -> 1];
importClassBStar = Join[importClassBStar1, importClassBStar2, importClassBStar3, importClassBStar4];
I then use Manipulate to vary the plot type and the targeted class of AstronomicalData:
Manipulate[
plotType[Tooltip[{#6, #7}, {#3, #6, #7}] & @@@ category,
PlotRange -> Automatic, ImageSize -> Large,
AxesLabel -> {"Mass", "Luminosity"}, PlotStyle -> Red,
PlotLabel -> "Mass vs Luminosity"],
{{plotType, ListLogLogPlot }, {ListPlot, ListLogPlot, ListLogLogPlot}},
{{category, importSubgiant }, {
importClassAStar -> "ClassA",
importClassBStar -> "ClassB",
importClassMStar -> "ClassM",
importClassOStar -> "ClassO",
importSubgiant -> "Subgiant",
importSupergiant -> "Supergiant",
importVariableStar -> "VariableStar",
unionGiants -> "UnionGiants",
unionAll -> "UnionAll"
}}]
ListPicker[Dynamic[a],
{
importClassAStar -> "ClassA",
importClassBStar -> "ClassB",
importClassMStar -> "ClassM",
importClassOStar -> "ClassO",
importSubgiant -> "Subgiant",
importSupergiant -> "Supergiant",
importVariableStar -> "VariableStar",
unionGiants -> "UnionGiants",
unionAll -> "UnionAll"
}
] ;
What I would like to do is replace the static slot numbers:
plotType[Tooltip[{#6, #7}, {#3, #6, #7}]
with something like:
plotType[Tooltip[{column1, column2}, {#3, column1, column2}],
{{column1, #6}, {#4, #5, #6, #7, #8}},
{{column2, #7}, {#4, #5, #6, #7, #8}},
Any ideas would be welcomed. Thanks!
Association
andDataset
? $\endgroup$ – Edmund Jul 2 '16 at 20:08