Комбинированный график, отличающийся значениями оси X

Question

Это может быть повторение, но я не смог найти решение. Итак, я хочу построить график участка генома, а внизу - график дорожки гена ниже.

Проблема Я столкнуться в том, что ось х связана в обоих участках, так что я в конечном итоге потери линии графика и дорожки гена, как и в следующей картине:

код, я использую для этого (пример данных) выглядит следующим образом:

library(ggplot2) 
library(ggbio) 
library(TxDb.Hsapiens.UCSC.hg19.knownGene) 
library(Homo.sapiens) 

BOD<-matrix(c(1,8.3,"Group1",2,10.3,"Group1",3,19,"Group1",1,16,"Group2",2,17.6,"Group2",3,19.8,"Group2"),nrow=6,ncol=3,byrow=TRUE) 
BOD<-data.frame(BOD) 
names(BOD)<-c("Time","Demand","Category") 
p1<-ggplot(BOD, aes(x=factor(Time), y=Demand, colour=Category, group=Category)) + geom_line() 
p.txdb <- autoplot(Homo.sapiens, which = GRanges("chr1",IRanges(183800615, 183960615))) 
tracks('Methylation'=p1,'Gene Track'=p.txdb) 

Как бы я начал рисовать оба изображения с их собственной отдельной осью х? поэтому я вижу оба сюжета.

Answer 1

Мы можем использовать cowplot пакет:

# instead of autoplot use ggplot geom_alignment 
p.txdb <- ggplot() + 
    geom_alignment(Homo.sapiens, 
       which = GRanges("chr1", IRanges(183800615, 183960615))) 

# cowplot* to merge 
cowplot::plot_grid(p1, p.txdb, nrow = 2, 
        labels = c("LinePlotLabel", "GeneTrackLabel")) 

Примечание: Не загружайте cowplot с помощью library(), это изменит темы по умолчанию. Кроме того, обратите внимание, что я использую geom_alignment() вместо autoplot().