在ggplot2中添加加權最小二乘趨勢線

Question

我正在使用ggplot2准備一個情節，我想添加一個基於加權最小二乘估計的趨勢線。

在基本圖形中，這可以通過發送WLS模型來abline ：

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)

在GGPLOT2我設定的參數weight在geom_smooth但沒有什么變化：

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

這給了我同樣的情節

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)

不要將重量名稱放在引號中。