我有一个＆＃34; dbGet_TRUE_EVENTS_DATA＆＃34;的数据帧。
fabric-ca-client enroll -u "http://demoblockchain:demo@localhost:7054"
和一个列表＆＃34; TRUE_EVENTS_split_up＆＃34;
> dbGet_TRUE_EVENTS_DATA
LONGITUDE LATITUDE DATE_START DATE_END FLAG EQNUM
1 -39.5 80.5 2008-07-06 2008-07-10 1 1
2 -39.5 81.5 2008-07-06 2008-07-10 1 1
3 -38.5 80.5 2008-07-06 2008-07-10 1 2
4 -38.5 81.5 2008-07-06 2008-07-10 1 2
5 -39.5 79.5 2008-07-06 2008-07-10 1 3
6 -38.5 79.5 2008-07-06 2008-07-10 1 3
7 -39.5 79.5 2008-07-06 2008-07-10 1 4
8 -38.5 79.5 2008-07-06 2008-07-10 1 4
9 -39.5 79.5 2008-07-06 2008-07-10 1 5
10 -38.5 79.5 2008-07-06 2008-07-10 1 6
11 -39.5 79.5 2008-07-06 2008-07-10 1 7
我可以按以下方式对数据进行子集化：
> TRUE_EVENTS_split_up
$Fold1
[1] 3 4 6
$Fold2
[1] 5 7
$Fold3
[1] 1 2
我想直接在dbGet_TRUE_EVENTS_DATA上应用我的子集。我知道我必须使用lapply功能，但不知道怎么做？
newdata1 <-
subset(dbGet_TRUE_EVENTS_DATA, EQNUM %in% TRUE_EVENTS_split_up$Fold1)
newdata2 <-
subset(dbGet_TRUE_EVENTS_DATA, EQNUM %in% TRUE_EVENTS_split_up$Fold2)
newdata3 <-
subset(dbGet_TRUE_EVENTS_DATA, EQNUM %in% TRUE_EVENTS_split_up$Fold3)
newdata <- list(newdata1 ,newdata2 ,newdata3 )