ggplot, рисование линий на нескольких гранях (ось x - дата) - PullRequest
Новая
       46

ggplot, рисование линий на нескольких гранях (ось x - дата)

0 голосов
/ 21 февраля 2020

Мой вопрос почти идентичен этому вопросу ЗА ИСКЛЮЧЕНИЕМ того, что я использую даты для своей оси x. Я попробовал код из ответа в связанном вопросе. Приведенный пример работает для меня, но я не могу заставить его работать для моего набора данных. Я предполагаю, что это из-за дат?

(Извините, я не смог прокомментировать предыдущую цепочку вопросов - я новичок и не могу прокомментировать)

Вот пример кода: 

library(ggplot2)
library(gtable)
library(grid)

data<-data.frame(Date=rep(seq(as.Date("2018-09-22","%Y-%m-%d"),
                              as.Date("2019-06-19","%Y-%m-%d"),
                              by=30),9),
                 Station=c(rep("A",30),rep("B",30),rep("C",30)),
                 Description=rep(c(rep("Var1",10),rep("Var2",10),
                                   rep("Var3",10)),3),
Data=c(seq(1,10,by=1),seq(500,800,length.out=10),seq(30,90,length.out=10),                   seq(5,19,length.out=10),seq(450,1080,length.out=10),seq(20,60,length.out=10),                  seq(2,15,length.out=10),seq(600,750,length.out=10),seq(80,25,length.out=10)))

plot<-ggplot(data,aes(x=Date,y=Data,color=as.factor(Station)))+
  geom_line(size=1)+
  facet_grid(Description~.,scales="free_y",switch="y")+
  xlab("")+
  ylab("")+
  theme(panel.background=element_blank(),
        panel.grid.major.y=element_line(color="grey80",
                                        size=0.25),
        panel.grid.major.x=element_blank(),
        axis.line=element_line(color="black"),
        strip.placement="outside",
        strip.background=element_blank(),
        legend.position="top",
        legend.key=element_blank(),
        legend.title=element_blank())
plot
plot.b<-ggplot_build(plot)
plot.g<-ggplot_gtable(plot.b)
data2npc <- function(x, panel = 1L, axis = "x") {
  range <- plot.b$layout$panel_params[[panel]][[paste0(axis,".range")]]
  scales::rescale(c(range, x), c(0,1))[-c(1,2)]
}
start <- sapply(as.Date("2018-10-10"),"%Y-%m-%d"), data2npc, panel=1, axis="x")
plot.g <- gtable_add_grob(plot.g, segmentsGrob(x0=start, x1=start, y0=0, y1=1, gp=gpar(lty=2)), t=7, b=9,l=5)

grid.newpage()
grid.draw(plot.g)

результирующий участок

1 Ответ

0 голосов
/ 22 февраля 2020

Я понял свой ответ!

Ключ к изменению t, b и l в gtable_add_grob: 

plot.g <- gtable_add_grob(plot.g, segmentsGrob(x0=start, x1=start, y0=0, y1=1, gp=gpar(lty=2)), t=7, b=13,l=7)

Хотя, мне кажется, методом проб и ошибок определить правильные значения t, b, и я.

Новый код: 

library(ggplot2)
library(gtable)
library(grid)

data<-data.frame(Date=rep(seq(as.Date("2018-09-22","%Y-%m-%d"),
                              as.Date("2019-06-19","%Y-%m-%d"),
                              by=30),9),
                 Station=c(rep("A",30),rep("B",30),rep("C",30)),
                 Description=rep(c(rep("Var1",10),rep("Var2",10),
                                   rep("Var3",10)),3),
Data=c(seq(1,10,by=1),seq(500,800,length.out=10),seq(30,90,length.out=10),                seq(5,19,length.out=10),seq(450,1080,length.out=10),seq(20,60,length.out=10),                     seq(2,15,length.out=10),seq(600,750,length.out=10),seq(80,25,length.out=10)))

plot<-ggplot(data,aes(x=Date,y=Data,color=as.factor(Station)))+
  geom_line(size=1)+
  facet_grid(Description~.,scales="free_y",switch="y")+
  xlab("")+
  ylab("")+
  theme(panel.background=element_blank(),
        panel.grid.major.y=element_line(color="grey80",
                                        size=0.25),
        panel.grid.major.x=element_blank(),
        axis.line=element_line(color="black"),
        strip.placement="outside",
        strip.background=element_blank(),
        legend.position="top",
        legend.key=element_blank(),
        legend.title=element_blank())
plot
plot.b<-ggplot_build(plot)
plot.g<-ggplot_gtable(plot.b)
data2npc <- function(x, panel = 1L, axis = "x") {
  range <- plot.b$layout$panel_params[[panel]][[paste0(axis,".range")]]
  scales::rescale(c(range, x), c(0,1))[-c(1,2)]
}
start <- sapply(as.Date("2018-10-10","%Y-%m-%d"), data2npc, panel=1, axis="x")
plot.g <- gtable_add_grob(plot.g, segmentsGrob(x0=start, x1=start, y0=0, y1=1, gp=gpar(lty=2)), t=7, b=13,l=7)

grid.newpage()
grid.draw(plot.g)

И Новый результирующий участок

...