微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

ggplot:添加带有轴刻度的绘图轮廓

如何解决ggplot:添加带有轴刻度的绘图轮廓

我正在尝试创建图,其中 x 轴也出现在图上方以及图右侧的 y 轴。两者都应包含与法线轴相同的刻度,但不是轴文本。这应该会产生一个“框”,在图周围带有有用的刻度线。我还希望在没有标签的主要刻度(已标记)之间有较小的刻度。这是我画的图:

Plot as it is now

我还用粉红色画出了我想在 R 中实现的目标:

Plot as I would like it

]3

我的这个情节的代码

p <- p + xlab("") + ylab("") + theme(legend.position = "none") + theme(axis.ticks.length = unit(-0.25,"cm"),axis.text.x = element_text(size = 30,hjust=1)) + theme(axis.text.y = element_text(size=35,hjust = 1),strip.text = element_text(size=35),axis.title.y = element_text(size = 40),legend.text = element_text(size=30),axis.title.x = element_text(size=40),legend.title = element_text(size=45)) 
p <- p + theme(text = element_text(family = "Helvetica")) + scale_x_continuous(limits=c(-0.5,25),breaks = c(0,2,4,6,8,24))  + theme(legend.background = element_rect(color = "black",linetype = "solid")) + scale_colour_manual(values = cbpallette)
p <- p + theme(legend.key.size = unit(2.5,"cm")) + theme(axis.text.x = element_text(margin = margin(t = .5,unit = "cm")),axis.text.y = element_text(margin = margin(r = .5,unit = "cm")))
p

*** 编辑 *** 这是更新的代码,使用 Stefans 建议。图看起来是这样,刻度线在那里,轴不见了:

updated figure

p <- p + xlab("") + ylab("") + theme(legend.position = "none") + theme(axis.ticks.length = unit(-0.25,hjust = 1,angle=45),axis.title.x = element_text(size=40)) 
p <- p + theme(text = element_text(family = "Helvetica"))  + scale_colour_manual(values = cbpallette)
p <- p + theme(axis.text.x = element_text(margin = margin(t = .5,unit = "cm"))) 
p

解决方法

您可以使用参数 recvfrom 为两个比例复制轴,如下所示:

sec.axis = dup_axis()

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。