r语言biplot图画图失败

问题遇到的现象和发生背景

做pca，画biplot图，出现报错

用代码块功能插入代码，请勿粘贴截图

fviz_pca_biplot(res.pca ,
col.var = GroupA ,
palette = c("#8ECFC9", "#FFBE7A", "#82B0D2" , "FA7F6F" , "BEDB8D" , "999999") ,
arrowsize = 1 ,
fill.ind = pca.act$Label ,
col.ind = "black" ,
pointshape = 21 ,
pointsize = 5 ,
legend.title = list(fill = "111", color = "simple") ,
repel = TRUE,
xlab = "PC1 (?%)" , ylab = "PC2 (?%)")

运行结果及报错内容

Error in if (fill %in% names(data) & is.null(add.params$fill)) add.params$fill <- fill :
argument is of length zero

我想要达到的结果

画出这样的图