facet_grid() errors with the dev version of tibble

[yutannihilation]

library(ggplot2)

packageVersion("vctrs")
#> [1] '0.2.0.9001'

df <- data.frame(x = 1:2, y = 1:2, z = factor(c("a", "b")))

# OK
ggplot(df, aes(x, y, colour = z)) +
  geom_point() +
  facet_grid(vars(x), vars(y))

# error
ggplot(df[1,], aes(x, y, colour = z)) +
  geom_point() +
  facet_grid(vars(x), vars(y))
#> Vector of length 2 cannot be recycled to length 1. Only vectors of length
#> one or of the same length can be recycled.

[yutannihilation]

Now I think this is due to the change in the dev version of tibble, and it errors on all cases except when the number of rows equals to the number of cols.

library(ggplot2, lib.loc = "~/R-dev/")

d <- data.frame(
  x = c("a", "b", "c"),
  y = c("X", "Y", "Z")
)

ggplot(d, aes(x, y)) +
  geom_point() +
  facet_grid(vars(x), vars(y))
#> Vector of length 2 cannot be recycled to length 3. Only vectors of length
#> one or of the same length can be recycled.

It seems error comes from here:

ggplot2/R/facet-grid-.r

Line 279 in b842024

facet_vals[] <- lapply(facet_vals[], as.factor)

library(tibble)

d <- tibble(x = 1, y = 1)
d[] <- lapply(d[], as.factor)
#> Vector of length 2 cannot be recycled to length 1. Only vectors of length
#> one or of the same length can be recycled.

^{Created on 2019-08-21 by the reprex package (v0.3.0)}

[lock]

This old issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with reprex) and link to this issue. https://reprex.tidyverse.org/