准备饼图以添加到散点图

Question

在我之前的帖子Customizing points in R得到帮助之后，我决定制作一个饼图的散点图;我遇到的问题是为图形准备单个饼图。

我有四个变量（让我们称之为firstvar到fourthvar），每个变量都是1或0.我想将饼图的每个象限映射到一个变量，如果变量为1，则将该象限加以遮挡，否则将其保留为白色。我使用代码的方式我有一系列嵌套的ifelse（）调用，我无法工作。

非常感谢任何帮助，我的代码如下：

test <- c(1,1,1,1)
lbls <- c("PY1 NM Sig", "PY2 NM Sig", "PY1 FM Sig", "PY2 FM Sig" )
pie(test, labels = lbls, 
    col=ifelse(data$firstvar>0 , "blue", "white"))