如何引用满足某些条件的另一个值，然后可以在计算中使用

Question

我有两个数据框：

测试

Group.1   x
   1     25.5
   2     51
   3     51.5
   4     50
   5     51.5
   6     60 
   ...
   53    35.5

日历

Week   Hours  HourSpent
  1     8.5
  1     8.5
  1      0
  2     8.5
  2     8.5
  2     8.5
  2     8.5
  2     8.5
  2     6.5
  2     8.5
  3     7.0
  3     7.0
  3     8.2
  ...

我要做的是通过执行以下计算来填充日历 df 中的“HourSpent”列：(('Hours' / 'HourSpent') * 0.79)

我希望能够遍历日历 df 中的每一行，并将该行的 'Hours' 值与匹配的 'HourSpent' 值相除。 'HoursSpent' 值可以从 'Test' df 中确定......所以如果日历 df 中的 'Week' 列中的值与 'Test' df 的 'Group.1' 列中的任何值匹配，那么我想要'Test' df 的 'x' 列中的对应值是 'HourSpent' 值。

例如

日历 df 中的第 1 行将是 8.5 / 25.5 * 0.79...这将应用于前 3 行，因为周数为 1。然后当我们到达第 4 行时，计算将更改为 8.5/ 51 * 0.79 等等...等

所需输出 - 日历 df

Week   Hours  HourSpent
  1     8.5     0.2633
  1     8.5     0.2633
  1      0        0
  2     8.5     0.1317
  2     8.5     0.1317
  2     8.5     0.1317
  2     8.5     0.1317
  2     8.5     0.1317
  2     6.5     0.1007
  2     8.5     0.1317
  3     7.0     0.1074
  ...

代码尝试

for (i in 1:nrow(Calendar)){

 Calendar$'HourSpent' <- ifelse(Calendar$Week == Test$Group.1, 
 (Calendar$Hours/Test$x)*0.79, 
 0)

}

问题是这似乎只适用于一行然后其他一切都是 0...有没有更好的解决方案来解决这个问题？

非常感谢

Answer 1

Test <- data.frame(`Group.1` = c(1, 2, 3, 4), x = c(25.5, 51, 51.5, 50))
Calendar <- data.frame(Week = c(1, 1, 1, 2, 2, 2, 3, 3, 3), Hours = c(8.5, 8.5, 0, 8.5, 8.5, 8.5, 8.5, 8.5, 8.5))
Calendar <- dplyr::inner_join(Calendar, Test, by = c("Week" = "Group.1")) %>% 
            dplyr::mutate(Hours_spent = (Hours/x)*0.79)

输出

日历

  Week Hours    x Hours_spent
1    1   8.5 25.5   0.2633333
2    1   8.5 25.5   0.2633333
3    1   0.0 25.5   0.0000000
4    2   8.5 51.0   0.1316667
5    2   8.5 51.0   0.1316667
6    2   8.5 51.0   0.1316667
7    3   8.5 51.5   0.1303883
8    3   8.5 51.5   0.1303883
9    3   8.5 51.5   0.1303883

Answer 2

基R解决方案：

Test <- data.frame(Group.1 = 1:4, x = runif(4)*100, stringsAsFactors = FALSE)
Calendar <- data.frame(Week = sort(sample(1:4, 10, replace = TRUE)), Hours = runif(10)*100, HourSpent = NA, stringsAsFactors = FALSE)

head(Test)
# Group.1         x
# 1       1  7.163006
# 2       2 55.743758
# 3       3 48.983705
# 4       4 49.429236

head(Calendar)
# Week    Hours HourSpent
# 1    1 41.22831         NA
# 2    1 68.30103         NA
# 3    1 65.34278         NA
# 4    2 91.59863         NA
# 5    2 81.31131         NA
# 6    2 67.58900         NA

names(Test)[which(names(Test) == "Group.1")] <- "Week"

Calendar <- merge(Calendar, Test, by = "Week", all.x  = TRUE)

Calendar$HourSpent <- ((Calendar$Hours/Calendar$x) * 0.79)

head(Calendar)
# Week    Hours HourSpent         x
# 1    1 41.22831  4.5470251  7.163006
# 2    1 68.30103  7.5328452  7.163006
# 3    1 65.34278  7.2065835  7.163006
# 4    2 91.59863  1.2981349 55.743758
# 5    2 81.31131  1.1523431 55.743758
# 6    2 67.58900  0.9578707 55.743758

我猜

我要做的是通过执行以下计算来填充日历 df 中的“HourSpent”列：(('Hours' / 'HourSpent') * 0.79)

有错别字吗？因为这需要解决Hours - HourSpent^2 = 0 形式的问题。

编辑：

另外，使用for loop 也没什么问题（尤其是如果您是初学者；但在大型数据集上这可能会很慢）。如果我们正确地充实其逻辑，这就是您的for loop 的样子：

for(i in 1:nrow(Calendar)){
  
  for(j in 1:nrow(Test)){
    
    if(Calendar$Week[i] == Test$Group.1[j] & is.na(Calendar$HourSpent[i])){
      
      Calendar$HourSpent[i] <- ((Calendar$Hours[i]/Test$x[j]) * 0.79)
      
    }
    
  }
  
}

（基本思路：如果Week值和Group.1值相等/相同，如果对应的HourSpent列还没有填写，则计算HourSpent。）