Я сделал диаграмму с прямоугольниками альфа в зависимости от значений:
ggplot(data = df_ch1,aes(IMPORTANCE, PERFORMANCE)) + geom_point(aes(size = N), alpha = 0.2) + facet_wrap(~Attitude, labeller = label_wrap_gen(30))+
theme_light()+ labs(fill = "Classification")+
theme(axis.text.x = element_text(angle=45, hjust = 1), #legend.position = 'none',
strip.text = element_text(size = 12, face = "bold"))+
scale_size(range = c(5,10))+
geom_text(aes(x = 1.5, y = 1.5,label = label4))+
geom_text(aes(x = 3.5, y = 3.5,label = label1))+
geom_text(aes(x = 3.5, y = 1.5,label = label2))+
geom_text(aes(x = 1.5, y = 3.5,label = label3))+
scale_x_discrete(labels = c("Very unimportant", "Somewhat unimportant", "Somewhat important", "Very Important"))+
#geom_rect(aes(xmin = 2.55, xmax = 4.45, ymin= 0.55, ymax = 2.45,alpha = rect_color_dw1), fill = "darkred")+
scale_alpha(range = c(0, 0.1), breaks = (c(0, 0.2, 0.4, 0.6, 0.8, 1)), labels = percent(c(0, 0.2, 0.4, 0.6, 0.8, 1)/2)) +
geom_rect(data = df_ch1, aes(xmin = 2.55, xmax = 4.45, ymin= 2.55, ymax = 4.45, alpha = rect_color_up1), fill = 'darkgreen', inherit.aes = T) +
labs(alpha = "Percentage")
Выглядит хорошо:
Однако, когда я добавляю второй прямоугольник (просто закомментированную строку), легенда шкалы переключается на шкалу серого, что совершенно неинтуитивно:
Я хочу иметь две шкалы альфа-цвета (красный и зеленый)).Можно ли это сделать?
С наилучшими пожеланиями Томаш