我希望能够从数据框的每个子集中减去最小值,例如:
A <- c(1,3,5,6,4,5,6,7,10)
B <- rep(1:4, length.out=length(A))
df <- data.frame(A, B)
df <- df[order(B),]
进行减法操作将会得到:
A B
1 0 1
2 3 1
3 9 1
4 0 2
5 2 2
6 0 3
7 1 3
8 0 4
9 1 4
我希望能够从数据框的每个子集中减去最小值,例如:
A <- c(1,3,5,6,4,5,6,7,10)
B <- rep(1:4, length.out=length(A))
df <- data.frame(A, B)
df <- df[order(B),]
进行减法操作将会得到:
A B
1 0 1
2 3 1
3 9 1
4 0 2
5 2 2
6 0 3
7 1 3
8 0 4
9 1 4
我认为你展示的输出结果是不正确的。无论如何,根据你的解释,我认为这就是你想要的。这里使用了ave
基础函数:
within(df, { A <- ave(A, B, FUN=function(x) x-min(x))})
A B
1 0 1
5 3 1
9 9 1
2 0 2
6 2 2
3 0 3
7 1 3
4 0 4
8 1 4
当然还有其他替代方案,例如 plyr
和 data.table
。
tapply
计算子集,然后使用match
将这些子集与原始值对齐:subs <- tapply(df$A, df$B, min)
df$A <- df$A - subs[match(df$B, names(subs))]
df
A B
1 0 1
5 3 1
9 9 1
2 0 2
6 2 2
3 0 3
7 1 3
4 0 4
8 1 4
unlist(tapply(df$A, df$B, function(x) x - min(x)))
(因为它们已经排序)。在大多数情况下,ave
更有用,因为它会按照相同的顺序输出结果。 - Arun