第一次执行代码时颜色不正确

我有一段代码可以在一页上绘制多个堆叠条形图。我指定了一个调色板，以便每个数据组都与每个图表中的相同颜色相关联。我发现第一个图表中的颜色不正确，但在所有后续图表中都是正确的。如果我在同一个 R 会话中重新运行代码，所有图表都具有正确的颜色。但是，如果我退出 R 并运行代码，第一个图表再次出现错误的颜色。

我的代码非常复杂，因此我整理了一个简单的示例来说明问题。同样，在启动新的 R 会话后第一次运行代码时，颜色不正确。如果代码在同一个 R 会话中重新运行，它们是正确的。

# Data vector for bar plot,
#
dvec        <- c(   0,     0,    0,    0,     0,     0,
                    0,     0,    0,    0,     0,     0,
                    0,     0,    0,    0,     0,     0,
                 1.73,     0,    0,    0,     0,     0,
                 4.81,     0,    0, 0.03,  0.03,     0,
                 2.77,     0,    0, 0.42,  1.04,     0,
                 2.84,  0.02,    0, 2.25,  4.21,  0.02,
                 1.32,  0.54, 0.01, 3.44, 10.49,  0.01,
                 0.13,  1.63, 0.02, 4.42, 17.70,  0.03,
                 0.08,  2.49, 0.03, 8.64, 31.07,  0.02,  
                    0,  3.08, 0.05, 9.04, 50.22,  0.01)

# matrix to pass to barplot, 12 columns, 6 rows

smat <- matrix(dvec,nrow=6)                    

# use this color palette and plot the barchart

zoopal <- palette(c("magenta","red","darkred","yellow","cyan","blue"))

barplot(smat,space=0,col=zoopal,axes=FALSE,axisnames=FALSE,
                  xaxs="i",yaxs="i",ann=FALSE)    

The first time I run the code after starting R, I get this:

当我再次运行代码时，我得到了正确的颜色：

我不明白为什么会发生这种情况。几乎就像我指定的调色板在第一次运行代码时没有被使用一样。我应该注意到，虽然我在 MacOSX 10.8.5 下使用 R 版本 3.2.1 开发了 R 代码，但当代码在同事的 Windows 计算机上运行时，也会发生同样的情况。谁能解释我做错了什么？谢谢。

我可以在当前版本的 R 和 MacOS 上重现。这似乎与（不必要的）调用有关palette。省略该调用可以解决问题。请注意，这实际上是所描述的预期结果?palette其中说：“一个字符向量给出了调色板was有效。 “（强调）

在我看来，这确实是一种相当非功能性的行为palette。它显然被设计为充当系统副作用，而不是返回当前有用的值，并且返回的值可能应该存储为“oldpal”或类似的值。正如帮助页面上所讨论的，使用调色板应该更改（后续）数字到颜色的映射，而不是设置，而不是返回颜色列表。