library("ggplot2")


# simulating log-uniform's rank-frequency plot
y = runif(1000)
x <- sort(exp(y), decreasing=T)
dat <- data.frame(rank=1:(length(x)), x) 


qplot(rank, x, data=dat) + coord_trans(y = "log")



# simulating exponential's rank-frequency plot
y = rexp(1000)
x <- sort(y, decreasing=T)
dat <- data.frame(rank=1:(length(x)), x) 

grid.newpage() #空の画面を作る
pushViewport(viewport(layout=grid.layout(1, 2))) 
a <- qplot(rank, x, data=dat) + coord_trans(x = "log")
b <- qplot(rank, x, data=dat) + coord_trans(y = "log")
print(a, vp=viewport(layout.pos.row=1, layout.pos.col=1)) 
print(b, vp=viewport(layout.pos.row=1, layout.pos.col=2) )