R 准备饼图以添加到散点图

在我之前的一篇文章中得到帮助后，我决定做一个饼图的散点图；我遇到的问题是准备单独的饼图进行绘图

我有四个变量，我们把它们叫做firstvar到fourthvar，每个变量都是1或0。我想将饼图的每个象限映射到一个变量，如果该变量为一，则对该象限进行着色，否则将其保留为白色。按照我编写代码的方式，我会有一系列嵌套的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"))

---

您可能需要我提供一个可复制的示例，我要澄清您使用的是ggplot还是base GRAPHICS我还要提醒您，饼图几乎从来都不是显示您想要显示的信息的正确图形。谢谢您提供的提示，我将在将来使我的问题更清楚。