具有正确x轴格式的分钟刻度数据的绘图？

Question

我想以分钟为单位绘制刻度数据。我的数据框如下所示：

> head(df)
    No       Date         Time Close   Volume Weekday
1 3361 03.12.2012 08:00:00.000 7.435 27000000  Montag
2 3362 03.12.2012 08:01:00.000 7.428 47000000  Montag
3 3363 03.12.2012 08:02:00.000 7.428 41000000  Montag
4 3364 03.12.2012 08:03:00.000 7.429 39000000  Montag
5 3365 03.12.2012 08:04:00.000 7.426 44000000  Montag
6 3366 03.12.2012 08:05:00.000 7.423 49000000  Montag
> 

现在我想用正确的x轴描述绘制前241个条目。目前我使用简单的1：241矢量：

plot(c(1:241),df[1:241,4],type="l")

我得到了：

当我尝试

时

plot(df[1:241,3],df[1:241,4],type="l")

这看起来像：

这里有什么问题？谢谢！

编辑：

> str(df)
'data.frame':   81613 obs. of  6 variables:
 $ No     : int  3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 ...
 $ Date   : Factor w/ 270 levels "01.01.2013","01.02.2013",..: 25 25 25 25 25 25 25 25 25 25 ...
 $ Time   : Factor w/ 600 levels "08:00:00.000",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ Close  : num  7.43 7.43 7.43 7.43 7.43 ...
 $ Volume : int  27000000 47000000 41000000 39000000 44000000 49000000 51000000 48000000 49000000 45000000 ...
 $ Weekday: Factor w/ 5 levels "Dienstag","Donnerstag",..: 5 5 5 5 5 5 5 5 5 5 ...
> 

EDIT2： 数据here。

Answer 1

您需要使用Date之类的内容转换变量Time和strptime：

df$DateTime = strptime(paste(as.character(df$Date), as.character(df$Time)), "%m.%d.%Y %H:%M:%S")
plot(df$DateTime[1:241], df$Close[1:241], type="l")