оси x? а то здоровые пустоты между генами.
выполняемый скрипт:
ggplot(test3, aes(x = start))+
facet_wrap(~chr,
scales = "free")+
geom_rect(data = test4,
aes(xmin=start,
xmax=end,
fill=gene),
ymin=-Inf,
ymax=Inf,
alpha=0.2)+
geom_point(aes(y = ratio,
colour = gene))+
facet_wrap(~chr,
scales = "free")+
ylim(-5,5)+
geom_text(data=test4,
aes(x= start,
y=head(rep(c(3,4), ceiling(nrow(test4)/2)), nrow(test4)),
label=gene),
size=3,
hjust = 0)+
theme_classic()+
scale_x_continuous()
Я пробовал факторами зафигачит координаты, и вроде хорошо, но там проблема с запахиванием текста для именования каждого гена
Обсуждают сегодня