用样条线连接点

Question

如何平滑线条边缘？我可以这样做我的线情节：

data <- data.frame(x=1:10, y=c(22,23,21,25,23,24,20,27,22,24)) 
ggplot(data, aes(x,y)) + 
    geom_line(colour='forestgreen') 

但是，我不喜欢锋利的边缘。有没有办法通过这些点绘制线条以便线条平滑？

Answer 1

这是做这件事：

library(ggplot2) 
library(splines) 
library(gridExtra) 

dat <- data.frame(x=1:10, y=c(22,23,21,25,23,24,20,27,22,24)) 

plot.new() # have to do this unfortunately 
res <- xspline(dat$x, dat$y, -0.25, draw=FALSE) 

gg1 <- ggplot(dat, aes(x,y)) + 
    geom_line(colour='forestgreen') + 
    geom_point() 

gg2 <- ggplot(data=data.frame(x=res$x, y=res$y), aes(x, y)) + 
    geom_point(data=dat, aes(x, y), size=1) + 
    geom_line(color="blue") 

grid.arrange(gg1, gg2, ncol=1) 

这是使用xspline做插值。查看函数，看看调整-0.25参数（范围是-1到1）会做什么。