考虑以下数据示例:
data ={
{"a", "b", "c", "d", "e"},
{1, 2, 3, 4, 5},
{11, 12, 13, 14, 15},
{21, 22, 23, 24, 25}
};
以及以下函数来生成自定义表格表示:
(并且您可以参考Mr.Wizard 用于可定制表格表示的广泛解决方案 https://stackoverflow.com/questions/6159392/create-a-function-for-customized-tabular-representation。最终我也会暂时操纵他提供的选项)
DataSampleX[data_, linesNumber_, range1_, range2_, color1_, color2_, color3_] :=
Grid[
Join[
{Range[range1, range2]}, {Map[Rotate[Text[#], 90 Degree] &,
data[[1, range1 ;; range2]]]},
data[[2 ;; linesNumber, range1 ;; range2]]
],
Background -> {{{{color1, color2}}, {1 -> color3}}},
Dividers -> {All, {1 -> True, 2 -> True, 3 -> True,0 -> True}},
ItemSize -> {1 -> Automatic, Automatic},
Alignment -> Top,
Frame -> True,
FrameStyle -> Thickness[2],
ItemStyle -> {Automatic, Automatic,
{{1, 1}, {1, Length[data]}} ->Directive[FontSize ->
15, Black, Bold]}
];
我想使用 Manipulate 或 Dynamic 来使用上述内容显示我的部分数据。
这选择了我想要显示的列的范围、要显示的行数以及颜色。
以下是我未完成的尝试。
PopupMenu[Dynamic[range1], Range[1, Length@data[[1]] - 1, 1]]
PopupMenu[Dynamic[range2], Range[2, Length@data[[1]], 1]]
PopupMenu[Dynamic[linesNumber], Range[2, Length@data[[All, 1]] - 1, 1]]
Dynamic[DataSampleX[data, linesNumber, range1, range2, LightBlue,
LightGray, LightYellow]]
如何使用设置器来更新颜色值?
是否可以在 Manipulate 窗口中实际使用它?
欢迎任何其他使这种高效看起来不错的建议。
-编辑:由于下面的贝利撒留解决方案,我现在能够做的事情: