[英]How to get tick marks between the bars in R?
我想在消耗條之間打勾,例如在http://hante.home.xs4all.nl/plugwise_dagoverzicht_281009_2.jpg中 。
在兩個日期或兩次之間獲取消耗量是更合乎邏輯的...
但是,我在R中看不到該怎么做。有人嗎?
我確實有一個示例表,稱為數據:
date nombre delta
2014-02-01 0 0
2014-02-08 120 120
2014-02-15 205 85
2014-02-22 280 75
2014-02-29 350 70
到目前為止,我管理下來的代碼是:
data$date <- as.POSIXct(data$date, format = "%Y-%m-%d")
data <- data[-2]
barplot(height=data[,2], names=data[,1], las=2)
但是“滴答聲”就在條形圖的正下方...正如您在http://imgur.com/0WE7ouI上看到的那樣。
您沒有提供任何代碼。 您的數據如何表示? 您如何繪制條形圖?
如果您使用的是包裝lattice
的barchart(..., horizontal=FALSE)
,則可以使用scales=list(x=list(at=seq_len(numBars+1) - 0.5, labels=yourLabels)))
,其中numBars
是x軸上的bin數。 參見?barchart
。
如果您使用的是更原始的barplot
,則可以自己繪制偏移軸:
mids <- barplot(x, axisnames=FALSE)
axis(1, at = mids - (mids[2]-mids[1])/2, labels = yourLabels)
無論哪種方式,顯然您都可以向右移動而不是更改偏移量標志,或者為numBins
+1標簽添加兩個外部刻度。
編輯 :使用您在編輯中添加的代碼和數據:
mids <- barplot(height=data[,2], axisnames=FALSE)
axis(1, at = mids - (mids[2]-mids[1])/2, labels = data[,1], las=2)
或者例如編寫並添加結束日期:
mstep <- (mids[2] - mids[1]) / 2
axis(1, at=c(mids[1] - mstep, mids + mstep), labels=c(data[,1], endDate), las=2)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.