ggplot2中xlab如何能远离坐标轴？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

使用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距离坐标轴都太近了，如何放远一些？谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：ggplot2 gplot plot GPL 坐标轴 坐标轴 如何

写得真好                                                                        
                                       
                                                     
                                                     
                                             
                                                                 
                                                                                 

par(mar=c(3,3,0.5,0.5),mgp=c(1.5,0.5,0),bg="white")这里的mgp就是设置这一项的
第一个参数是轴标签相对轴位置的距离，以文本行作为参照单位的。
第二个参数表示刻度标记的距离。
最后一个参数是轴位置到轴线的距离(常常是0)。
正值表示在图形外，负值表示在图形内。

您真牛逼，谢谢！

DM小菜鸟 发表于 2015-1-12 15:12
par(mar=c(3,3,0.5,0.5),mgp=c(1.5,0.5,0),bg="white")这里的mgp就是设置这一项的
第一个参数是轴标签相对 ...

您的方法在普通的plot中适用。但是在qplot画图中，par()似乎不能用！

ggplot(df,aes(x,y))+geom_point()+xlab("测试一下")+theme(axis.title.x = element_text(vjust=-1))
你可以通过
?theme
?element_text
学习这段代码

搞定啦！哈哈，还是我牛比！

  p <- qplot(margins=c(10,5,1,1), log.dbh, log.w0, 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=8, color="black"))
    p <- p + theme(axis.text.y = element_text(angle = 00, hjust = 1, size=8, color="black"))
    p <- p + theme(axis.title.y = element_text(size = rel(0.60), vjust=-0.1, angle = 90))
    p <- p + theme(axis.title.x = element_text(size = rel(0.60), vjust=-2, angle = 00))   
    p <- p + theme(plot.margin = unit(c(0.5,0.5,0.5,0.5), "cm"))
    p

注意axis.title.x以及axis.title.y中的vjust参数。

358463121 发表于 2015-1-29 16:35
ggplot(df,aes(x,y))+geom_point()+xlab("测试一下")+theme(axis.title.x = element_text(vjust=-1))
你可 ...

哈哈，这么巧，我也刚自己解决了这个问题。您的回答和我的一样的。仍然非常感谢。

通过element_text(margin=margin(t=,r=,b=,l=)调整
通过 axis.title.y = element_text(margin = margin(r = )) 调整左侧Y轴标题与坐标轴距离
通过 axis.title.x = element_text(margin = margin(t = )) 调整下方X轴标题与坐标轴距离

ggplot(mpg, aes(cty, hwy)) + geom_point()

ggplot(mpg, aes(cty, hwy)) + geom_point()+theme(axis.title.y = element_text(margin = margin(r = 20)),axis.title.x = element_text(margin = margin(t = 20)))