每秒显示一次刻度(旋转标签) [英] display ticks for every second observation (rotated labels)
问题描述
在使我的x轴看起来正确时遇到麻烦.
我希望每秒钟出现一次刻度和标签.不幸的是,虽然我的代码显示了适当的刻度,但标签值每次都增加1.
换句话说,我希望刻度标签为2011-10-21, 2011-10-23, 2011-10-25...
.我的代码当前产生的刻度标签为2011-10-21, 2011-10-22, 2011-10-23 ...
我的数据框如下:
date comp_count
1 2011-10-21 10
2 2011-10-22 3
3 2011-10-23 1
4 2011-10-24 1
5 2011-10-25 1
6 2011-10-26 2
这是我正在运行的代码:
plot(my_data$comp_count, main="comped sites over time", col="blue", type='l', lwd=2, axes=FALSE, xlab="date", ylab="count")
axis(1,at=2*0:nrow(my_data), lab=FALSE)
text(2 * 0:nrow(my_data),par("usr")[3] -1,lab = my_data $ date,srt = 45,adj = 1,xpd = TRUE,cex = 0.8)>
我的图表如下: http://i.imgur.com/CjIKFCV.jpg
我想保持刻度线旋转,因为最后我将使用更多的数据.
这是您要找的东西吗?
> with(my_data, plot(comp_count, axes = FALSE, xlab = "", type = 'l'))
> axis(2)
> axis(1, at = my_data$date, labels = FALSE)
> ticks <- my_data$date[c(TRUE, FALSE)]
> text(seq(1, length(my_data$date), 2), par("usr")[3] - 0.25, srt = 45,
adj = 1, labels = ticks, xpd = TRUE)
> box()
Having trouble getting my x-axis to look right.
I would like the ticks and labels to appear for every second observation. Unfortunately, while my code displays ticks appropriately, label values increase by 1 each time.
In other words I would like the tick labels to be 2011-10-21, 2011-10-23, 2011-10-25...
. My code currently produces tick labels as2011-10-21, 2011-10-22, 2011-10-23 ...
My data frame looks like:
date comp_count
1 2011-10-21 10
2 2011-10-22 3
3 2011-10-23 1
4 2011-10-24 1
5 2011-10-25 1
6 2011-10-26 2
Here is the code I'm running:
plot(my_data$comp_count, main="comped sites over time", col="blue", type='l', lwd=2, axes=FALSE, xlab="date", ylab="count")
axis(1,at=2*0:nrow(my_data), lab=FALSE)
text(2*0:nrow(my_data), par("usr")[3]-1, lab=my_data$date, srt=45, adj=1, xpd=TRUE, cex=0.8)
My chart looks like: http://i.imgur.com/CjIKFCV.jpg
I would like to keep the tick labels rotated since I will be using much more data in the end.
Is this what you're looking for?
> with(my_data, plot(comp_count, axes = FALSE, xlab = "", type = 'l'))
> axis(2)
> axis(1, at = my_data$date, labels = FALSE)
> ticks <- my_data$date[c(TRUE, FALSE)]
> text(seq(1, length(my_data$date), 2), par("usr")[3] - 0.25, srt = 45,
adj = 1, labels = ticks, xpd = TRUE)
> box()
这篇关于每秒显示一次刻度(旋转标签)的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!