«Ошибка: неверный ввод: time_trans работает только с объектами класса POSIXct» с типами geom_rect и date / POSIXct - PullRequest
Новая
       78

«Ошибка: неверный ввод: time_trans работает только с объектами класса POSIXct» с типами geom_rect и date / POSIXct

1 голос
/ 16 января 2020

У меня есть следующий набор данных: 

# A tibble: 30 x 4
# Groups:   Group, Week_End_Date [30]
   Group Week_End_Date       time_period             Outcome
   <lgl>   <dttm>              <fct>                   <dbl>
 1 FALSE   2019-09-22 00:00:00 Baseline                5241.
 2 FALSE   2019-09-29 00:00:00 Baseline                5089.
 3 FALSE   2019-10-06 00:00:00 Baseline                4991.
 4 FALSE   2019-10-13 00:00:00 Baseline                4920.
 5 FALSE   2019-10-20 00:00:00 Baseline                4896.
 6 FALSE   2019-10-27 00:00:00 Baseline                4921.
 7 FALSE   2019-11-03 00:00:00 Baseline                4999.
 8 FALSE   2019-11-10 00:00:00 Activation              5003.
 9 FALSE   2019-11-17 00:00:00 Activation              4995.
10 FALSE   2019-11-24 00:00:00 Activation              5098.
# ... with 20 more rows

Я могу построить график, например: 

    ggplot(dataset, aes(y=Outcome, x=Week_End_Date, color=Group, fill=Group)) +
      geom_point() +
      geom_line() +
      theme_bw() +
labs(y="Outcome", x="Date", color="Group", fill="Group")

graph without rectangle

I хотите заштриховать это на основе переменной "time_period" (в это вложено значение Week_End_Date)

например, 

ggplot(dataset, aes(y=Outcome, x=Week_End_Date, color=Group, fill=Group)) +
  geom_point() +
  geom_line() +
  theme_bw()
  geom_line() +
  theme_bw() +
 geom_rect(aes(fill=time_period, xmax=Inf, xmin=-Inf, ymax=Inf, ymin=-Inf))

, однако это приводит к сообщению об ошибке 

Error: Invalid input: time_trans works with objects of class POSIXct only

Я также попытался нарисовать два прямоугольника по отдельности (я добавлю альфа-аргумент позже, как только они будут успешно построены): 

    ggplot(dataset, aes(y=Outcome, x=Week_End_Date, color=Group, fill=Group)) +
      geom_point() +
      geom_line() +
      theme_bw()
      geom_line() +
      theme_bw() +
geom_rect(inherit.aes=FALSE, aes(xmin=dmy("06Nov2019"), xmax=dmy("06Jan2020"), ymax=Inf, ymin=-Inf), fill="red") +
  geom_rect(inherit.aes=FALSE, aes(xmin=dmy("01Jan2019"), xmax=dmy("06Nov2019"), ymax=Inf, ymin=-Inf), fill="blue")

, но это приводит к той же ошибке.

Может кто-нибудь посоветовать мне что я делаю не так? Я чувствую, что это должно быть гораздо проще, чем кажется! Переменная x - это дата и время

1 Ответ

0 голосов
/ 16 января 2020

Я пытаюсь смоделировать нечто, похожее на ваш набор данных, но, как сказал @camille, попытаться предоставить набор данных для go с вашим кодом? Это ускоряет процесс.

Сначала данные: 

DATES = seq(as.POSIXlt("2019-01-01 00:00:00", tz="UTC"), 
    as.POSIXlt("2020-01-31 00:00:00", tz="UTC"), length.out=20)

dataset = data.frame(
  Outcome = c(rpois(20,1000),rpois(20,2000)),
  Week_End_Date = rep(DATES,2),
  Group = rep(c(FALSE,TRUE),each=20)
)
dataset$time_period = ifelse(
dataset$Week_End_Date < as.POSIXlt("2019-11-06 00:00:00", tz="UTC"),
"Baseline",
"Activation"
)

Вам нужен еще один фрейм данных, который определяет начало и конец двух ваших периодов времени: 

FRAME = dataset %>% group_by(time_period) %>% 
summarize(xmin=min(Week_End_Date),xmax=max(Week_End_Date))

Тогда, аналогично тому, что вы сделали, мы можем использовать это в geom_rect, за исключением того, что теперь он поставляется с легендой: 

ggplot(dataset, aes(y=Outcome, x=Week_End_Date, color=Group)) +
  geom_point() +
  geom_line() +
  theme_bw() +
  labs(y="Outcome", x="Date", color="Group", fill="Group")+
  geom_rect(data=FRAME,inherit.aes=FALSE,
  aes(xmin=xmin,xmax=xmax,ymax=+Inf,ymin=-Inf,fill=time_period),alpha=0.1)+
  scale_fill_manual(values=c("red","blue"))

enter image description here

...