我如何绘制彩色星星？

Question

我有一个5x7矩阵我想绘制为雷达或蜘蛛图？例如:

stars(mtcars[, 1:7], locations = c(0,0), radius = FALSE,
      key.loc=c(0,0), main="Motor Trend Cars", lty = 2)

我希望每一行都是不同的颜色(和/或不同的风格),这样我就可以看出我正在看的东西.

Answer 1

以下建议有点像黑客.我相信一个更优雅的解决方案是可能的.

1. 获取函数源stars,并复制:让我们调用它stars2
2. 在stars2参数列表中添加一个额外的参数:col.lines = NULL
3. 变化来自以下代码:polygon(s.x[i, ], s.y[i, ], lwd = lwd, lty = lty, col = col.stars[i])至polygon(s.x[i, ], s.y[i, ], lwd = lwd, lty = lty, border = col.lines[i], col = col.stars[i])
4. 呼叫stars2为每个星星提供颜色.

样本调用和输出(left = before,right = after)如下所示.

stars2(mtcars[, 1:7], locations = c(0,0), radius = FALSE,key.loc=c(0,0), 
       main="Motor Trend Cars", lty = 2,col.lines = 1:nrow(mtcars))