data(sp500)
plot(sp500$ent_value, sp500$earn_before)
plot(sp500$ev_over_rev, sp500$forward_pe)
plot(sp500$ent_value, sp500$earn_before, log="xy")
plot(sp500$ev_over_rev, sp500$forward_pe, log="xy")
Run the code above in your browser using DataLab