использование R-как интегрировать 2 пузырьковых графика в один график

Question

использование R-как интегрировать 2 пузырьковых графика в один график

Я тестирую проект R с пузырьковым графом. Для этого у меня есть следующий 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$продажи, для mydata$комми, круги=файл mydata$экономии, БГ="красный")

И для команды ниже, я получаю синий пузырь

Символы(mydata$sale, mydata$comm, circles=mydata$maxcomm, bg= "blue")

Моя цель это объединить их оба вместе (в одном графике), так что красный будет сверху синего. (Если есть хоть какая-то возможность иметь синий прозрачный - еще лучше!)

Введите описание изображения здесь

2 2

data-visualization

2 ответа:

Набор 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.

4

ano · Accepted Answer · 2017-05-23 15:07:15

Есть несколько способов сделать это, но, оставаясь в базовом графическом пакете, вы можете использовать команду par() и добавлять графики друг на друга. Кроме того, чтобы управлять прозрачностью, вы можете преобразовать цвета в шестнадцатеричные значения (красный - #FF0000, синий - #0000FF) и добавить две цифры в конце, представляя Альфа-слой прозрачности
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