R 基于组成员身份向循环数据添加颜色

我试图根据群体成员资格为我的循环数据中的特定点添加颜色（我有两个群体：一个是有特定疾病的个体，另一个是健康对照组）。我已经将他们的数据从度转换为弧度，并将其放在绘图上，但我还无法根据因子变量（我有）有选择地更改点的颜色

知道我已经加载了库（循环），这不允许我使用ggplot。以下是我一直使用的语法：

plot(bcirc, stack=FALSE, bins=60, shrink= 1, col=w$dx, axes=FALSE, xlab ="Basal sCORT", ylab = "Basal sAA")

---

如果您注意到了，我在颜色部分指定了factor变量（有两个级别），但它只是将所有内容放在一种颜色中。有什么建议吗？

似乎是

绘图。circular

不喜欢指定多种颜色。这里有一个潜在的解决办法：

库（循环）
##模拟循环数据
bcirc1受Paul Regular示例的启发，这里是一个使用相同数据的版本，其中一个条件是向内堆叠绘制的，另一个是向外堆叠绘制的

library(circular)

## simulate circular data
bcirc1 <- rvonmises(100, circular(90, units = 'degrees'), 10, control.circular=list(units="degrees"))
bcirc2 <- rvonmises(100, circular(0, units = 'degrees'), 10, control.circular=list(units="degrees"))
bcirc <- data.frame(condition = c(
            rep(1,length(bcirc1)),
            rep(2,length(bcirc2))   ), 
            angles = c(bcirc1,
                    bcirc2) )

## start with blank plot, then add group-specific points
dev.new(); par(mai = c(1, 1, 0.1,0.1))
plot(circular(subset(bcirc, condition == 1)$angles, units = 'degrees'), stack=T, bins=60, shrink= 1, col=1,sep = 0.005, tcl.text = -0.073,#text outside
     axes=T, xlab ="Basal sCORT", ylab = "Basal sAA")
par(new = T)
plot(circular(subset(bcirc, condition == 2)$angles, units = 'degrees'), stack=T, bins=60, shrink= 1.05, col=2,
     sep = -0.005, axes=F)#inner circle, no axes, stacks inwards

库（循环）
##模拟循环数据
bcirc1可能
col=as.numeric（w$dx）+1
？