在R中的同一图形上绘制两个不同的系列

我试着把两个时间序列绘制成R中的同一个图

我的数据如下：

系列1：

       dates            values
1 2012-09-01 12:00:00   33.6
2 2012-09-05 13:00:00   32.0
3 2012-09-06 15:30:00   30.0
4 2012-09-07 12:45:00   30.0
5 2012-09-08 21:15:00   30.0
6 2012-09-11 15:00:00   28.4

和系列2：

       dates           values
1 2012-09-03 14:05:00  15.6
2 2012-09-05 08:00:00  23.0
3 2012-09-09 15:55:00  19.0
4 2012-09-11 23:00:00  22.0
5 2012-09-14 02:40:00  34.0
6 2012-09-15 12:09:00  29.4

我拥有的代码是：

var1<-var1[,c("Sampling_Time","Value")]
var2<-var2[,c("Sampling_Time","Value")]

var1$Sampling_Time<- as.POSIXct(var1$Sampling_Time, format="%Y-%m-%d %H:%M:%S")
var2$Sampling_Time<- as.POSIXct(var2$Sampling_Time, format="%Y-%m-%d %H:%M:%S")

plot(var1$Sampling_Time, var1$Value, type= "p" , xlim= NULL, col = "red", size =1,
xlab= "Time",ylab= "Value", main= "Graphic",format="%Y-%b-%d")
par(new=TRUE)
plot(var2$Sampling_Time, var2$Value, type= "p" , xlim= NULL, col = "blue", size =1,
xlab= "Time",ylab= "Value", main= "Graphic",format="%Y-%b-%d")

---

var1您需要在绘图中的x和y范围限制之前进行定义，并且每个绘图都需要具有相同的限制

var1S <- c("2012-09-01", "2012-09-05", "2012-09-06", "2012-09-07", "2012-09-08", "2012-09-11")
var1S <- as.Date(var1S, "%Y-%m-%d")
var1T <- c(33.6,32.0,30.0,30.0,30.0,28.4)
var2S <- c("2012-09-03", "2012-09-05", "2012-09-09", "2012-09-11", "2012-09-14", "2012-09-15")
var2S <- as.Date(var2S, "%Y-%m-%d")
var2T <- c(15.6,23.0,19.0,22.0,34.0,29.4)
plot(var1T ~ var1S, type="l",col="red", xlim=range(c(var1S,var2S)), ylim=range(c(var1T,var2T)))
par(new=T)
plot(var2T ~ var2S, type="l",col="green", xlim=range(c(var1S,var2S)), ylim=range(c(var1T,var2T)))

var1S您需要在绘图中的x和y范围限制之前进行定义，并且每个绘图都需要具有相同的限制

var1S <- c("2012-09-01", "2012-09-05", "2012-09-06", "2012-09-07", "2012-09-08", "2012-09-11")
var1S <- as.Date(var1S, "%Y-%m-%d")
var1T <- c(33.6,32.0,30.0,30.0,30.0,28.4)
var2S <- c("2012-09-03", "2012-09-05", "2012-09-09", "2012-09-11", "2012-09-14", "2012-09-15")
var2S <- as.Date(var2S, "%Y-%m-%d")
var2T <- c(15.6,23.0,19.0,22.0,34.0,29.4)
plot(var1T ~ var1S, type="l",col="red", xlim=range(c(var1S,var2S)), ylim=range(c(var1T,var2T)))
par(new=T)
plot(var2T ~ var2S, type="l",col="green", xlim=range(c(var1S,var2S)), ylim=range(c(var1T,var2T)))

var1S很抱歉，事实上我推迟了一个离题的答案。我将很快修改它。它与我的代码相同。我扩展了我的代码，也许很清楚。是的，我读你的问题太快了，错过了你的问题。但我现在正在看，我想这就是你现在想要的。非常感谢！这就是我要找的。很抱歉，事实上，我把一个离题的答案推迟了。我将很快修改它。它与我的代码相同。我扩展了我的代码，也许很清楚。是的，我读你的问题太快了，错过了你的问题。但我现在正在看，我想这就是你现在想要的。非常感谢！这就是我要找的。