r - 在ggplot中添加空格/增加X和Y轴之间的空间
问题描述
我正在为一个需要特定外观的项目绘制一些图。他们需要在轴线和绘图面板之间留出一些空间。
library(ggplot2)
plot_data <- data.frame(X = 1:10, Y = 1:10)
ggplot() + geom_point(data = plot_data, aes(x = X, y = Y)) +
theme(axis.line = element_line(colour = "black", linetype = "solid"))
我有的
我想在我的绘图的 X 轴和 Y 轴之间添加一些距离,但我的轴线也没有扩展,就像我使用 expand 命令时一样。
plot_data <- data.frame(X = 1:10, Y = 1:10)
ggplot() + geom_point(data = plot_data, aes(x = X, y = Y)) +
theme(axis.line = element_line(colour = "black", linetype = "solid"))+
scale_x_continuous(name = "X", limits = c(1, 10), expand = c(0.1,0)) +
scale_y_continuous(name = "Y", limits = c(1, 10), expand = c(0.1,0))
我可以做什么
在 R 中是否有一种快速可靠的方法来做到这一点?
我想要的是
谢谢大家 !
解决方案
您可以使用包实现对行的“封顶” lemon
。您可以使用以下代码来实现此目的:
library(ggplot2)
library(lemon)
### your code
plot_data <- data.frame(X = 1:10, Y = 1:10)
p <- ggplot() + geom_point(data = plot_data, aes(x = X, y = Y)) +
theme(axis.line = element_line(colour = "black", linetype = "solid"))+
scale_x_continuous(name = "X", limits = c(1, 10), expand = c(0.1,0)) +
scale_y_continuous(name = "Y", limits = c(1, 10), expand = c(0.1,0))
### using the lemon package
p + coord_capped_cart(bottom='right', left='none', gap = 0.15)
### mimic the view of your plot
p2 <- p + coord_capped_cart(bottom='right', left='none', gap = 0.15)
p2 + theme(panel.background = element_rect(fill = "white"))
这会产生以下图片:
推荐阅读
- python - 递归地为 self 中的每个对象生成哈希
- c# - 如何获取总天数并减去两个日期时间选择器之间受影响的周末
- html - 如何在不推荐使用 interpolate 的 Webpack 文件加载器 1.0.0 版中实现 html 部分?
- reactjs - 使用 React 测试库和 renderHook 测试具有多个上下文的钩子时出错
- c# - HttpContext.Request 和请求 .NET Core 控制器有什么区别?
- algorithm - 计算具有相互依赖关系的递归算法的复杂度
- c# - 根据条件检索 CloudQueue 中的消息数
- php - 如何声明一个变量以用于 Laravel 6 及以上 laravel 版本中的所有函数?
- c++ - 有条件地声明成员函数的简单 SFINAE 问题
- stanford-nlp - 我可以在不下载语言模块的情况下运行 stanza NER 吗?