I want to represent a discrete line graph similar to this image in r code, please help me. assume any values.
Things the i have tried & the data set is here
bus.stop<-c("Polic Chowk","Regional bus stand","hospital", "Alanpura", "Housing Colony", "PG College", "Ranthambore circle" , "Railway station", "Collectorate", "New Bus stand")
boarding<-c(18,9,15,3,7,1,1,0,0,0)
alighting<-c(0,3,7,5,8,1,13,8,5,4)
load<-c(18,24,38,32,29,27,23,11,4,0)
hous.oton<-data.frame("BusStop" = bus.stop, "Boarding" = boarding, "Alighting"=alighting, "Load"=load)
plot(hous.oton$BusStop,hous.oton$Boarding, type="s")
```