在下面的示例代码中,我希望marker只circle为我选择的每个代码Grade提供不同size的选项。现在是size基于- 我想将它提高至少两个级别,因为当前的开始(以 开始)太小了。sequencealphabetsizeGrade 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)。我想增加尺寸,但从更高的水平开始。
