生活还很长,别急,慢慢来。亲爱的
require(ggplot2)
p1 <- ggplot(mpg, aes(displ, hwy)) + geom_point() ; p1
p1 + scale_x_continuous("Engine displacement (L)") + scale_y_continuous("Highway MPG")
p1 + scale_x_continuous(limits = c(2, 6))
p1 + scale_x_continuous(limits = c(0, 10))
p1 + scale_x_continuous(breaks = c(2, 4, 6))
p1 + scale_x_continuous(breaks = c(2, 4, 6),label = c("two", "four", "six"))
p1 + scale_y_log10()
p1 + scale_y_sqrt()
p1 + scale_y_reverse()
p1 + scale_y_continuous(trans = scales::reciprocal_trans())
df <- data.frame(x = rnorm(10) * 100000,y = seq(0, 1, length.out = 10))
p2 <- ggplot(df, aes(x, y)) + geom_point(); p2
p2 + scale_y_continuous(labels = scales::percent)
p2 + scale_y_continuous(labels = scales::dollar)
p2 + scale_x_continuous(labels = scales::comma)
原文地址:https://www.cnblogs.com/li-20151130/p/9062179.html