library(tidyverse)
library(patchwork)

fn <- function(x) {exp(x)}
data <- tibble(x = c(1:10), y = exp(x))

# without data points
p <- ggplot(data, aes(x)) + stat_function(fun = fn)

# with data points
q <- ggplot(data, aes(x, y)) + geom_point() + 
  stat_function(fun = fn)

p / q

(p + scale_y_log10()) / q + scale_y_log10()

(p + scale_y_sqrt()) / q + scale_y_sqrt()

(p + scale_y_reverse()) / q + scale_y_reverse()

(p + scale_x_log10()) / q + scale_x_log10()

(p + scale_x_log10() + scale_y_log10()) /
  q + scale_x_log10() + scale_y_log10()