在现有映射对象中添加或覆盖aes

Here's the minimal case:

这是最小的情况:

df <- data.frame(x=1:5, y=1, col=1:5)
mapping <- aes(x=x, y=y)
ggplot(df, mapping) + geom_point(size=10)
df <- da