R plotting a line at the intersection of two lines

Question

I have this simple code that plots two intersecting lines:

x <- c(1,2,3,4,5,6)
y2 <- c(6,5,4,3,2,1)
y1 <- c(1,2,3,4,5,6)
plot(x, y1)
plot(x, y1, type