如何在ggplot2中繪製加權黃土平滑？

比方說，我有以下data.frame：

library(ggplot2) 

    df <- data.frame(x=seq(1:21)) 
    df$y <- df$x*0.3 + 10 
    df$weight <- 10 

    df[6,] <- c(6, 0.1, 1) 
    df[7,] <- c(7, 0.1, 1) 

    df[13,] <- c(13, 0.1, 1) 
    df[14,] <- c(14, 0.1, 1) 

    df[20,] <- c(20, 0.1, 1) 
    df[21,] <- c(21, 0.1, 1) 

    ggplot(data=df, aes(x=x, y=y, size=weight)) + geom_point() + geom_smooth(method=loess, legend=FALSE)

繪製黃土平滑帶來了以下內容：

loess-smoothing without weights

但我想用列權重，使得黃土是相同的，如果每個重量10的點是10倍存在的：

df2 <- subset(df, !(x %in% c(6,7,13,14,20,21))) 
    df2$weight <- 1 

    df3 <- df2 
    for(i in seq(1:9)){ 
     df3 <- rbind(df3, df2) 
    } 
    df3 <- rbind(df3, c(6, 0.1, 1)) 
    df3 <- rbind(df3, c(7, 0.1, 1)) 

    df3 <- rbind(df3, c(13, 0.1, 1)) 
    df3 <- rbind(df3, c(14, 0.1, 1)) 

    df3 <- rbind(df3, c(20, 0.1, 1)) 
    df3 <- rbind(df3, c(21, 0.1, 1)) 

    ggplot(data=df3, aes(x=x, y=y)) + geom_point() + geom_smooth(method=loess, legend=FALSE) 
    # or to demonstrate 
    ggplot(data=df3, aes(x=x, y=y)) + geom_jitter() + geom_smooth(method=loess, legend=FALSE)

smoothing with weights

我發現了函數黃土的參數權重。但我不知道如何從geom_smooth（）調用它。

來源

2014-02-24 JerryWho

看到這裏最好的答案：HTTP：//stackoverflow.com/questions/13904788/how-to-權重平滑的任意因子在ggplot2 – zuuz

我想我必須只另一個參數添加到AES：

ggplot(data=df, aes(x=x, y=y, size=weight, weight=weight)) + geom_point() + geom_smooth(method=loess, legend=FALSE)

enter image description here

來源

2014-02-24 19:08:14 JerryWho

http://goo.gl/MTiZVr是一個類似的問題。 – JerryWho

如何在ggplot2中繪製加權黃土平滑？

回答

相關問題