set.seed(2019-06-28)
d = data.frame(x = rnorm(10),
xend = rnorm(10),
y = rnorm(10),
yend = rnorm(10),
v1 = rnorm(10),
v2 = rnorm(10))
library(ggplot2)
ggplot(d) + geom_segment_c(aes(x = x, xend = xend, y=y, yend =yend, col0 = v1, col1 = v2)) +
scale_color_viridis_c(name = "continuous colored lines") +
theme_minimal() + theme(legend.position=c(.2, .85)) + xlab(NULL) + ylab(NULL)
Run the code above in your browser using DataLab