### Subversion checkout URL

You can clone with HTTPS or Subversion.

Fetching contributors…

Cannot retrieve contributors at this time

file 36 lines (34 sloc) 1.59 kb
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 `#' Cartesian coordinates with fixed relationship between x and y scales.#'#' A fixed scale coordinate system forces a specified ratio between the#' physical representation of data units on the axes. The ratio represents the#' number of units on the y-axis equivalent to one unit on the x-axis. The#' default, \code{ratio = 1}, ensures that one unit on the x-axis is the same#' length as one unit on the y-axis. Ratios higher than one make units on the#' y axis longer than units on the x-axis, and vice versa. This is similar to#' \code{\link[MASS]{eqscplot}}, but it works for all types of graphics.#'#' @aliases coord_fixed coord_equal#' @export coord_fixed coord_equal#' @inheritParams coord_cartesian#' @param ratio aspect ratio, expressed as \code{y / x}#' @examples#' # ensures that the ranges of axes are equal to the specified ratio by#' # adjusting the plot aspect ratio#' #' qplot(mpg, wt, data = mtcars) + coord_fixed(ratio = 1)#' qplot(mpg, wt, data = mtcars) + coord_fixed(ratio = 5)#' qplot(mpg, wt, data = mtcars) + coord_fixed(ratio = 1/5)#' #' # Resize the plot to see that the specified aspect ratio is maintainedcoord_fixed <- function(ratio = 1, xlim = NULL, ylim = NULL, wise = NULL) {  if (!is.null(wise))    gg_dep("0.9.0", "wise argument to coord_cartesian is ignored")  coord(limits = list(x = xlim, y = ylim), ratio = ratio,    subclass = c("fixed", "cartesian"))}coord_equal <- coord_fixed#' @S3method coord_aspect fixedcoord_aspect.fixed <- function(coord, ranges) {  diff(ranges\$y.range) / diff(ranges\$x.range) * coord\$ratio}`
Something went wrong with that request. Please try again.