用樣條線連接點

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）會做什麼。