如何划分两行，使第三行结果？

Question

所以我现在拥有的数据框如下所示......

rowId   x1    x2    x3    x4
  1     50    40    30    20
  2      5     5     5     5
  3     10     8     6     4

我想要的是将第1行除以第2行，创建带结果的第3行，如下所示......

{{1}}

这是一个简单的方法吗？

Answer 1

你可以这样做：

df <- read.table(header = TRUE, text = "
x1    x2    x3    x4
50    40    30    20
 5     5     5     5")

df <- rbind ( df, df[1, ] / df[2, ] )