R 为姓名分配编号

我有两张桌子。其中一列包含四列，第一列是名称，其他三列是数字。我想把这些数字的平均值分配给这个名字

ID   number_1  number_2  number_3
A01  13        11        12
A02  18        16        17
......

第二个表有一列包含第一个表中的名称，我想用数字的平均值替换这些名称。例如：

v1  v2  v3  ......
8   5   A01 ......
6   3   A02 ......

替换名称，以便我可以获得：

v1  v2  v3  ......
8   5   12  ......
6   3   17  ......

---

我不知道怎么做。希望您能理解我的问题。

假设您的两个表都是数据帧，并且它们的顺序相同，即A01、A02等

df1 <- read.table(text = "ID   number_1  number_2  number_3
                         A01  13        11        12
                         A02  18        16        17",
                 header = T)

df2 <- read.table(text = "v1  v2  v3
                          8   5   A01
                          6   3   A02", 
                  header = T)

df1means <- rowMeans(df1[2:4])

df2$v3 <- df1means

df2

#    v1 v2 v3
# 1  8  5  12
# 2  6  3  17

---

应该是df1[2:4]。他们没有相同的订单。