Cannot adjust logarithmic curve using ggplot2 in R

Question

I am trying to plot an adjustable logarithmic curve with ggplot2. From various Stack Overflow posts I was able to create this:

key <-