我如何绘制彩色星星？

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))