r - 使用 R - 如何在一张图中整合 2 个气泡图

Question

我正在用气泡图测试 R 项目。为此，我有以下 csv 文件：

下载结果.csv 文件

我这样做了：

> mydata<-read.csv("~/Desktop/result.csv", header=TRUE)
> mydata

  month     sale    comm maxcomm savings
  1 23415960  706164  998457  292293
  2 21303842  870591  928084   57493
  3 22128502  644698  897262  252564
  4 23872123  800024 1047968  247944
  5 25880653  900984 1006359  105375
  6 26359929 1186594 1601646  415052

对于下面的命令，我得到了红色气泡

符号（mydata$sale，mydata$comm，circles=mydata$savings，bg="red"）

对于下面的命令，我得到了蓝色气泡

符号（mydata$sale, mydata$comm, circles=mydata$maxcomm, bg="blue"）

我的目标是将它们整合在一起（在一张图中），这样红色就在蓝色之上。（如果有任何可能使蓝色透明 - 更好！）

Answer 1

设置add=TRUE：

symbols(mydata$sale, mydata$comm, circles=mydata$maxcomm, bg="blue")
symbols(mydata$sale, mydata$comm, circles=mydata$savings, bg="red", add=TRUE)

看一下rgb()或ggplot透明色的功能（参考alpha.

Answer 2

有几种方法可以做到这一点，但在基本图形包中，您可以使用par()命令并在彼此之上添加绘图。此外，为了控制透明度，您可以将颜色转换为十六进制值（红色是#FF0000，蓝色是#0000FF）并在最后添加两位数字代表 alpha 透明层

symbols(mydata$sale, mydata$comm, circles=mydata$savings, bg="#FF0000")
par(new=TRUE)
symbols(mydata$sale, mydata$comm, circles=mydata$maxcomm, bg="#0000FF50")

这将第二个交易品种图表的透明度设置为 50% 1

另请参阅此相关问题以获取更多详细信息：2