如何在R中的条形之间得到刻度线?

时间:2014-02-24 20:26:40

标签: r graphics graph plot bar-chart

我想在消费栏之间找到刻度线,例如http://hante.home.xs4all.nl/plugwise_dagoverzicht_281009_2.jpg

在两个日期或两次日期之间获得消费更合乎逻辑......

但是,我不知道如何在R. Anybody中做到这一点?

我确实有一个名为data的示例表:

       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上看到的那样。

1 个答案:

答案 0 :(得分:1)

您没有提供任何代码。您的数据如何表示?你是如何策划这些酒吧的?

如果您使用的是包lattice的{​​{1}},则可以使用参数barchart(..., horizontal=FALSE)手动提供新的轴刻度标签,其中scales=list(x=list(at=seq_len(numBars+1) - 0.5, labels=yourLabels)))是x上的二进制数-轴。请参阅numBars

如果您使用更原始的?barchart,您可以自己绘制偏移轴:

barplot

无论哪种方式,显然您可以通过更改偏移标志向右移动,或者为mids <- barplot(x, axisnames=FALSE) axis(1, at = mids - (mids[2]-mids[1])/2, labels = yourLabels) + 1标签添加两个外部标记。

编辑:使用您在编辑中添加的代码+数据:

numBins

或者例如写它并添加结束日期:

mids <- barplot(height=data[,2], axisnames=FALSE)
axis(1, at = mids - (mids[2]-mids[1])/2, labels = data[,1], las=2)