Mathematica 中绘图的标准颜色是什么？

Question

（注意：此问题的所有答案对于版本 10 之前的 Mathematica 版本均有效。对于版本 10 及更高版本，请参阅 https://mathematica.stackexchange.com/questions/54486/how-to-access-new-colour-schemes-in-version -10 和 https:// /mathematica.stackexchange.com/questions/54629/what-are-the-standard-colors-for-plots-in-mathematica-10。）

当使用绘图或Mathematica 中的 >ListPlot 命令，选择某些默认颜色。

出于某些报告中统一性的原因，我想将它们与 PlotStyle 选项一起使用。事实证明，我无法使用预定义的颜色名称重现默认颜色，尽管蓝色和紫色似乎在某种程度上很接近。

因此我的问题是：

<块引用>

如何选择 Mathematica 在绘图中与 PlotStyle 一起使用的标准颜色？

先感谢您。

很好的答案由belisarius和Sjoerd 从中我们可以得出结论：

<块引用>

Plot[Sin[x], {x, 0, 2 Pi}, PlotStyle ->颜色数据[1, 4]]

将导致以第四个标准颜色（一些漂亮的绿色）绘制正弦。

Answer 1

我知道这确实迟到了，但是用于生成 ColorData[1]< 中的第 n 颜色的表达式/code> 是：

Hue[FractionalPart[0.67 + 2.0 (i - 1)/GoldenRatio], 0.6, 0.6]

更新 根据下面 Alexey 的评论，您可以使用以下命令找到它：

ColorData[1] // InputForm

Answer 2

Plot 使用的颜色位于 ColorData[1] 中。

比较

Graphics[MapIndexed[{#1, 
    Tooltip[Rectangle[{#2[[1]], 0}, {#2[[1]] + 1, 1}], #1]} &, 
  ColorData[1] /@ Range[40]]]

与 贝利萨留的颜色

Graphics[MapIndexed[{#1, 
    Tooltip[Rectangle[{#2[[1]], 0}, {#2[[1]] + 1, 1}], #1]} &, 
  Cases[ListPlot[Table[{i}, {i, 40}]], Hue[x__], Infinity]]]

它们是相同的，除了一个是 Hue 术语，另一个是 RGBColor 术语

Answer 3

如果这样做：

ListPlot[Table[{i}, {i, 10}]] // FullForm  

您将获得前 10 个使用的色调。

或者这为您提供了一个随时可用的列表：

hues = Cases[ListPlot[Table[{i}, {i, 10}]], Hue[x__], Infinity]

{Hue[0.67, 0.6, 0.6],     Hue[0.906068, 0.6, 0.6], 
 Hue[0.142136, 0.6, 0.6], Hue[0.378204, 0.6, 0.6], 
 Hue[0.614272, 0.6, 0.6], Hue[0.85034, 0.6, 0.6], 
 Hue[0.0864079, 0.6, 0.6],Hue[0.322476, 0.6, 0.6], 
 Hue[0.558544, 0.6, 0.6], Hue[0.794612, 0.6, 0.6]}  

使用示例：

SphericalPlot3D[\[Phi], {\[Theta], 0, Pi}, {\[Phi], 0, 3 Pi},
 Epilog -> 
  Table[Inset[Framed[Style["Spiral", 20],
        Background -> hues[[i]]],
             {i/15 + .1, i/15}], 
  {i, 10}]]  

如果您更喜欢 RGB 色彩空间，您可以做：

rgbs= ColorConvert[#, "RGB"] & /@ hues

**编辑 ** 与 Eli 的公式相比：

mine = Cases[ListPlot[Table[{i}, {i, 10}]], Hue[x__], Infinity]
elis = Table[Hue[FractionalPart[0.67 + 2.0 (i-1)/GoldenRatio],0.6,0.6], {i,1,10}]
Chop[(mine- elis) /. Hue[x_, __] -> x]
(* -> {0, 0, 0, 0, 0, 0, 0, 0, 0, 0} *)

太棒了，Eli！