This question already has answers here:
How to weight smoothing by arbitrary factor in ggplot2?
(2个答案)
2年前关闭。
如何添加尊重另一列重量的黄土平滑石?
假设我有以下data.frame:
绘制黄土平滑区会带来以下结果:
但是我想使用列权重,以使黄土等于权重为10的每个点都存在10倍:
我找到了函数黄土的参数权重。但是我不知道如何从geom_smooth()调用它。
(2个答案)
2年前关闭。
如何添加尊重另一列重量的黄土平滑石?
假设我有以下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)
绘制黄土平滑区会带来以下结果:
但是我想使用列权重,以使黄土等于权重为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)
我找到了函数黄土的参数权重。但是我不知道如何从geom_smooth()调用它。
最佳答案
我想我只需要向aes添加另一个参数:
ggplot(data=df, aes(x=x, y=y, size=weight, weight=weight)) + geom_point() + geom_smooth(method=loess, legend=FALSE)
10-07 12:53