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"

)

R plot a table

原文：https://www.cnblogs.com/3Dgenome/p/14329561.html