Estoy tratando de averiguar por qué el operador tee,% T>%, no funciona cuando paso los datos a un comando ggplot.

Esto funciona bien

library(ggplot2)
library(dplyr)
library(magrittr)

mtcars %T>%
  qplot(x = cyl, y = mpg, data = ., geom = "point") %>%
  qplot(x = mpg, y = cyl, data = ., geom = "point")

Y esto también funciona bien

mtcars %>%
  {ggplot() + geom_point(aes(cyl, mpg)) ; . } %>%
  ggplot() + geom_point(aes(mpg, cyl))

Pero cuando uso el operador tee, como se muestra a continuación, arroja "Error: ggplot2 no sabe cómo manejar los datos del entorno de clase".

mtcars %T>%
  ggplot() + geom_point(aes(cyl, mpg)) %>%
  ggplot() + geom_point(aes(mpg, cyl))

¿Alguien puede explicar por qué este código final no funciona?