删除ggplot y轴和第一个x值之间的间隙

问题描述

我需要在x轴上删除1950年前的差距。

I need to remove the gap preceding 1950 on the x axis.

我试图使用 scale_x_continuous 但是这导致：

I have attempted to use scale_x_continuous but this results in:

错误：提供给连续比例的离散值

我相信这必须与数据的日期格式有关。

I believe this must have something to do with the date format of the data.

示例数据：

x      y                date
1    -631152000 -1.018 1950-01-01 01:32:40
2    -628473600 -1.143 1950-02-01 01:32:40
3    -626054400 -1.290 1950-03-01 01:32:40
4    -623376000 -1.061 1950-04-01 01:32:40
5    -620784000 -1.416 1950-05-01 01:32:40
6    -618105600 -1.372 1950-06-01 01:32:40
7    -615513600 -1.334 1950-07-01 01:32:40
8    -612835200 -1.050 1950-08-01 01:32:40
9    -610156800 -0.578 1950-09-01 01:32:40
10   -607564800 -0.395 1950-10-01 01:32:40

用于创建情节的代码：

Plot <- ggplot(d2,aes(x = date,
              y = y)) +
  geom_area(data=subset(d2, y<=0), fill="blue") +
  geom_area(data=subset(d2, y>=0), fill="red") +
  scale_y_continuous(name = "MEI")+
  xlab("Year")+
  theme(axis.text.y   = element_text(size=24),
        axis.text.x   = element_text(size=24),
        axis.title.y  = element_text(size=24),
        axis.title.x  = element_text(size=24),
        panel.background = element_blank(),
        panel.grid.major = element_line(colour = "grey"),
        strip.background = element_blank(),
        panel.border = element_rect(colour = "black", fill = NA),
        axis.line = element_line(colour = "black"))

任何帮助将不胜感激！

Any help would be greatly appreciated!!!

推荐答案

您可以使用展开参数 scale_x_datetime 以删除轴和数据开始之间的空格。 （你也可以使用scale_y（x）_continuous和其他...）

You can use the expand argument of scale_x_datetime to remove the space between the axis and the start of the data. (you can also use this in scale_y(x)_continuous, and others...)

# your data - tweaked to include pos / neg y values
d2 <- read.table(text="x      y                date
1    -631152000 -1.018 '1950-01-01 01:32:40'
2    -628473600 -1.143 '1950-02-01 01:32:40'
3    -626054400 -1.290 '1950-03-01 01:32:40'
4    -623376000 -1.061 '1950-04-01 01:32:40'
5    -620784000 -1.416 '1950-05-01 01:32:40'
6    -618105600 1.372 '1950-06-01 01:32:40'
7    -615513600 1.334 '1950-07-01 01:32:40'
8    -612835200 1.050 '1950-08-01 01:32:40'
9    -610156800 0.578 '1950-09-01 01:32:40'
10   -607564800 0.395 '1950-10-01 01:32:40'", header=TRUE)

# create date class and tag for y being pos / negative
d2$date <- as.POSIXct(d2$date)
d2$tag <- d2$y < 0

library(ggplot2)

ggplot(d2,aes(x = date, y = y, fill=tag)) +
                      geom_area() +
                      scale_y_continuous(name = "MEI")+
                      scale_x_datetime(expand=c(0,0))

这篇关于删除ggplot y轴和第一个x值之间的间隙的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！