如何从ggplot2中的geom_line中删除空白？

Question

geom_line在第二行有很大的差距，如何消除这个差距！

R脚本列如下，

p <- ggplot(singJanS)+ geom_line(aes(x=sn,y=diff))
p <- p  + geom_hline(yintercept=seq(-0.8,0.8,by=0.4), linetype=2, colour="grey") +
  geom_vline(xintercept=seq(15,744,by=24), linetype=6, colour="red") +
  geom_vline(xintercept=seq(23,744,by=24), linetype=6, colour="blue") +
  ylab(Delta~T~'  ('~degree~C~')')+xlab("")+
  scale_x_continuous(breaks = c(0,120,240,360,480,600,720))+
  scale_y_continuous(breaks = c(-0.8,-0.4,0,0.4,0.8)) +theme_bw()

Answer 1

@ Z.Lin建议的解决方案正常工作。 如果将expand = c（0,0）添加到scale_x_continuous（），则会删除这两个间隙。 set.seed（1） singJanS＆lt; - data.frame（sn = 1：740，diff = rnorm（740）/ 3） p＆lt; -ggplot（singJanS）+ geom_line（aes（x = sn，y = diff）） p＆lt; -p + geom_hline（yintercept = seq（-0.8,0.8，by = 0.4），linetype = 2，color =＆＃34; grey＆＃34;）+   geom_vline（xintercept = seq（15,744，by = 24），linetype = 6，color =＆＃34; red＆＃34;）+   geom_vline（xintercept = seq（23,744，by = 24），linetype = 6，color =＆＃34; blue＆＃34;）+   ylab（Delta~T~＆＃39;（＆＃39;〜度~C~＆＃39;）＆＃39;）+ xlab（＆＃34;＆＃34;）+   scale_x_continuous（breaks = c（0,120,240,360,480,600,720），expand = c（0,0））+   scale_y_continuous（breaks = c（-0.8，-0.4,0,0.4,0.8））+ theme_bw（） p

Answer 2

尝试添加代码

    + scale_x_continuous(limits = c(0, 750))