根据该数据帧中的主键将变量附加到该数据帧行

Question

我有一个看起来像这样的数据框：

  PATNO          DRUG  sum(MG)
1     2 ACETAMINOPHEN 3000.000
2     2      FENTANYL    0.125
3     2     OXYCODONE   15.000
4     2       TORADOL   60.000
5     3 ACETAMINOPHEN 4280.000
6     3      FENTANYL    0.025

我还有另一个看起来像这样的数据框：

  PATNO       PROC LOS
2     2    UNKNOWN   2
3     3 LAP SLEEVE   1
4     4  LAP RNYGB   1
5     5 LAP SLEEVE   2
6     6 LAP SLEEVE   2
7     7    UNKNOWN   2

我需要能够基于来自第二个数据帧的匹配PATNO将正确的LOS放置在第一个数据帧的末尾，这样最终结果是：

  PATNO          DRUG  sum(MG) LOS
1     2 ACETAMINOPHEN 3000.000  2
2     2      FENTANYL    0.125  2
3     2     OXYCODONE   15.000  2
4     2       TORADOL   60.000  2
5     3 ACETAMINOPHEN 4280.000  1
6     3      FENTANYL    0.025  1

我一直在头上撞墙试图弄清楚。我主要通过编写一个函数来尝试这种方法：

dpdFunc <- function(x) { #CREATE FUNCTION TO DIVIDE DAILY DOSES BY LOS
  df2$LOS[df2$PATNO==x]
}

然后尝试建立一个新列：

df1$LOS <- dpdFunc(df1$PATNO)

这行不通。