请教，关于两个数据框对比并赋值的问题

> Name1
    Name value group
1  Apple     2     0
2 Banana     6     0
3    Car     7     0
4    Dog     9     0
5    Egg     5     0
6   Flag     2     0
7 Banana     4     0
8   Flag     6     0

> Name2
    Name
1   Flag
2 Banana

###############################
这里有2个dataframe变量，Name1和Name2，我想这样：

如果Name2中的属性Name值=Name1中的Name值，则令对应于Name1中的group列的值=1

初次学习R，感觉这个R的使用风格好怪呀。憋了半天没弄出来。


dataTest.rar (226 Bytes) 本附件包括：

• Name1.csv
• Name2.csv

2017-6-16 09:38:42 上传

1. Name1 <- data.frame(Name=c('App', 'Banana', 'Car', 'Dog', 'Egg', 'Flag', 'Banana', 'Flag'),
   
2.                     value=c(2,6,7,9,5,2,4,6),group=rep(0,8),stringsAsFactors = F)
   
3. Name2 <- data.frame(Name=c('Flag', 'Banana'),stringsAsFactors = F)
   
4. 
   
5. Name1$group <- ifelse(Name1$Name%in%Name2$Name, 1, 0)
   
6. Name1

复制代码

Name1$group[Name1$Name %in% Name2$Name] <- 1

习惯就好。

> Name1
    Name value group datetime
1  Apple     2     0 2017/6/1
2 Banana     6     0 2017/6/1
3    Car     7     0 2017/6/2
4    Dog     9     0 2017/6/3
5    Egg     5     0 2017/6/4
6   Flag     2     0 2017/6/4
7 Banana     4     0 2017/6/5
8   Flag     6     0 2017/6/5

###############################

还有一个疑问，如果我引入了一列datetime变量，我怎么选中2017/06/01至2017/06/03之间的数据？
如果是sqldf package的话，应该是这样sqldf("select * from Name1 where datetime between 2017/06/01 and 2017/06/03")
如果是R的基础包呢？

cheetahfly 发表于 2017-6-16 10:44
Name1$group[Name1$Name %in% Name2$Name]

> Name1
    Name value group datetime
1  Apple     2     0 2017/6/1
2 Banana     6     0 2017/6/1
3    Car     7     0 2017/6/2
4    Dog     9     0 2017/6/3
5    Egg     5     0 2017/6/4
6   Flag     2     0 2017/6/4
7 Banana     4     0 2017/6/5
8   Flag     6     0 2017/6/5

###############################

还有一个疑问，如果我引入了一列datetime变量，我怎么选中2017/06/01至2017/06/03之间的数据？
如果是sqldf package的话，应该是这样sqldf("select * from Name1 where datetime between 2017/06/01 and 2017/06/03")
如果是R的基础包呢？

乌贼07 发表于 2017-6-16 11:58
> Name1
    Name value group datetime
1  Apple     2     0 2017/6/1

1. library(dplyr)
   
2. library(lubridate)
   
3. Name1 %>%
   
4.   filter(between(datetime, ymd(20170601), ymd(20170603)))

复制代码

用上这两个包更加方便直观。