数据结构
网络
RDBMS
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
时尚研究
法律研究如何在 R 中将 data.table 对象行按每行中不包括 0 的最大值进行除法运算？
若要将 R 的 data.table 对象按每行中不包括 0 的行最大值进行除法运算，我们可以按照以下步骤操作 −
- 首先，创建一个 data.table 对象。
- 然后，使用 apply 函数和 if else 函数将 data.table 对象行按每行中不包括 0 的行最大值进行除法运算。
创建 data.table 对象
让我们创建一个 data.table 对象，如下所示 −
> library(data.table) > x<-sample(0:5,25,replace=TRUE) > y<-sample(0:5,25,replace=TRUE) > z<-sample(0:5,25,replace=TRUE) > DT<-data.table(x,y,z) > DT
执行以上脚本，会生成以下输出（此输出会因为随机化的影响而因系统而异） −
x y z 1: 2 0 3 2: 2 3 2 3: 0 1 3 4: 0 3 1 5: 1 5 2 6: 1 3 0 7: 4 5 2 8: 0 1 4 9: 4 2 0 10: 3 2 4 11: 1 4 3 12: 2 5 2 13: 4 2 0 14: 1 1 5 15: 1 2 4 16: 0 3 0 17: 4 1 1 18: 5 0 3 19: 2 0 4 20: 4 5 3 21: 4 0 3 22: 3 0 1 23: 2 1 5 24: 0 1 2 25: 2 1 1 x y z
将 data.table 对象行按每行中不包括 0 的行最大值进行除法运算
使用 apply 函数将 DT 的行按每行中不包括 0 的行最大值进行除法运算 −
> library(data.table) > x<-sample(0:5,25,replace=TRUE) > y<-sample(0:5,25,replace=TRUE) > z<-sample(0:5,25,replace=TRUE) > DT<-data.table(x,y,z) > DT_new<-t(apply(DT,1, function(x) if (0 %in% x) x else x/max(x))) > DT_new
输出
x y z [1,] 2.0000000 0.00 3.0000000 [2,] 0.6666667 1.00 0.6666667 [3,] 0.0000000 1.00 3.0000000 [4,] 0.0000000 3.00 1.0000000 [5,] 0.2000000 1.00 0.4000000 [6,] 1.0000000 3.00 0.0000000 [7,] 0.8000000 1.00 0.4000000 [8,] 0.0000000 1.00 4.0000000 [9,] 4.0000000 2.00 0.0000000 [10,] 0.7500000 0.50 1.0000000 [11,] 0.2500000 1.00 0.7500000 [12,] 0.4000000 1.00 0.4000000 [13,] 4.0000000 2.00 0.0000000 [14,] 0.2000000 0.20 1.0000000 [15,] 0.2500000 0.50 1.0000000 [16,] 0.0000000 3.00 0.0000000 [17,] 1.0000000 0.25 0.2500000 [18,] 5.0000000 0.00 3.0000000 [19,] 2.0000000 0.00 4.0000000 [20,] 0.8000000 1.00 0.6000000 [21,] 4.0000000 0.00 3.0000000 [22,] 3.0000000 0.00 1.0000000 [23,] 0.4000000 0.20 1.0000000 [24,] 0.0000000 1.00 2.0000000 [25,] 1.0000000 0.50 0.5000000
更新于： 13-8-2021
133 次浏览
广告