How do we plot CCFD graph on logarithmic scale?

Using quantiles we can perform this

library(VGAM) # for rpareto(...)

set.seed(1) # for reproducible example

X <- rpareto(1000,location=1,shape=1)

p <- ppoints(100)

par(mfrow=c(1,3))

plot(quantile(X,p=p),p,type="l",ylab="P(X < x xlab="x" main="CDF">

plot(quantile(X,p=p),1-p,type="l",ylab="P(X > x)",xlab="x",main="CCDF")

plot(log(quantile(X,p=p)),log(1-p),

     ylab="log[P(X > x)]",xlab="log(x)",main="CCDF: log-log")