swing point 怎么让x 不变_删掉ggplot2的x轴自己定义

现在是有一个任务，就是希望将x轴移动到绿线2地方，然后依然保留y轴下的部分，也就是说：希望x轴从y的0处开始而不是从y轴的最低端开始。

我查了很多资料，但是没有办法修改。好像ggplot2x轴开始的地方必须是y轴的最小值。

上面的代码是：

library(tidyverse)plot_data                     noise = c(rnorm(n = 500, mean = 8, sd = 50),                              rnorm(n = 500, mean = 10, sd = 20)),                    y = abs(x) + x^2 - x/2 + noise)ggplot(data = plot_data, aes(x= x, y = y)) +   geom_point() +   geom_smooth() +   theme_classic() +   theme(panel.grid = element_blank(),        panel.grid.minor = element_blank())

插一句题外话，什么叫ticks：看下图的蓝圈圈里面的2.5头上的有个小短线，这个就是ticks。

修改scale_x_continues里面的expand或者limits参数也不行，设置xlim或者ylim之类的都不行。

然后干脆关闭x轴的所有元素(那个x轴，x轴的标签，x轴的小脚标)

第一步：关闭x轴的所有元素

ggplot(data = plot_data, aes(x= x, y = y)) +   geom_point() +   geom_smooth() +   theme_classic() +   theme(panel.grid = element_blank(),        panel.grid.minor = element_blank()) +   theme(axis.line.x = element_blank(), # 关闭x的那个轴        axis.ticks.x = element_blank(), # 关闭x的那个小脚        axis.text.x = element_blank()) +  # 关闭x的标签  labs(x = '') # 把x轴的轴的名字也删掉

请注意第7到第10行的代码，结果如下：

这个时候x轴就是干干净净的了，

这个时候，我们在y=0处，画个线段，这个使用geom_hline函数就可以设置。(为了显眼，我将这个线的颜色改为红色)代码如下：

ggplot(data = plot_data, aes(x= x, y = y)) +   geom_point() +   geom_smooth() +   theme_classic() +   theme(panel.grid = element_blank(),        panel.grid.minor = element_blank()) +   theme(axis.line.x = element_blank(), # 关闭x的那个轴        axis.ticks.x = element_blank(), # 关闭x的那个小脚        axis.text.x = element_blank()) +  # 关闭x的标签  labs(x = '')  + # 把x轴的轴的名字也删掉  geom_hline(yintercept = 0, color = 'red') # 加个水平线

然后在加上文本，这个主要是根据x轴显示来，参考的第一张图，他的x的text为0.0, 2.5, 5.0, 7.5, 10.0

那么很简单，我们只要写个数据，然后将数据放到y=0这个线的附近(这个条线的下面，只要设置vjust=1或者1.5就可以了，具体调整要看实际情况)。

ggplot(data = plot_data, aes(x= x, y = y)) +   geom_point() +   geom_smooth() +   theme_classic() +   theme(panel.grid = element_blank(),        panel.grid.minor = element_blank()) +   theme(axis.line.x = element_blank(), # 关闭x的那个轴        axis.ticks.x = element_blank(), # 关闭x的那个小脚        axis.text.x = element_blank()) +  # 关闭x的标签  labs(x = '')  + # 把x轴的轴的名字也删掉  geom_hline(yintercept = 0, color = 'red')+  # 加个水平线  geom_text(data = data.frame(x = c(0.0, 2.5, 5.0, 7.5, 10.0),                              y = rep(0, time = 5)),            aes(x = x, y = y, label = as.character(x)),            vjust = 1.5, color = 'red')

上面的12-15行都是添加个字符串，其实就是为了冒充x轴的text。效果如下：

最后一步就是加上小脚标：

这个小脚标可以使用很多方式，用ggplot2中的线段画，但是我是用的是英文字母L的小写l。效果非常好，添加的方式和上面添加text的方式差不多，代码如下：

ggplot(data = plot_data, aes(x= x, y = y)) +   geom_point() +   geom_smooth() +   theme_classic() +   theme(panel.grid = element_blank(),        panel.grid.minor = element_blank()) +   theme(axis.line.x = element_blank(), # 关闭x的那个轴        axis.ticks.x = element_blank(), # 关闭x的那个小脚        axis.text.x = element_blank()) +  # 关闭x的标签  labs(x = '')  + # 把x轴的轴的名字也删掉  geom_hline(yintercept = 0, color = 'red')+  # 加个水平线  # 加x轴的text  geom_text(data = data.frame(x = c(0.0, 2.5, 5.0, 7.5, 10.0),                              y = rep(0, time = 5)),            aes(x = x, y = y, label = as.character(x)),            vjust = 1.5, color = 'red') +   # 加x轴的小脚标(ticks)  geom_text(data = data.frame(x = c(0.0, 2.5, 5.0, 7.5, 10.0),                              y = rep(0, time = 5),                              label = rep("l", time = 5)),            aes(x = x, y = y, label = label),            vjust = 0.5, color = 'red', size = 3)

效果如下：

最后在加上x轴的标签：this is a x label

color_x ggplot(data = plot_data, aes(x= x, y = y)) +   geom_point(alpha = 0.5, color = 'gray') +   geom_smooth() +   theme_classic() +   theme(panel.grid = element_blank(),        panel.grid.minor = element_blank()) +   theme(axis.line.x = element_blank(), # 关闭x的那个轴        axis.ticks.x = element_blank(), # 关闭x的那个小脚        axis.text.x = element_blank()) +  # 关闭x的标签  labs(x = '')  + # 把x轴的轴的名字也删掉  geom_hline(yintercept = 0, color = color_x)+  # 加个水平线  # 加x轴的text  geom_text(data = data.frame(x = c(0.0, 2.5, 5.0, 7.5, 10.0),                              y = rep(0, time = 5)),            aes(x = x, y = y, label = as.character(x)),            vjust = 1.5, color = color_x) +   # 加x轴的小脚标(ticks)  geom_text(data = data.frame(x = c(0.0, 2.5, 5.0, 7.5, 10.0),                              y = rep(0, time = 5),                              label = rep("l", time = 5)),            aes(x = x, y = y, label = label),            vjust = 0.5, color = color_x, size = 3) +   geom_text(data = data.frame(x = 5, y = 0, label = 'this is a x label'),            aes(x = x, y = y, label = label),             color = color_x, vjust = 3)

为了防止喧宾夺主，我将点的颜色和透明的修改了，效果如下：

所有虽然ggplot2没有提供移动x轴位置的东西(可以移动到顶部，可能有函数帮助移动到任意位置，我没找到，欢迎大家提供更多的信息)。

这也为以后我们修改坐标轴创建了一些方法，哪个轴丑，就可以删掉，然后自己画！！！

ggplot2真灵活啊，

我之前也介绍过x轴的一些内容，可以看下面的链接：

ggplot2的刻度问题怎么处理

如何改变x轴的xxxx(part 2)

ggplot2小细节修改(图例、刻度位置、边框、网格)

如何改变ggplot2的y轴的刻度

获得更多数据处理、可视化以及建模，python或者R

欢迎关注华东吴亦凡