Один из вариантов состоит в том, чтобы просто присоединить dMean
к df
, а затем выполнить грань по метке
df %>%
left_join(dMean) %>%
ggplot(aes(x=date,
y=`Duration Average`,
group=1,
color=Business,
size=`MMR Count`
)) +
geom_line(size = 1, alpha=0.7) +
geom_point(alpha=0.7) +
facet_wrap(~ label, ncol=2) +
scale_y_log10( limits=c(.1,1000),breaks=c(1,10,100,1000)) +
scale_alpha_continuous(range = c(0.5,1), guide='none') +
geom_text(aes(label=`Duration Average`,vjust=-1),size=3) +
geom_text(aes(label=`MMR Count`,vjust=2),size=3,color="brown")
Это не имеет ничего общего с атрибутивным механизмом. Вы просто получаете разные объекты из вызова legend()
каждый раз. Эти объекты имеют разные атрибуты, поэтому использование одного возвращаемого значения legend()
не влияет автоматически на другое.