老师你好， 我有几个R的问题想请教：

1. hist(St1,border="blue")
    hist(St2,border="red")

   我如何让两幅图叠加在一起，并且在途中做出标记红线是st2.蓝线是st1

2.  我有一组金融数据，其中一个变量是time, 它的形式为 10：30：03。 从早上10点开始一直到下午4点，不是equally time space

     我现在想任意取10分钟的数据，例如从11：00：00 到11：10：00， 只用这个变量time有没有什么方法，如果直接的不行有没有什么间接的办法

3. 我运行

   colnames(Z5)<-c("1t","2date","3time","4price","5volume","6St","7Lt","8At","9Dt",
                "10ln.Volume","11Ln.Last.Volume","12Time.Difference","13At-1",             
                "14At-2","15At-3","16At-4","17At-5","18Dt-1","19Dt-2","20Dt-3",
                "21Dt-4","22Dt-5","23Lt-1","24Lt-2","25Lt-3","26Lt-4","27Lt-5",
                "28LDt-1","29LDt-2","30LDt-3","31LDt-4","32LDt-5","33DT1")

    write.table(Z5, file = "AMPdata.csv",ncolumns = 33)

    其中Z5是一个33列的数组，现在出现的问题是产生的AMPdata.csv中，整个33列的数组都挤在A列中，而不是一一对应在A B........个个列中， 不知道是怎么回事？