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")