R：向现有绘图添加条件

Question

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

asn，ip_used，domain_used，correct

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

您可以使用＆＃34; fg＆＃34;指定每个圆圈的颜色。 （或＆＃34; bg＆＃34;）：

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"
        )