从一个数据帧中减去另一个数据帧中的值
从一个数据帧中减去另一个数据帧中的值
提问于 2013-09-10 07:04:22
我有两个数据帧：(它们是它们的简化版本)
一个
Link VU U P
1 DVH1 7 1 37
2 DVH2 7 0 38
3 DVH3 10 1 35B
Link VU U P
1 DVH1 2 0 15
2 DVH2 4 0 14
3 DVH3 0 0 5我想根据它们的位置将数据框B中的值与A中的值相减。例如:对于DVH1，VU将是7-2 (或5)，结果数据帧将如下所示：
Link VU U P
1 DVH1 5 1 22
2 DVH2 3 0 24
3 DVH3 10 1 30回答 2
Stack Overflow用户
回答已采纳
发布于 2013-09-10 07:16:54
使用以下命令：
within(merge(A,B,by="Link"), {
VU <- VU.x - VU.y
U <- U.x - U.y
P <- P.x - P.y
})[,c("Link","VU","U","P")]EDIT: Bonus:如果有太多成对的列(不仅仅是VU、U和P)，你可以这样使用：
M <- merge(A,B,by="Link")
S <- M[,grepl("*\\.x$",names(M))] - M[,grepl("*\\.y$",names(M))]
cbind(M[,1,drop=FALSE],S)
# Link VU.x U.x P.x
#1 DVH1 5 1 22
#2 DVH2 3 0 24
#3 DVH3 10 1 30Stack Overflow用户
发布于 2013-09-10 09:55:53
一种比merge更快的方法(最有可能的)是确保第二个data.frame与第一个具有相同的行和列顺序，然后将它们相减：
z <- names(A)[-1]
cbind(A[1], A[z] - B[match(A$Link, B$Link), z])
# Link VU U P
# 1 DVH1 5 1 22
# 2 DVH2 3 0 24
# 3 DVH3 10 1 30以下是一些示例数据：
A <- structure(list(Link = c("DVH1", "DVH2", "DVH3"), VU = c(7L, 7L,
10L), U = c(1L, 0L, 1L), P = c(37L, 38L, 35L)), .Names = c("Link",
"VU", "U", "P"), class = "data.frame", row.names = c("1", "2", "3"))
B <- structure(list(Link = c("DVH1", "DVH3", "DVH2"), P = c(15L, 5L,
14L), U = c(0L, 0L, 0L), VU = c(2L, 0L, 4L)), .Names = c("Link",
"P", "U", "VU"), class = "data.frame", row.names = c("1", "3", "2"))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18708395
复制相关文章
相似问题
腾讯云开发者
