我想创建六个星形图,其半径根据输入data.frame u的列命名.换句话说,我想没有关键的传说,并且在星形图上直接使用关键名称.有没有办法在不使用par(mfrow)循环星形图的情况下执行此操作?谢谢.
u = matrix(runif(60),6,10)
colnames(u) <- as.character(1:10)
stars( u , locations = NULL , key.loc = c(0,0) , labels=1:6,
key.labels = colnames(u) , col.lines=1:10, lwd=2 )
最佳答案 有点摆弄你可以得到一些可行的东西.
sloc <- stars(u,len=0.6,lwd=2, col.lines=1:10)
Map(
function(x,y) stars(
matrix(1,ncol=10,nrow=6),key.loc=c(x,y),
key.labels=colnames(u),add=TRUE, lty=3, cex=0.7, len=0.6
),
sloc$Var1, sloc$Var2
)
结果:
您可以通过指定lty = 0来完全删除每个段的行,但这会使数字在空间中浮出水面.