r小叶绘制多条未连接的多条线

Question

我正在尝试在传单中绘制几条未连接的线。数据如下：

ID  y1  x1  y2  x2
1   40 -110 41 -110 
2   40 -108 40 -106

当我尝试使用以下方法进行绘制时：

leaflet() %>%
    setView(lng = -110, 30, zoom = 6) %>% 
    addTiles() %>%  
    addPolylines(data = a, lng = c(a$x1, a$x2), lat = c(a$y1, a$y2), color "purple", weight = 5) 

我得到一，三段线。传单将两条线连接成一条连续线。我需要做些什么才能使它只绘制两条线？