{"issue":{"title":"facet_wrap ignores drop","created_at":"2011-02-04T16:25:00Z","user":{"login":"hadley","id":4196,"url":"https://api.github.com/users/hadley","gravatar_id":"7ba164f40a50bc23dbb2aa825fb7bc16","avatar_url":"https://secure.gravatar.com/avatar/7ba164f40a50bc23dbb2aa825fb7bc16?d=https://a248.e.akamai.net/assets.github.com%2Fimages%2Fgravatars%2Fgravatar-140.png"},"milestone":{"creator":{"login":"hadley","id":4196,"url":"https://api.github.com/users/hadley","gravatar_id":"7ba164f40a50bc23dbb2aa825fb7bc16","avatar_url":"https://secure.gravatar.com/avatar/7ba164f40a50bc23dbb2aa825fb7bc16?d=https://a248.e.akamai.net/assets.github.com%2Fimages%2Fgravatars%2Fgravatar-140.png"},"open_issues":4,"title":"0.9","created_at":"2011-08-15T10:23:47Z","state":"open","due_on":null,"closed_issues":42,"number":1,"description":"","url":"https://api.github.com/repos/hadley/ggplot2/milestones/1"},"updated_at":"2011-12-23T16:07:52Z","labels":[{"name":"bug","url":"https://api.github.com/repos/hadley/ggplot2/labels/bug","color":"e02a2a"},{"name":"facet","url":"https://api.github.com/repos/hadley/ggplot2/labels/facet","color":"ededed"}],"state":"open","id":575313,"closed_at":null,"html_url":"https://github.com/hadley/ggplot2/issues/163","pull_request":{"patch_url":null,"html_url":null,"diff_url":null},"body":"    mpg$cyl2 <- factor(mpg$cyl, levels = c(2, 4, 5, 6, 8, 10))\r\n    qplot(displ, hwy, data = mpg) + facet_wrap(~ cyl2, drop = FALSE)","number":163,"url":"https://api.github.com/repos/hadley/ggplot2/issues/163","comments":4,"assignee":null},"comment":{"created_at":"2011-12-23T16:07:52Z","user":{"login":"hadley","id":4196,"url":"https://api.github.com/users/hadley","gravatar_id":"7ba164f40a50bc23dbb2aa825fb7bc16","avatar_url":"https://secure.gravatar.com/avatar/7ba164f40a50bc23dbb2aa825fb7bc16?d=https://a248.e.akamai.net/assets.github.com%2Fimages%2Fgravatars%2Fgravatar-140.png"},"updated_at":"2011-12-23T16:07:52Z","id":3262145,"body":"Tests for a few more related cases:\r\n\r\n```R\r\n\r\nmpg$cyl2 <- factor(mpg$cyl, levels = c(2, 4, 5, 6, 8, 10))\r\nmpg$cyl3 <- factor(mpg$cyl, levels = c(8 ,6, 5, 4, 1))\r\nmpg$cyl4 <- factor(mpg$cyl, levels = c(2, 4))\r\n\r\nqplot(displ, hwy, data = mpg) + facet_wrap(~ cyl2, drop = FALSE)\r\nqplot(displ, hwy, data = mpg) + facet_wrap(~ cyl3, drop = FALSE)\r\nqplot(displ, hwy, data = mpg) + facet_wrap(~ cyl4, drop = FALSE)\r\n\r\nqplot(displ, hwy, data = mpg) + facet_grid(. ~ cyl2, drop = FALSE)\r\nqplot(displ, hwy, data = mpg) + facet_grid(. ~ cyl3, drop = FALSE)\r\nqplot(displ, hwy, data = mpg) + facet_grid(. ~ cyl4, drop = FALSE)\r\n```","url":"https://api.github.com/repos/hadley/ggplot2/issues/comments/3262145"},"action":"created"}