我正在与R和Shiny合作创建一个交互式折线图。但是我有一个问题,我有两个时间序列,我代表但我只能看到y轴或者如果我选择图表我可以看到更多的细节(x轴有月和日)。
首先,我尝试了不同的方法来解决问题,比如将时间序列更改为xts格式。只有当我改变时间序列的开始时(如果我将两行放在同一年),我将得到正确的图表。不过我不能这样做,我会展示其他日期。
以下是有问题的当前图片:
Dygraphs代码:
dygraph(generarGrafico(input$siYear1,input$siYear2),main="Comparación de medias temporales",ylab="Temperatra [Cº]",xlab="Tiempo")
功能代码:
generarGrafico<-function(year1,year2)
{
#year1<-2000
#year2<-2001
tmp<-vector(mode="numeric",length=2)
tmp[1]<-year1
tmp[2]<-year2
tmpMean<-vector(mode="list",length=2)
for(i in 1:2)
{
tmp[i]<-as.numeric(tmp[i])
if(!(tmp[i]>=1854 && tmp[i]<=2013))
tmpMean[[i]]<-generarPlotCal(tmp[i])
else
tmpMean[[i]]<-generarPlotPas(tmp[i])
}
Año1<-tmpMean[[1]]
Año2<-tmpMean[[2]]
meansSeasonal<- cbind(Año1,Año2)
return (meansSeasonal)
}
generarPlotPas或generarPlotCal给出了这个时间序列:
Jan Feb Mar Apr May Jun Jul Aug Sep Oct
1 13.74931 13.87727 13.87027 13.81265 13.77635 13.81221 14.03973 14.22332 14.12913 13.81718
Nov Dec
1 13.62391 13.65908