使用ggplot2绘图，刚学。

x0 <- 1:100
y0 <- x0^2 - 2*x0 + 10

    par(mar=c(5, 5, 1, 1))
    p <- qplot(x0, y0, geom=c("point", "smooth"), method="lm",
               xlab="Log(diameter of breast height) (cm)", ylab="Log(weight) (kg)")
    p <- p + theme(axis.text.x = element_text(angle = 00, hjust = 1, size=7, color="black"))
    p <- p + theme(axis.text.y = element_text(angle = 00, hjust = 1, size=7, color="black"))
    p <- p + theme(axis.title.y = element_text(size = rel(0.60), angle = 90))
    p <- p + theme(axis.title.x = element_text(size = rel(0.60), angle = 00))
    p


xlab和ylab距离坐标轴都太近了，如何放远一些？谢谢！