在R绘图线中，不同颜色高于阈值限制

Question

我在R中有以下数据和代码：

x <- runif(1000, -9.99, 9.99)
mx <- mean(x)
stdevs_3 <- mx + c(-3, +3) * sd(x/5) # Statndard Deviation 3-sigma

我在R中绘制了直线（连同3个标准差和平均线）

plot(x, t="l", main="Plot of Data", ylab="X", xlab="")
abline(h=mx, col="red", lwd=2)
abline(h=stdevs_3, lwd=2, col="blue")

我想做什么：

在图上的任何地方，只要线穿过3 sigma阈值（蓝线），在其上方或下方，线的颜色应不同于黑色。

我尝试了这个，但没有奏效：

plot(x, type="l", col= ifelse(x < stdevs_3[[1]],"red", "black"))
abline(h=mx, col="red", lwd=2)
abline(h=stdevs_3, lwd=2, col="blue")

还有其他办法吗？

Answer 1

这是请求的内容，但由于x的任意划分为5，因此对我来说似乎毫无意义：

protected function renderFeedbackIcon()
{
    if (!$this->_hasFeedback) {
        return '';
    }
    $config = $this->feedbackIcon;
    $type = ArrayHelper::getValue($config, 'type', 'icon');
    $prefix = ArrayHelper::getValue($config, 'prefix', 'fa fa-');
    $id = Html::getInputId($this->model, $this->attribute);
    return $this->getFeedbackIcon($config, 'default', $type, $prefix, $id) .
    $this->getFeedbackIcon($config, 'success', $type, $prefix, $id) .
    $this->getFeedbackIcon($config, 'error', $type, $prefix, $id);
}