调整ggplot（R）中的垂直网格以匹配所需值

StackOverflow中的第二个帖子，因此我对enoguh不清楚表示歉意

我需要修改ggplot中的垂直网格，以匹配某些重复周期（每个dar或每个24小时）的开始和结束。我一直在找，但找不到类似的东西。我附加了一个代码来运行该问题：

mydate <- seq(ISOdate(2016,1,1), ISOdate(2016,2,1), by = "hour") # or "3 months"
mysample <- runif(n = length(mydate), min = 1, max = 10)
mydf <- data.frame(mydate,mysample)
mygraph <- ggplot(data = mydf, aes (x = mydate)) +
              geom_line(aes(y = mysample, colour = "red")) +
              ggtitle("MyTry") +
              labs(x="Day of the Month", y= "MyValue") +
              theme(panel.grid.minor = element_line(colour = "gray50", size = 0.1), 
                    panel.grid.major = element_line(colour = "gray50", size = 0.5), 
                    panel.grid.major.x = element_blank(), 
                    panel.background = element_blank(),
                    axis.text.y = element_text(colour="gray", size = 10),
                    axis.text.x = element_text(vjust = 5, size = 9),
                    plot.title = element_text(hjust = 0.5, size = 20, vjust = 1))
mygraph

---

mydate您可以使用
scale\u x\u timedate
alson控制刻度，并在
axis.text.x
和
axis.ticks.x
中进行一些调整，您可以得到粘贴在下面的结果

library(ggplot2)
library(lubridate)
library(scales)
mydate <- seq(ISOdate(2016,1,1), ISOdate(2016,2,1), by = "hour") # or "3 months"
mysample <- runif(n = length(mydate), min = 1, max = 10)
mydf <- data.frame(mydate,mysample)
mygraph <- ggplot(data = mydf, aes (x = mydate)) +
  geom_line(aes(y = mysample, colour = "red")) +
  ggtitle("MyTry") +
  labs(x="Day of the Month", y= "MyValue") +
  scale_x_datetime(labels = date_format("%b-%d"), breaks=pretty_breaks(n = 32)(as_datetime(c("2016-01-01", "2016-02-01")))) +
  theme(panel.grid.minor = element_line(colour = "gray50", size = 0.1), 
        panel.grid.major = element_line(colour = "gray50", size = 0.5), 
        panel.grid.major.x = element_blank(), 
        panel.background = element_blank(),
        axis.text.y = element_text(colour="gray", size = 10),
          axis.text.x = element_text(size = 9, angle = 270, vjust = -.5),
        axis.ticks.x=element_blank(),
        plot.title = element_text(hjust = 0.5, size = 20, vjust = 1),)
mygraph

库（ggplot2）
图书馆（lubridate）
图书馆（比例尺）
我的约会谢谢！这将是有用的。