ggplot2 + aes_string wewnątrz funkcji poprzez interfejs wzorze

Question

Interaktywnie, ten przykład działa dobrze:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() 
p + facet_grid(. ~ vs) 

Teraz dokonać funkcji z interfejsem formuły i używać aes_string zrobić to samo, i to nie działa (błąd jest: Error in layout_base(data, cols, drop = drop) : At least one layer must contain all variables used for facetting):

tf <- function(formula, data) { 
res <- as.character(formula[[2]]) 
fac2 <- as.character(formula[[3]][3]) 
fac1 <- as.character(formula[[3]][2]) 

# p <- ggplot(aes_string(x = fac1, y = res), data = data) 
# p <- p + geom_point() # original attempt 
p <- ggplot() # This is Joran's trick, but it doesn't work here 
p <- p + geom_point(aes_string(x = fac1, y = res), data = data) 
p <- p + facet_grid(.~fac2) # comment this out, and it works but 
# of course is not faceted 
} 

p <- tf(formula = wt ~ am*vs, data = mtcars) 

Przez podstęp Jøran za odsyłam do here, które jest podobne pytanie napisałem niedawno. W tym przypadku ggplot2 nie widzi mojej prośby facetingowej. Dokonanie tego facet_grid(".~fac2") nie przyniosło efektu. Propozycje? Ciągle jestem pod wpływem tych rzeczy. Dzięki!

Answer 1

Można użyć as.formula i paste:

p <- p + facet_grid(as.formula(paste(". ~", fac2))) 

W przykładzie daje to:

Answer 2

Użyłem formula.tools do manipulowania formuł.

Myślę, że powinieneś mieć osobny argument dla wzoru facetingu, w przeciwnym razie trzeba będzie stworzyć własny parser wypracować co wt ~ am*vs oznacza w kategoriach szlifowaniem

coś ideą grupowania kratownica może być przydatna

wt~am | vs

ale trzeba by zagłębić się w siatce, aby zobaczyć, w jaki sposób analizować swoje formuły (zobacz latticeParseFormula - skomplikowane)

Łatwiejsze oddzielenie dwóch formuł. można przekazać listę zmiennych znakowych jak RHS i LHS do facet argument facet_grid

Ja również używane environment = parent.frame() który działa w moim małym testów

library(formula.tools) 

tf <- function(formula, faceting = NULL, data, print = TRUE) { 
    y <- rhs(formula) 
    x <- lhs(formula) 

    p <- ggplot(environment = parent.frame()) 

    p <- p + geom_point(aes_string(x = x, y = y), data = data) 
    if (! is.null(faceting)){ 
    rhsfacet <- all.vars(rhs(faceting)) 
    lhsfacet <- all.vars(lhs(faceting)) 
    if(length(lhsfacet)==1 & any(lhsfacet %in% '.')) {lhsfacet <- NULL} 
    if(length(rhsfacet)==1 & any(rhsfacet %in% '.')) {rhsfacet <- NULL} 
    p <- p+ facet_grid(facet = list(lhsfacet, rhsfacet))} 
    if(print) {print(p)} 
    p 

} 
tf(wt~mpg, faceting = ~am, data = mtcars, print = TRUE)