I need to assign certain names to the x-values of a percentage growth time series plot. I know how to remove the values but I want the names "08-09 q1","08-08 q2","08-09 q3","08-09 q4","09-10 q1",...,"14-15 q2" to replace them so that each value on the x-axis is directly below the point plotted. How can I do this?
我需要为百分比增长时间序列图的x值指定某些名称。我知道如何删除值，但我想要名称“08-09 q1”，“08-08 q2”，“08-09 q3”，“08-09 q4”，“09-10 q1”，... ，“14-15 q2”来替换它们，使x轴上的每个值都直接低于绘制的点。我怎样才能做到这一点？
plot.ts(percentagegrowth1,xaxt="n",xlab="Quarter",ylab="Percentage growth",main="Year-over-Year Quarterly Percentage Growth")
for(i in 1:length(percentagegrowth1r))
{
text(x=i,y=percentagegrowth1r[i],labels=percentagegrowth1r[i],cex=0.5,font=2,pos=1)
text(x=i,y=percentagegrowth1r[i],labels=percentagegrowth1r[i],cex=0.5,font=2,pos=3)
}
lines(percentf1,col="red")
points(percentagegrowth1r,col="blue")
dates<-c(1.1,1.2,1.3,1.4,2.1,2.2,2.3,2.4,3.1,3.2,3.3,3.4,4.1,4.2,4.3,4.4,5.1,5.2,5.3,5.4,6.1,6.2,6.3,6.4,7.1,7.2)
for(i in 1:length(dates)) {
axis(1,at=i,labels=dates[i])
}
legend("topright",c("x-values=Year comparison.Quarter e.g 1.1=08-09 q1","Red=Forecasted data"))
percentagegrowth1r=
-37.1 9.6 -8.9 71.8 111.8 106.4 65.4 68.8 53.0 40.6 22.5 36.9 30.8 14.5 23.6 38.3 16.1 29.2 39.0 4.0 -6.3 46.0 32.7 32.8 72.4 13.5
percentf1= NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 32.67955 32.78714 72.44055 13.48962百分比增长1r = -37.1 9.6 -8.9 71.8 111.8 106.4 65.4 68.8 53.0 40.6 22.5 36.9 30.8 14.5 23.6 38.3 16.1 29.2 39.0 4.0 -6.3 46.0 32.7 32.8 72.4 13.5 percentf1 = NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 32.67955 32.78714 72.44055 13.48962
This is an image of the graph I have plotted:
这是我绘制的图表的图像：
I want the value 1.1 replaced with "08-09 q1", 1.2 replaced with "08-08 q2" , 1.3 replaced with "08-08 q3", 1.4 replaced with "08-09 q4", 2.1 replaced with "09-10 q1", ... , 7.1 replaced with "14-15 q1" and 7.2 replaced with "14-15 q2"
我想将值1.1替换为“08-09 q1”，1.2替换为“08-08 q2”，1.3替换为“08-08 q3”，1.4替换为“08-09 q4”，2.1替换为“09- 10 q1“，...，7.1替换为”14-15 q1“，7.2替换为”14-15 q2“
2 个解决方案
#1
1
The problem appears to be one of generating the labels for the given year and quarter. How's this:
问题似乎是生成给定年份和季度的标签。这个怎么样：
yr=function(i){paste(sprintf("%02d-%02d",i,i+1))}
that lets us generate arbitrary year labels:
这让我们生成任意年份标签：
yr(6:14)
[1] "06-07" "07-08" "08-09" "09-10" "10-11" "11-12" "12-13" "13-14" "14-15"
then quarters is easy:
宿舍很容易：
qlabels =
function(yrs){
q = rep(1:4, length(yrs))
sprintf("%s q%s", rep(yr(yrs),rep(4,length(yrs))), q)
}
producing:
生产：
> qlabels(8)
[1] "08-09 q1" "08-09 q2" "08-09 q3" "08-09 q4"
> qlabels(8:10)
[1] "08-09 q1" "08-09 q2" "08-09 q3" "08-09 q4" "09-10 q1" "09-10 q2"
[7] "09-10 q3" "09-10 q4" "10-11 q1" "10-11 q2" "10-11 q3" "10-11 q4"
So then add the axis labels, cutting the sequence short because you end at a q2:
然后添加轴标签，将序列缩短，因为你以q2结束：
> plot.ts(percentagegrowth1r,xaxt="n",xlab="Quarter",ylab="Percentage growth",main="Year-over-Year Quarterly Percentage Growth")
> axis(1,1:length(dates), qlabels(8:14)[1:26])
axis doesn't plot all the values because they don't fit without overlapping. You can adjust the cex parameter:
轴不会绘制所有值，因为它们不适合不重叠。您可以调整cex参数：
> plot.ts(percentagegrowth1r,xaxt="n",xlab="Quarter",ylab="Percentage growth",main="Year-over-Year Quarterly Percentage Growth")
> par(cex=0.5)
> axis(1,1:length(dates), qlabels(8:14)[1:26])
#2
0
I figured out the answer, in case anyone else has the same problem :)
我想出了答案，以防其他人有同样的问题:)
first assign a name to each number in the plotted vector:
首先为绘制的向量中的每个数字指定一个名称：
names(percentagegrowth1)<-c("08-09 q1","08-09 q2","08-09 q3","08-09 q4","09-10 q1","09-10 q2","09-10 q3","09-10 q4","10-11 q1","10-11 q2","10-11 q3","10-11 q4","11-12 q1","11-12 q2","11-12 q3","11-12 q4","12-13 q1","12-13 q2","12-13 q3","12-13 q4","13-14 q1","13-14 q2","13-14 q3","13-14 q4","14-15 q1","14-15 q2")
then plot the graph:
然后绘制图表：
plot.ts(percentagegrowth1,xaxt="n")
then assign the x-values:
然后分配x值：
axis(1,at=seq(1,length(percentagegrowth1),by=1),labels=names(percentagegrowth1))
#1
1
The problem appears to be one of generating the labels for the given year and quarter. How's this:
问题似乎是生成给定年份和季度的标签。这个怎么样：
yr=function(i){paste(sprintf("%02d-%02d",i,i+1))}
that lets us generate arbitrary year labels:
这让我们生成任意年份标签：
yr(6:14)
[1] "06-07" "07-08" "08-09" "09-10" "10-11" "11-12" "12-13" "13-14" "14-15"
then quarters is easy:
宿舍很容易：
qlabels =
function(yrs){
q = rep(1:4, length(yrs))
sprintf("%s q%s", rep(yr(yrs),rep(4,length(yrs))), q)
}
producing:
生产：
> qlabels(8)
[1] "08-09 q1" "08-09 q2" "08-09 q3" "08-09 q4"
> qlabels(8:10)
[1] "08-09 q1" "08-09 q2" "08-09 q3" "08-09 q4" "09-10 q1" "09-10 q2"
[7] "09-10 q3" "09-10 q4" "10-11 q1" "10-11 q2" "10-11 q3" "10-11 q4"
So then add the axis labels, cutting the sequence short because you end at a q2:
然后添加轴标签，将序列缩短，因为你以q2结束：
> plot.ts(percentagegrowth1r,xaxt="n",xlab="Quarter",ylab="Percentage growth",main="Year-over-Year Quarterly Percentage Growth")
> axis(1,1:length(dates), qlabels(8:14)[1:26])
axis doesn't plot all the values because they don't fit without overlapping. You can adjust the cex parameter:
轴不会绘制所有值，因为它们不适合不重叠。您可以调整cex参数：
> plot.ts(percentagegrowth1r,xaxt="n",xlab="Quarter",ylab="Percentage growth",main="Year-over-Year Quarterly Percentage Growth")
> par(cex=0.5)
> axis(1,1:length(dates), qlabels(8:14)[1:26])
#2
0
I figured out the answer, in case anyone else has the same problem :)
我想出了答案，以防其他人有同样的问题:)
first assign a name to each number in the plotted vector:
首先为绘制的向量中的每个数字指定一个名称：
names(percentagegrowth1)<-c("08-09 q1","08-09 q2","08-09 q3","08-09 q4","09-10 q1","09-10 q2","09-10 q3","09-10 q4","10-11 q1","10-11 q2","10-11 q3","10-11 q4","11-12 q1","11-12 q2","11-12 q3","11-12 q4","12-13 q1","12-13 q2","12-13 q3","12-13 q4","13-14 q1","13-14 q2","13-14 q3","13-14 q4","14-15 q1","14-15 q2")
then plot the graph:
然后绘制图表：
plot.ts(percentagegrowth1,xaxt="n")
then assign the x-values:
然后分配x值：
axis(1,at=seq(1,length(percentagegrowth1),by=1),labels=names(percentagegrowth1))