R：在现有图上添加条件

Question

我有一个数据帧由三个变量asn（这是一个ID），ip_used，domain_used，correct（这是二进制0或1）组成。 数据示例：

asn，ip_used，domain_used，正确

1,234,34,1
30,45,765,1
498,4,765,0
3874,876,8765,1

我已经在气泡图中为每个asn相互绘制了ip_used和domain_used，现在我想为条目“气泡”指定等于1的“正确”，并使用不同的气泡颜色。

这是我当前的绘图和当前代码：

symbols(log_domused,log_ipused, circles = radius,inches=0.40, fg="black", bg="white",xlab = "# used domain",ylab="# used ips",main="dnsdb distribution of domains per ips for each ASN")

有人知道该怎么做吗？

Answer 1

您的数据：

myData <- rbind(c(1,234,34,1), c(30,45,765,1), c(498,4,765,0), c(3874,876,8765,1))
colnames(myData) <- c("asn", "ip_used", "domain_used", "correct")

myData
      asn ip_used domain_used correct
[1,]    1     234          34       1
[2,]   30      45         765       1
[3,]  498       4         765       0
[4,] 3874     876        8765       1

您可以使用“ fg”（或“ bg”）指定每个圆圈的颜色：

symbols(myData[,1], myData[,3], circles=c(1,1,1,1), inches=0.40, fg=myData[,4]+1, bg="white",
        xlab = "# used domain",ylab="# used ips",
        main="dnsdb distribution of domains per ips for each ASN"
        )