從x軸向下移動x軸標籤

Question

x<- structure(list(count = c(4259120, 4317840, 4444000, 4254240, 
4656800), the_date = structure(c(1389589200, 1389675600, 1389762000, 
1389848400, 1389934800), class = c("POSIXct", "POSIXt"), tzone = "")), .Names =  c("count", 
"the_date"), row.names = c(51L, 406L, 664L, 197L, 196L), class = "data.frame") 

par(mar = c(8, 4, 4, 2) + 0.1) 
plot(x$the_date, x$count, type="l", xaxt = "n", xlab = "") 
axis(1, labels = FALSE) 
labels<-x$the_date 
labels<-format(labels, format="%b-%d-%Y") 
text(x$the_date, par("usr")[3] - 0.75, srt = 55, adj = 1, labels = labels, xpd = TRUE) 

我試過調整par("usr")[3] - 0.75偏移量，如指定的here，但標籤根本沒有移動。

Answer 1

你可以像這樣使用2個調用axis函數的技巧。我在這裏使用axis.Date，因爲你處理日期（更好的格式）。然後你可以用line自變量與標籤位置一起玩。

axis(1,labels=FALSE) 
axis.Date(1,at = x$the_date,las=2, format= "%m-%d",line=0.5,tick=FALSE)