library(ggplot2)
ggplot(sp500, aes(x = ent_value, y = earn_before)) +
geom_point() +
labs(x = "Enterprise value", y = "Earnings")
ggplot(sp500, aes(x = ev_over_rev, y = forward_pe)) +
geom_point() +
labs(
x = "Enterprise value / revenue, logged",
y = "Market cap / forecasted earnings, logged"
)
ggplot(sp500, aes(x = ent_value, y = earn_before)) +
geom_point() +
scale_x_log10() +
scale_y_log10() +
labs(x = "Enterprise value", y = "Earnings")
ggplot(sp500, aes(x = ev_over_rev, y = forward_pe)) +
geom_point() +
scale_x_log10() +
scale_y_log10() +
labs(
x = "Enterprise value / revenue, logged",
y = "Market cap / forecasted earnings, logged"
)
Run the code above in your browser using DataLab