ggplot2: कॉलम

Question

के फ़ंक्शन पर फ़ेसटिंग ggplot2 में इसका उत्तर नहीं मिला, क्या कॉलम के मान के बजाय कॉलम के फ़ंक्शन पर फ़ंक्शन करना संभव है?

सरल प्रतिलिपि प्रस्तुत करने योग्य उदाहरण:

नमूना डेटा:

df=data.frame(dat=c(1,2,5,5,7)) 

यह काम करता है:

ggplot(df, aes(x=1:5, y=dat, colour=factor(dat > 3))) + 
     geom_point() + facet_grid(dat ~ .) 

यह नहीं करता है:

ggplot(df, aes(x=1:5, y=dat, colour=factor(dat > 3))) + 
     geom_point() + facet_grid((dat > 3) ~ .) 

एक समाधान एक स्तंभ जोड़ने के लिए है बस के लिए पहलू। यह काम करता है:

df$facet=df$dat>3 
ggplot(df, aes(x=1:5, y=dat, colour=factor(dat > 3))) + 
     geom_point() + facet_grid(facet ~ .) 

लेकिन डेटा.फ्रेम पर नया कॉलम जोड़ने के बिना ऐसा करने का कोई तरीका है?

Answer 1

मैं एक समझौता समाधान के साथ आया हूं, जो टिप्पणी अनुभाग में पोस्ट @Nathan और @ Яaffael के तर्कों के बीच एक व्यापार-बंद है।

FacetingFunction <- function(df) {df$dat > 3} 
ArbitraryFacetingPlot <- function(df, FacetingFunction) { 
    df$facet <- FacetingFunction(df) 
    p <- ggplot(df, aes(x=1:5, y=dat, colour=factor(dat > 3))) + 
    geom_point() + 
    facet_grid(facet ~ .) 
    df$facet <- NULL 
    p 
} 

ArbitraryFacetingPlot(df, FacetingFunction) 
ArbitraryFacetingPlot(df, function(df) {df$dat==5})