"xmin", "xintercept", "y", "yend", "ymax", "ymin", "yintercept", "z")
.base_to_ggplot...is.na(full)]]
plyr::rename(x, .base_to_ggplot, warn_missing = FALSE)
}
deparse2 <- function(x)...deparse(x, backtick = TRUE)
if (length(y) == 1) {
y
} else {
paste0(y[[1]], "...")
}
}
#map...data <- lapply(aes(x=mpg, y=cyl, color=cyl),eval, env=mtcars) #from compute_aesthetics function
参考资料
ggplot2