将基础与构造不同的数据框匹配

Question

我对R还是比较陌生，并且试图找出如何做自己想做的事情遇到了麻烦。 我在StackOF上遇到了许多问题，但仍然无法（确切地）弄清楚。 这是我正在尝试做的事情：

数据框1：

d1 =c("2005/01/02")
d2 = c("2005/01/08") 
rm = c(13)
df1 = data.frame(d1, d2, rm)

数据框2：

df2 <- as.data.frame(seq(as.Date("2005-01-02"), as.Date("2005-01-08"), by="days"))
colnames(df2)<-c("dtime")

我希望创建：

df2$new <- if (df2$dtime >= df1$d1 AND <= df1$d2), 

返回df1$rm并希望最终创建如下所示的变量df2$new ：

df2$new <- 13
View(df2)

我实质上是在尝试将与星期（ df1$rm ）相对应的值与该周内的各个天（ df2$new ）相匹配。

Answer 1

如果数据帧不是太大，那么使用简单的for循环将非常容易：

d1 =c("2005/01/02")
d2 = c("2005/01/08") 
rm = c(13)
df1 = data.frame(d1, d2, rm)

df2 <- as.data.frame(seq(as.Date("2005-01-02"), as.Date("2005-01-08"), by="days"))
colnames(df2)<-c("dtime")

df2$new <- NA
for(i in 1:nrow(df1)) df2$new[df2$dtime >= as.Date(df1$d1[i]) & df2$dtime <= as.Date(df1$d2[i])] <- df1$rm[i]

Answer 2

我认为您可能正在寻找合适的东西

df2$new <- sapply(df2$dtime, function(row){df1[((row >= as.Date(df1$d1)) + (row <= as.Date(df1$d2))) == 2,]$rm})

在R中，向量优于for循环。 我正在做的是获取df2的dtime列，然后依次将function（row）应用于每个函数。 这是我在df1中查找的列表，在df1中是否总会有一个条目，还是需要一个默认情况？