我正在寻找有关如何从两个数据框中列出的彼此减去值的建议。在下面的示例中,有两个数据帧A和B,我想在第一列向量匹配的条件下相互减去第二列的值。例如,当向量X1是R1然后是5.1-5和4.8-5。
A< -data.frame(cbind(C( 'R1', 'R1', 'R2', 'R4', 'R4', 'R4'),C(5.1,4.8,4.9,5.0,5.0 ,5.3)))
B< -data.frame(cbind(C( 'R1', 'R2', 'R 3', '4'),C(5,4.9,5.2,5.1)))
答案 0 :(得分:3)
一般R建议:当不需要时,请勿使用cbind
:
A <- data.frame(X1=c('R1','R1','R2','R4','R4','R4'),X2=c(5.1,4.8,4.9,5.0,5.0,5.3))
B <- data.frame(X1=c('R1','R2','R3','R4'),X2=c(5,4.9,5.2,5.1))
(你制作了这些数字的因子。你不能将算术运算符应用于因子。)
当存在非唯一匹配时,merge函数返回所有可能的对:
merge(A,B, by=1)
merge(A,B, by=1)[,2] - merge(A,B, by=1)[,3]
#[1] 0.1 -0.2 0.0 -0.1 -0.1 0.2
答案 1 :(得分:2)
定义数据,以便数字列确实是数字。 (有可读性空间!)
A <- data.frame(
X1 = c('R1', 'R1', 'R2', 'R4', 'R4', 'R4'),
X2 = c(5.1, 4.8, 4.9, 5.0, 5.0, 5.3)
)
B <- data.frame(
X1 = c('R1', 'R2', 'R3', 'R4'),
X2 = c(5, 4.9, 5.2, 5.1)
)
合并数据框,然后用结果减去列。
merged <- merge(A, B, "X1")
with(merged, X2.x - X2.y)
答案 2 :(得分:0)
这是带矢量名称的解决方案。
A <- data.frame(
X1 = c('R1', 'R1', 'R2', 'R4', 'R4', 'R4'),
X2 = c(5.1, 4.8, 4.9, 5.0, 5.0, 5.3),
stringsAsFactors = FALSE
)
L <- c(5, 4.9, 5.2, 5.1)
names(L) <- c('R1', 'R2', 'R3', 'R4')
A$X2-L[A$X1]