Displaying 1 result from an estimated 1 matches for "bottom_label".
2009 Mar 24
2
Properly labeling abline with text?
...Thank you for any info or insights.
x_vals<-1:1000
y_vals<-rnorm(1000)
plot(x_vals, y_vals)
top_label<-paste("Top Label = ", format(max(y_vals), digits=2), sep="")
abline(h=max(y_vals), col="darkred")
text(max(x_vals), max(y_vals), top_label, pos=2)
bottom_label<-paste("Bottom Label = ", format(min(y_vals),digits=2), sep="")
abline(h=min(y_vals), col="darkred")
text(max(x_vals), min(y_vals), bottom_label, pos=2)