Другой маркер с увеличением размера в огранке - PullRequest
Новая
       25

Другой маркер с увеличением размера в огранке

1 голос
/ 13 февраля 2020

В моем примере кода ниже, я хотел бы иметь разные marker вместо circle только для каждого Grade с size по моему выбору. сейчас size основан на sequence из alphabet - я хотел бы увеличить его как минимум на два уровня, так как текущий начальный size (начинающийся с Grade A) слишком мал. 

library(tidyverse)

DF1 = data.frame(Grade = c("A","B","C","D"), Fee = c(50, 100,80, 60), ST1 = c(0.5, 0.7, 0.67,0.60),
                 ST2 = c(0.48, 0.8, 0.697,0.77), ST3 = c(0.53, 0.58, 0.57,0.62), type = rep("Teenage",4))
DF2 = data.frame(Grade = c("A","B","C","D"), Fee = c(60, 120,90, 70), ST1 = c(0.55, 0.73, 0.65,0.70),
                 ST2 = c(0.58, 0.82, 0.73,0.75), ST3 = c(0.55, 0.52, 0.58,0.62), type = rep("Overage",4))

DFPlot_1 = gather(data = DF1, key = "Variable", value = "Value", -Fee, -Grade, -type)
DFPlot_2 = gather(data = DF2, key = "Variable", value = "Value", -Fee, -Grade, -type)

DF =rbind(DFPlot_1,DFPlot_2)
ggplot(data = DF, aes(x= Fee, color = Grade, size = Grade))+
  geom_point(aes(y = Value))+ facet_grid(type ~ Variable)

Вот Figure, который я получаю при запуске вышеуказанного кода - см. Размеры (A is almost non-visibile). Я хотел бы иметь увеличение размера, но начиная с более высокого уровня. enter image description here

1 Ответ

2 голосов
/ 13 февраля 2020

Как уже упоминалось выше, вы хотите использовать scale_size_manual. У вас есть несколько способов настройки размеров (см. Документацию), но пример, адаптированный к вашему случаю: 

ggplot(data = DF, aes(x= Fee, color = Grade, size = Grade))+
  geom_point(aes(y = Value))+ facet_grid(type ~ Variable) + 
  scale_size_manual(values = c(4,5,6,7))
...