스 캐터 슬롯의 x 축에서 더 나은 날짜 나누기를 얻으려면 어떻게해야합니까?

Question

나는 다음과 같은 데이터 프레임을 가지고있다 :

Days  Ahm5 
01/06/1961 0.00000 
02/06/1961 0.19266 
03/06/1961 1.67610 
........ ........ 
30/09/1961 5.26514 
01/06/1962 0.05200 
......... ........ 
30/09/2007 0.866473 

여기에 데이터의 : https://www.dropbox.com/s/de88gqk7kvb1q9i/data.csv?dl=0 내가 같은 산포도를하려고하면,

data <- read.csv("data.csv") 
data[data==-9.99e+08] = NA      
data$days <- as.Date(data$days, format="%d/%m/%Y") 
plot(Ahm5~days,data, col='blueviolet', type="p", pch=1 ,cex=.5, xlab="Year",xaxt='n', ylab="Rainfall(mm/Day)") 
axis.Date(side=1,seq(as.Date("1961/1/1"), by = "year", length.out = 47)) 

출력은 다음과 같다.

하지만 내 원하는 출력은 데이터로 2007 년 1960 x 축 범위와 아래에 주어진 그림과 같이해야한다 :

이 또한 방법 x 축에 작년에 추가? 이 사소한 질문에 대해 실례합니다.

Answer 1

플롯이 충분히 넓은 지 확인해야합니다. 그렇지 않으면 휴식 시간 중 일부가 생략됩니다. 차이점을 보려면 아래 예를 참조하십시오.

예 1

png(filename = 'scatterplot1.png', width = 800, height = 400) 
plot(Ahm5 ~ days, dat, col = 'blueviolet', type = "p", pch = 1, cex=.5, xlab = "Year", xaxt='n', ylab = "Rainfall (mm/Day)") 
axis.Date(side = 1, at = seq(as.Date("1961/1/1"), by = "year", length.out = 47)) 
dev.off() 

준다 :

예 2

png(filename = 'scatterplot2.png', width = 600, height = 300) 
plot(Ahm5 ~ days, dat, col = 'blueviolet', type = "p", pch = 1, cex=.5, xlab = "Year", xaxt='n', ylab = "Rainfall (mm/Day)") 
axis.Date(side = 1, at = seq(as.Date("1961/1/1"), by = "year", length.out = 47)) 
dev.off() 

준다 :

예 3 :

png(filename = 'scatterplot3.png', width = 400, height = 200) 
plot(Ahm5 ~ days, dat, col = 'blueviolet', type = "p", pch = 1, cex=.5, xlab = "Year", xaxt='n', ylab = "Rainfall (mm/Day)") 
axis.Date(side = 1, at = seq(as.Date("1961/1/1"), by = "year", length.out = 47)) 
dev.off() 

이 제공 :

당신은 휴식이 플롯과 R 사용 중단하는 선택 사이에 차이가 볼 수 있듯이. 더 좋은 휴식을 가지고, 당신은 사용할 수 있습니다

png(filename = 'scatterplot4.png', width = 800, height = 400) 
plot(Ahm5 ~ days, dat, col = 'blueviolet', type = "p", pch = 1, cex=.5, xlab = "Year", xaxt='n', ylab = "Rainfall (mm/Day)") 
axis.Date(side = 1, at = seq(as.Date("1965/8/1"), by = "5 year", length.out = 9)) 
dev.off() 

준다 : 이제

은 당신이 :

진드기가 중간에 정렬

• 좋네요 휴식 해마다 '산포 말뚝'

---

UPDATE : 마지막 예에있어서 동화 : 범

png(filename = 'scatterplot5.png', width = 800, height = 400) 
plot(Ahm5 ~ days, dat, col = 'blueviolet', type = "p", pch = 1, cex=.5, 
    xlab = "Year", xaxt='n', ylab = "Rainfall (mm/Day)") 
axis.Date(side = 1, 
      at = c(seq(as.Date("1960/8/1"), by = "10 year", length.out = 5), 
       as.Date('2007-08-01'))) 
dev.off() 

: