Два разных сюжета из разных библиотек на одной странице - PullRequest
Новая
       38

Два разных сюжета из разных библиотек на одной странице

0 голосов
/ 17 сентября 2018

У меня есть один график (levelplot) из библиотеки решеток, и график палки из библиотеки oce, и я хотел бы разместить их друг над другом. У меня возникают проблемы с укладкой этих графиков, как при обычном использовании базы R, и я предполагаю, что это потому, что это оба специализированные графики. Можно ли сложить два приведенных ниже графика на одной и той же странице, чтобы отметки времени (ось x) совпали друг с другом? 

library(oce)
library(lattice)
library(grid)

Первый сюжет (пример из справочных документов ВВЦ) 

# Oceanographic example
data(met)
t <- met[["time"]]
u <- met[["u"]]
v <- met[["v"]]
p <- met[["pressure"]]

dev.new(width=15, height=4)
plotSticks(t, 99, u, v, yscale=25)

Второй участок: 

AllT<-NULL
for(i in seq(1,length(t))){

    myTime<-t[i]
    myTime2<-rep(myTime,10)
    AllT<-append(AllT,myTime2)      
}

myY<-NULL
for(j in seq(1,length(t))){
    mySeq<-seq(1,10)
    myY<-append(myY,mySeq)    
}

Temp<-seq(1,7200)


MyDF<-data.frame(Temp,myY,AllT)



#Plot code
dev.new(width=15, height=6)
p1<-levelplot(Temp ~ AllT * myY,
    data = MyDF,ylim=c(10,1),
    xlab = "Time", ylab = "y]",
    aspect=0.4,
    )

p1

trellis.focus("legend", side="right", clipp.off=TRUE, highlight=FALSE)
grid.text('[Temp]', 1.9, .5, hjust=0.5, vjust=1,rot=270)
trellis.unfocus()

В идеале, на конечном графике сверху должен быть график палки (нет необходимости в метках тиков на графике ручки, если выровнена ось x), а график уровня ниже с минимальным пространством между

1 Ответ

0 голосов
/ 17 сентября 2018

Это так хорошо, как я могу понять на данный момент. Должен быть способ реально изменить grobs, как я знаю, но ему не нравится gTrees, когда я пытаюсь. Так что это приближает тебя.

Эти ссылки могут быть полезны.

https://www.andrewheiss.com/blog/2016/12/08/save-base-graphics-as-pseudo-objects-in-r/

принудительно помещает объект регулярного графика в Grob для использования в grid.arrange 

#libraries
library(gridGraphics)
library(grid)
library(gridExtra)
library(oce)
library(gggplot2)
library(ggplotify)

#plots
data(met)
t <- met[["time"]]
u <- met[["u"]]
v <- met[["v"]]
p <- met[["pressure"]]

grab_grob <- function(){
  grid.echo()
  grid.grab()
  }

plotSticks(t, 99, u, v, yscale=25)
p1 <- grab_grob() #grab the last plot as a grob

AllT <- NULL
for(i in seq(1, length(t))){
  myTime <- t[i]
  myTime2 <- rep(myTime, 10)
  AllT <- append(AllT, myTime2)      
}

myY <- NULL
for(j in seq(1, length(t))){
  mySeq <- seq(1, 10)
  myY <- append(myY, mySeq)    
}

Temp <- seq(1, 7200)

MyDF <- data.frame(Temp, myY, AllT)

#Plot code
dev.new(width = 15, height = 6)
p2 <- levelplot(Temp ~ AllT * myY,
          data = MyDF, ylim=c(10, 1),
          xlab = "Time", ylab = "y]",
          aspect = 0.4,
)

p2

trellis.focus("legend", side="right", clipp.off = TRUE, highlight = FALSE)
grid.text('[Temp]', 1.9, .5, hjust = 0.5, vjust = 1, rot = 270)
trellis.unfocus()

p2a <- as.grob(p2)

grid.arrange(p1, p2a, ncol = 1)

...