創建新變量，將數據幀的所有變量除以每一行中的相同變量-R

Question

我已經為只有三列的數據框完成了此操作。 我想將所有變量除以“ c”變量。

> d <- data.frame(rep(2,7),rep(4,7),rep(8,7))
> colnames(d) <- c("a","b","c")
> #Creating the new variables
> d$c1 <- d$a/d$b
> d$c2 <- d$a/d$c
> d
  a b c  c1   c2
1 2 4 8 0.5 0.25
2 2 4 8 0.5 0.25
3 2 4 8 0.5 0.25
4 2 4 8 0.5 0.25
5 2 4 8 0.5 0.25
6 2 4 8 0.5 0.25
7 2 4 8 0.5 0.25

但是，如果該數據框具有超過一百列，我該如何設置循環或應用族創建新變量？

Answer 1

我認為您不需要*apply或loop。 嘗試：

cbind(d, d[, 1] / d[, -1])

但是您需要將列名稱設置為所需的名稱。

d <- setNames(data.frame(rep(2,7),rep(4,7),rep(8,7)), letters[1:3])
cbind(d, d[, 1] / d[, -1])
#  a b c   b    c
#1 2 4 8 0.5 0.25
#2 2 4 8 0.5 0.25
#3 2 4 8 0.5 0.25
#4 2 4 8 0.5 0.25
#5 2 4 8 0.5 0.25
#6 2 4 8 0.5 0.25
#7 2 4 8 0.5 0.25