digits.R

# Change the number of digits displayed on ggplot axes

# Define a number formatting function
fmt <- function(ndec) {
  function(x) format(x,nsmall=ndec)
}

ggplot(mpg, aes(x=mpg$displ,y=mpg$hwy)) +
  geom_point() +
  scale_x_continuous(labels=fmt(2)) +
  scale_y_continuous(labels=fmt(3))