ggplot2に加重最小二乗トレンドラインを追加する

Question

私はggplot2を使ってプロットを作成していますが、加重最小二乗推定に基づくトレンドラインを追加したいと思います。

は、ベースのグラフィックでは、これはablineにWLSモデルを送信することにより行うことができます。

ggplot(ds, aes(x=MNP, y=dMNP, size=Asset) + 
    geom_point(shape=21) + 
    geom_smooth(method = "lm", weight="Asset", color="black", show.legend = FALSE) 

が、これは私与える：私はgeom_smoothで引数weightを設定しても何も変わりませんggplot2で

mod0 <- lm(ds$dMNP~ds$MNP) 
mod1 <- lm(ds$dMNP~ds$MNP, weights = ds$Asset) 

symbols(ds$dMNP~ds$MNP, circles=ds$r, inches=0.35) 
#abline(mod0) 
abline(mod1) 

同じプロットとして

ggplot(ds, aes(x=MNP, y=dMNP, size=Asset) + 
    geom_point(shape=21) + 
    geom_smooth(method = "lm", color="black", show.legend = FALSE) 

Answer 1

私は遅いですが、後世と明快のために、ここに完全な解決法があります：

ggplot(ds, aes(x = MNP, y = dMNP, size = Asset) + 
    geom_point(shape = 21) + 
    geom_smooth(method = "lm", mapping = aes(weight = Asset), 
       color = "black", show.legend = FALSE) 

重量名を引用符で囲まないでください。