如何根据另一列的某些条件在R数据框中创建新列？

有时我们想要更改列或通过使用R中的数据框的其他列来创建新列，这在我们想要创建分类列时最需要，但是对于数字列也可以做到。例如，我们可能想基于薪水创建一列，如果薪水大于另一列中的薪水，则将其加起来，否则取两者之间的差额。这将有助于我们了解两栏中的薪水是相等，较低还是较高。在R中，我们可以为此使用变换功能。

例1

请看以下数据帧：

> set.seed(1001)
> x1<-rpois(20,1)
> y1<-rpois(20,5)
> df1<-data.frame(x1,y1)
> df1

输出结果

  x1 y1
1  4  6
2  1  4
3  1  9
4  1  6
5  1  4
6  2  7
7  0  6
8  0  3
9  0  8
10 2  4 
11 1  5
12 0  9
13 2 10
14 1  4
15 0  3
16 2  2
17 0  2
18 0  6
19 0  6
20 2  2

创建一列z1，如果x1大于y1，则将从x1中减去y1，否则添加：

示例

> df1<-transform(df1,z1=ifelse(x1>y1,x1-y1,x1+y1))
> df1

输出结果

  x1 y1 z1
1  4  6 10
2  1  4  5
3  1  9 10
4  1  6  7
5  1  4  5
6  2  7  9
7  0  6  6
8  0  3  3
9  0  8  8
10 2  4  6
11 1  5  6
12 0  9  9
13 2 10 12
14 1  4  5
15 0  3  3
16 2  2  4
17 0  2  2
18 0  6  6
19 0  6  6
20 2  2  4

例2

> df2<-transform(df1,z1=ifelse(x1 df2

输出结果

  x1 y1 z1
1  4  6  2
2  1  4  3
3  1  9  8
4  1  6  5
5  1  4  3
6  2  7  5
7  0  6  6
8  0  3  3
9  0  8  8
10 2  4  2
11 1  5  4
12 0  9  9
13 2 10  8
14 1  4  3
15 0  3  3
16 2  2  4
17 0  2  2
18 0  6  6
19 0  6  6
20 2  2  4

例子3

> df3<-transform(df1,z1=ifelse(x1==y1,x1*y1,x1/y1))
> df3

输出结果

  x1 y1 z1
1 4 6 0.6666667
2 1 4 0.2500000
3 1 9 0.1111111
4 1 6 0.1666667
5 1 4 0.2500000
6 2 7 0.2857143
7 0 6 0.0000000
8 0 3 0.0000000
9 0 8 0.0000000
10 2 4 0.5000000
11 1 5 0.2000000
12 0 9 0.0000000
13 2 10 0.2000000
14 1 4 0.2500000
15 0 3 0.0000000
16 2 2 4.0000000
17 0 2 0.0000000
18 0 6 0.0000000
19 0 6 0.0000000
20 2 2 4.0000000