# NOT RUN {
data(lignite)
plot(lignite)
# query for exact x coordinates within the plot
if(interactive()) rrx2x(locator()$x)
# query for exact y coordinates within the plot
if(interactive()) rry2y(locator()$y)
# or
y2rry(36.78794)
# or
rrx2x(par('usr')[1])
# }
Run the code above in your browser using DataCamp Workspace