PLOTINFO<-ggplot(SMDATA,aes(x=xorder))+
geom_text(aes(y=3,label=xorder),angle=270)+
geom_text(aes(y=1,label=GENENAME),angle=270)+
geom_text(aes(y=2,label=RNA059AI))+
geom_text(aes(y=2.5,label=STRAND))+
coord_cartesian(ylim=c(0.5,3.5))+
theme_bw()+
theme(
panel.background = element_rect(fill = NA),
panel.grid.major.y = element_blank(),
panel.grid.minor.y = element_blank(),
panel.grid.major.x=element_line(color="pink",size = 0.05),
panel.ontop = TRUE,
axis.text= element_blank(),
axis.ticks = element_blank(),
axis.title = element_blank(),
plot.margin =margin(10, 165, 10, 78, "pt") ,
panel.border = element_blank(),
legend.position = "none"
)