Bonjour,
une solution consisterait à faire de très nombreux points en utilisant les couleurs de deux points aux extrémités pour définir une palette :
Code : Tout sélectionner
f <- function(x,y, n=100, col=c("green","blue"),...) {
a <- diff(y)/diff(x)
b <- y[-1]-a*x[-1]
x1 <- seq(x[1],x[2], le=n)
y1 <- x1*a+b
cols <- colorRampPalette(c("green", "blue"))(n)
segments(x1[-n], y1[-n], x1[-1], y1[-1], col=cols, ...)
}
plot(c(0,1),c(0,1), col=c("green", "blue"), pch=19)
f(c(0,1), c(0,1), lwd=2)
Après il suffit d'adapter l'idée à plus de deux points pour faire un tracé sur plusieurs points.
Cordialement,
Maxime