在条形图中使用打火机自定义颜色 请考虑： dalist = {{901, 503, 522, 1305}, {910, 512, 477, 1260}, {847, 459, 556, 1275}, {799, 517, 527, 1197}} cogColors = {RGBColor[0, 0, 1], RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[1, 1, 0]} BarChart[dalist, ChartStyle -> cogColors]

我不明白如何给列表和列表中的值分配颜色

在这里，我希望能够为每个子列表（第一个是：{9015035221305}）分配一种颜色（cogColors的部分[[]）。然后，每个条都将是较深/较浅但颜色相似的颜色。以下是所需输出（ppt）：

按Verbeia编辑

您可以使用

Blend

和

MapThread

和

Style

的这种方法来获得您想要的任何颜色组合，例如：

extColours = 
 Outer[Blend[{#1, GrayLevel[0.1]}, #2] &, cogColors, {0.2, 0.4, 0.6, 0.8}];

BarChart[MapThread[Style, {dalist, extColours}, 2]]

关键在于ChartStyle文档页面中的以下句子：

形式为ChartStyle->{spec_1，spec_2，…}，i，j。。。元素的嵌套列表中的元素 数据集的样式是通过应用spec_1[[i]]，然后 规范2[[j]]等

---

这意味着您必须找到具有累积效应的指令。不透明度和颜色的组合具有以下特点。如果您将各种颜色组合在一起，您将得到最后一种颜色。

谢谢，似乎您俩在同一分钟内就回答了！更正我之前的评论，belisarius的回答也可以与

Blend

一起使用

ExtColors=Outer[Blend[{1，灰度[0.1]}，{2]&，cogColors，{0.2，0.4，0.6，0.8}]

和

BarChart[MapThread[Style，{dalist，ExtColors}，2]

-与其他示例明显不同的颜色。（@belisarius-我将建议对您的答案进行编辑。我还没有编辑权限，所以如果您愿意，请在它被调节后回滚）@Verbeia我批准了您的编辑。奇怪的是，我的意见还不够，所以在修改之前必须得到其他编辑的批准sen@belisarius你确定？这两个代表点刚刚通过了，meta上的常见问题：@Sjoerd+10，用于理解文档中的这句话page@belisarius是的，很神秘，不是吗？如果你想更准确地控制颜色如何变亮，以及它们是否“褪色”为白色或其他颜色，请查看

混合功能。我现在还没有安装Mathematica，所以我不会将此作为答案发布。另一件事-
Opacity
并不总是能很好地处理EPS图形，所以如果您计划导出这些图形以供发布，最好以PDF格式导出。@verbeia我认为不能让Blend像上面的ChartStyle那样工作。您可以使用它来制作颜色混合和范围，但我不知道在这种多维环境中如何使用它。
extColours = 
 Outer[Blend[{#1, GrayLevel[0.1]}, #2] &, cogColors, {0.2, 0.4, 0.6, 0.8}];

BarChart[MapThread[Style, {dalist, extColours}, 2]]

BarChart[dalist, ChartStyle -> {cogColors, Opacity /@ {0.4, 0.6, 0.8, 1}}]