我的数据或多或少看起来像这样(不知道如何粘贴图表):
library(reshape2)
library(ggplot2)
df <- cbind(runif(2000,0,1000), rep(0,n=2000))
for (i in 1:nrow(df)) {
df[i,2] <- runif(1, df[i,1], (10000-2*df[i,1]))
}
colnames(df) <- c("x","y")
df.1 <- melt(data.frame(df), id="x")
p <- ggplot(df.1, aes(x=x, y=value))
p <- p + geom_point()
p <- p + geom_smooth()
p
我需要一条位于底部 5% 的直线和一条位于顶部 95% 的直线,而不是显示的平滑线。一个问题是我有数百万分,所以我认为 data.table 是一个很好的前进方向:
library(data.table)
dt <- data.table(df)
dt[,xbin:=0]
for (i in 0:100) {
x1 <- i*100
x2 <- (i+1)*100
dt[x>=x1 & x<x2, xbin:=x2]
}
setkey(dt,xbin)
result1.dt <- dt[,list(ymin=min(y), ymax=max(y)), by=key(dt)]
result1.df <- data.frame(result1.dt)
p <- p + geom_line(data=result1.df, aes(x=xbin, y=ymin))
p <- p + geom_line(data=result1.df, aes(x=xbin, y=ymax))
p
线条还不是笔直的,但从这里修复它是微不足道的。
而不是最小值和最大值,我如何使用 data.table 获得第 5 个和第 95 个百分位数?我是否在重新发明轮子,即是否已经有一个统计方法(和一个函数)?