library(openxlsx)
library(readxl)
library(ggrepel)
data1 <- read_excel("L-vs-SL.xlsx",sheet = 1)
#names(data)[29:31]<-c("P","Q","Difference")
#data2 <- data[c(29:31,46,47)]
#transform(data2,data$Difference <- 1/data$Difference )
data1$P<--log10(data1$P)
data1$change <- as.factor(ifelse(data1$P > -log10(0.05) & abs(data1$Difference) > 1,ifelse(data1$Difference > 1,'UP','DOWN'),'NOT'))
p <- ggplot(data = data1, aes(x = Difference, y = P, color = change)) 
p <- p+ geom_point(alpha=0.8, size = 1.5) 
p <- p+theme_bw(base_size = 15)
p <- p+     theme(
             panel.grid.minor = element_blank(),
             panel.grid.major = element_blank()
         )   
p <- p+geom_hline(yintercept=1.3 ,linetype=4)  
p <- p+geom_vline(xintercept=c(-1,1) ,linetype=4 )  
p <- p+scale_color_manual(name = "", values = c("red", "blue", "black"), limits = c("UP", "DOWN", "NOT"))  
p <- p+ coord_fixed(ratio=1.5/1) 
p <- p+  geom_label_repel(aes(label=symbol), fontface="bold", color="grey10", box.padding=unit(0.35, "lines"), point.padding=unit(1, "lines"), segment.colour = "grey10")
p
library(ggplotify)
library(eoffice)

f = "L_SL.pptx"
topptx(p,f,width=8,height=6)