在下面的示例代码中,我只想为每个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)
。我想增加规模,但从更高的层次开始。
如上所述,您想使用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))