R：按因子級別查找數據框中的第一個和最后一個值

Question

在尋找每個因子水平的第一個和最后一個值時，我需要您的幫助。

我有股票的報價數據（按交易進行交易），我希望每天都有開盤價，最高價，最低價，收盤價，總交易量和總交易量。 我每天都在考慮因素。 除了每天的第一個和最后一個值，我已經寫了所有東西。

您還能告訴我自從我剛開始學習R並且想早日養成良好的習慣后，如何才能更好地編寫代碼？

我已經包含了我的代碼，通過google doc指向數據集的鏈接，以及在我的代碼之后提供了一個較小版本的數據集，以防google doc不可用。

謝謝您的幫助。

https://docs.google.com/document/d/1OYRfAvuKvCwndJVffnljPM74kHY1kKEtAbVdJHyoNdY/edit?usp=sharing

這是我的代碼：

#load data
data1<-read.table("EKSO.txt",header=T,sep=",",stringsAsFactors=T)

#calculate total traded
data1["TT"]<-data1$Price*data1$Size

#find the lowest value for each day
min_l<-tapply(data1$Price,data1$Date,min)

#find the highest value for each day
max_l<-tapply(data1$Price,data1$Date,max)

#find the total volume for each day
tv_l<-tapply(data1$Size,data1$Date,sum)

#find the total traded for each day
tt_l<-tapply(data1$TT,data1$Date,sum)

#find the first price for the day

#find the last price for the day

#construct a dataframe with the datae, the open, the high, low,close, total volume, 
# and total traded
data2<-data.frame(max_l,min_l,tv_l,tt_l)

這是數據集：

Date,Time,Price,Size
02/07/2014,09:30:01,3,500
02/07/2014,09:30:29,3,42
02/07/2014,09:35:56,3,100
02/07/2014,09:37:17,3,100
02/07/2014,09:37:28,3.2,900
02/07/2014,09:37:35,3.2,4900
02/07/2014,09:37:51,3.2,1000 
02/07/2014,09:42:11,3.2,500
02/07/2014,10:00:31,3,2400
02/07/2014,10:00:37,3.2,500
02/07/2014,10:00:44,3.2,3347
02/07/2014,10:07:33,3.2,1000
02/07/2014,10:31:42,3.24,1000
02/07/2014,10:33:44,3.24,200
02/07/2014,10:40:28,3.25,300
02/07/2014,10:49:57,3.25,600
02/07/2014,10:53:16,3.25,100
02/07/2014,10:53:32,3.4,1000
02/07/2014,10:54:13,3.4,500
02/07/2014,11:05:37,3.35,1000
02/07/2014,11:11:29,3.25,600
02/07/2014,11:15:26,3.3,60
02/07/2014,11:19:16,3.3,23
02/07/2014,11:21:14,3.25,100
02/07/2014,11:21:22,3.25,100
02/07/2014,11:21:30,3.2,500
02/07/2014,11:21:35,3.2,500
02/07/2014,11:21:43,3.2,500
02/07/2014,11:29:58,3.1,200
02/07/2014,11:35:42,3.19,360
02/07/2014,11:39:51,3.19,1000
02/07/2014,11:52:39,3.15,200
02/07/2014,11:53:51,3.15,100
02/07/2014,11:55:11,3.2,100
02/07/2014,12:17:32,3.2,1500
02/07/2014,12:35:42,3.24,1200
02/07/2014,12:37:53,3.24,100
02/07/2014,12:38:02,3.24,3500
02/07/2014,12:53:57,3.24,400
02/07/2014,13:10:57,3.239,100
02/07/2014,13:11:35,3.24,800
02/07/2014,13:13:41,3.24,1000
02/07/2014,13:39:40,3.24,450
02/07/2014,13:56:04,3.24,500
02/07/2014,14:09:49,3.24,600
02/07/2014,14:11:25,3.24,1000
02/07/2014,14:25:53,3.24,25
02/07/2014,14:30:58,3.24,30
02/07/2014,14:31:36,3.24,30
02/07/2014,14:32:12,3.24,30
02/07/2014,14:53:13,3.23,240
02/07/2014,14:53:27,3.24,500
02/07/2014,14:53:59,3.24,60
02/07/2014,14:54:46,3.2,1500
02/07/2014,15:23:09,3.19,2000
02/07/2014,15:35:23,3.18,1500
02/07/2014,15:44:36,3.18,600
02/10/2014,09:30:02,3.25,100
02/10/2014,09:30:02,3.25,25
02/10/2014,09:30:24,3.25,150
02/10/2014,09:30:40,3.25,100
02/10/2014,09:31:11,3.25,650
02/10/2014,09:35:32,3.24,200
02/10/2014,09:37:59,3.19,100
02/10/2014,09:38:01,3.2,2000
02/10/2014,09:41:24,3.15,100
02/10/2014,09:42:28,3.15,1000
02/10/2014,09:42:28,3.15,1000
02/10/2014,09:42:41,3.15,500
02/10/2014,09:42:57,3.15,100
02/10/2014,09:47:46,2.9,100
02/10/2014,09:48:24,2.9,500
02/10/2014,09:50:09,2.65,2500
02/10/2014,09:50:44,2.66,2500
02/10/2014,09:50:49,2.6,100
02/10/2014,10:21:20,2.85,300
02/10/2014,10:32:40,2.94,100
02/10/2014,10:33:18,2.95,426
02/10/2014,10:33:38,2.95,70
02/10/2014,10:57:25,2.95,500
02/10/2014,10:57:40,2.95,500
02/10/2014,11:38:29,3,500
02/10/2014,11:38:35,3.05,500
02/10/2014,13:57:20,3.1,150
02/10/2014,13:57:34,3,42
02/10/2014,14:21:42,3.15,500
02/10/2014,14:23:35,3.15,1000
02/10/2014,14:52:15,2.99,25
02/10/2014,14:52:17,2.95,100
02/10/2014,15:04:08,2.99,412
02/10/2014,15:11:42,2.99,100
02/10/2014,15:11:46,2.99,100
02/10/2014,15:12:06,2.99,100
02/10/2014,15:20:35,3.04,500
02/10/2014,15:30:28,3,500
02/10/2014,15:36:58,2.95,2000 
02/10/2014,15:38:09,3,550
02/10/2014,15:39:48,2.97,2000
02/11/2014,09:30:04,3.2,100
02/11/2014,09:30:18,3.2,2000
02/11/2014,10:03:07,3.18,1000
02/11/2014,10:21:35,3.18,26
02/11/2014,10:27:09,3.15,500
02/11/2014,10:37:22,3.15,1108
02/11/2014,10:37:22,3.15,1054
02/11/2014,10:52:17,3.01,1000
02/11/2014,10:53:55,3.01,500
02/11/2014,10:54:31,3.05,40
02/11/2014,10:55:41,3.01,100
02/11/2014,10:55:44,3,3300
02/11/2014,10:55:44,3,100
02/11/2014,15:25:01,3,1000
02/11/2014,15:49:37,3,500
02/11/2014,15:51:08,2.98,300
02/12/2014,08:46:23,3,1500
02/12/2014,09:10:01,3,2000
02/12/2014,09:21:31,3.1,1500
02/12/2014,09:26:33,3.2,2000
02/12/2014,09:27:58,3.2,2500
02/12/2014,09:30:18,3.2,30
02/12/2014,09:40:51,3.05,100
02/12/2014,09:44:31,2.98,2900
02/12/2014,09:47:43,2.98,110
02/12/2014,09:50:49,2.96,100
02/12/2014,09:50:51,2.8,750
02/12/2014,12:01:34,2.86,1500
02/12/2014,12:01:45,2.85,1500
02/12/2014,12:12:42,2.86,1500
02/12/2014,15:39:15,3,200
02/12/2014,15:48:51,3,100
02/12/2014,15:48:53,3,500

Answer 1

在這里， ?duplicated是您最好的朋友。

對於每天的第一個價格，請使用：

data1[!duplicated(data1$Date, fromLast=FALSE), "Price"]

最后價格：

data1[!duplicated(data1$Date, fromLast=TRUE), "Price"]

此代碼假定您的data.frame根據Date和Time排序（請參閱?order ）。

一個例子：

(data1 <- data.frame(Date=c(rep("02/07/2014", 3), rep("02/10/2014", 4)), Price=1:7))
##         Date Price
## 1 02/07/2014     1
## 2 02/07/2014     2
## 3 02/07/2014     3
## 4 02/10/2014     4
## 5 02/10/2014     5
## 6 02/10/2014     6
## 7 02/10/2014     7
data1[!duplicated(data1$Date, fromLast=FALSE), "Price"]
## [1] 1 4
data1[!duplicated(data1$Date, fromLast=FALSE),]
##         Date Price
## 1 02/07/2014     1
## 4 02/10/2014     4
data1[!duplicated(data1$Date, fromLast=TRUE), "Price"]
## [1] 3 7
data1[!duplicated(data1$Date, fromLast=TRUE),]
##         Date Price
## 3 02/07/2014     3
## 7 02/10/2014     7

---

有關將來進行分析的提示：如果您不希望像使用因子對象而是像使用日期/時間對象那樣玩Date列（例如，對其進行一些算術運算），請考慮使用strptime ，例如

data1$Date2 <- as.Date(strptime(as.character(data1$Date), "%m/%d/%Y"))

您也可以例如將日期和時間結合在一起：

data1$DateTime <- strptime(paste(data1$Date, data1$Time), "%m/%d/%Y %H:%M:%S")