将形状分配给相关圆图中的变量

Question

我想知道是否可以为绘图中的列名设置不同的形状而不是标签.我已经展示了一个可重复的例子来获得该图.

#dataset
mtcars

#split the data into different blocks
a<-mtcars[,1:3]
b<-mtcars[,4:6]
c<-mtcars[,7:9]
d<-mtcars[,10:11]

### create a list of dataframes
A<-list(blockA=a, blockB=b,blockC=c,blockD=d)

### design matrix
C <- matrix(c(0, 0, 0, 0,  
              0, 0, 0, 0, 
              0, 0, 0, 0, 
              1, 1, 1, 1), 4, 4)
tau = c(1, 1, 1, 1)
library(mixOmics)

##### computing the sGCCA
wrap.result.sgcca = wrapper.sgcca(data = A, design = C, penalty = rep(1, length(A)),
  ncomp = c(2, 2, 2,2), scheme = "centroid", verbose = FALSE)

##### visualization
col <- rep(c("blue", "red", "darkgreen", "darkviolet"))

plotVar(wrap.result.sgcca, col=col, comp = c(1,2), 
  block = c(1,2,3,4), ncomp.select = c(1,2), labels = TRUE)

在这个情节中,我设法用独特的颜色为这些块着色.我还想用形状来表示列.例如,当我们考虑数据集mtcars的不同列名时

colnames(mtcars)
[1] "mpg"  "cyl"  "disp" "hp"   "drat" "wt"   "qsec" "vs"   "am"   "gear" "carb"

根据块我分裂了(列1:3),b(列(4:6),c(列7:9),d(列10:11),我想要列1,4,7,10具有相同的形状(比如圆圈),列2,5,8,11(比方形),第3,6,9列(比如星号).我尝试设置pch值但是根据列名称无法生成形状这个情节.有人可以帮帮我吗？谢谢