使用 Gnu R 进行插值

Question

我这辈子还没有这样做过，但是是否可以使用 Gnu R 从给定的 slope/graph 中提取任意数量的点？更准确地说，我可以告诉 Gnu R 在给定数据的同时给我 400 分吗（这甚至不称为插值）？假设您有以下数据：

dput(df1)
structure(list(census = structure(c(-281037, -253644, -244513, 
-231730, -228077, -217120, -209815, -207989, -191553, -180596, 
-171465, -129462, -98416, -90381, -80154, -71388, -61892, -33768, 
4582, 11887, 15540), class = "Date"), pop_hist = c(0, 30, 1000, 
2000, 3000, 4100, 3900, 4100, 3900, 4000, 4100, 4000, 4030, 4080, 
2000, 1500, 1050, 111, 1936, 3791, 5167)), .Names = c("census", 
"pop_hist"), row.names = c(NA, -21L), class = "data.frame")

和图形输出

编辑： 我从 library(pracma):

得到这个命令

interp1(x=as.numeric(census),y=as.numeric(pop_hist),xi=as.numeric(census),method="nearest")

但是我怎么让R给我400分左右呢？

Answer 1

答案是，谢谢wdkrnls:

library(ggplot2)

test <- approx(x=as.numeric(census),y=as.numeric(pop_hist),n=474,method="linear")
ggplot(test,aes(y=y,x=x)) + geom_line()

使用 Gnu R 进行插值

Interpolation with Gnu R

plot

interpolation

r

function