Semi-log plot generator (By Qiulin Huang), R

Semi-log plot generator (By Qiulin Huang)

#Make a semi-log plot

#How many Decades do you want
Decades <- 10

#Your x and y data here   
data_x <- c(0,1,2,3,4,5,6,7)
data_y <- c(1,10,100,1000,10000,100000,10^6,10^7)

#Your x and y axes label here
label_x <- 'Data_x'
label_y <- 'Data_y'

#Main
library(ggplot2)

logrange <- function(NumOfRange){
    lograngevector <- c()
    for (i in 1:NumOfRange){lograngevector <- c(lograngevector, seq(1*10^(i-1),9*10^(i-1),by = 10^(i-1)))
}
lograngevector
}

lograngelabel <- function(NumOfRange){
    lograngevectorlabel <- c()
    for (i in 1:NumOfRange){lograngevectorlabel <- c(lograngevectorlabel, seq(1,9,by=1))
}
lograngevectorlabel
}

DATA <- data.frame(data_x, data_y)
 
ggplot(DATA, aes(x = data_x, y = data_y)) + geom_point() + 
    scale_x_continuous() + 
    scale_y_log10(breaks = logrange(Decades), 
                  labels = lograngelabel(Decades)) + 
    theme(axis.text.y=element_text(size=5), panel.background = element_rect(colour = 'black', fill = "white"), panel.grid.major = element_line(colour = "#E5E5E5"))+
    xlab(label_x) +
    ylab(label_y)
          
          
ggsave("semi-log.png", width = 15, height = 20, unit = "cm")


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development