# Generate some data that fits the picture:
x <- seq(from = -6, to = -0.01, by = 0.01)
y <- 0.03/x
plot(x,y)

# Now make all the numbers positive, and take ln(...):
plot(log(x*-1), log(y*-1))