plot(list(c(2,4), c(4,5), c(1,3), c(2,8), c(2,4)), add.labels=TRUE, 
join=TRUE)

# We added the last ordered pair (2,4) so that we could get a closed 
polygon shape.  (Anything written after # is ignored by R.)