我有两个表。其中一列包含四列，第一列是名称，其他三列是数字。我想将数字的平均值分配给名称。
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