Question

我有两个数据帧df1和df2，它们存储在列表中：

$df1 


column 1.  column  2.     column 3 
       A          a6          1
       B          j7          2
       C          i0          3
       D          b2          4

$df2
    column 1.  column  2.  column 3 
       E          8h          1
       F          4d          2
       G          3n          3
       H          a9          4
       I          5%          5
       L          *9.         6

数据帧具有不同的行号，并存储在list1中 list1 <-（df1，df2）

我想将代表等级的最后一列数字3除以总行数（除以每个值）：行号信息存储在向量中，它与这两个数据帧的行号不同，因为它们是具有更多行的较大数据帧的子集： vec <-c（10,20）

输出：

$df1 
$df1 nrow = 4
#df1_ALL nrow = 10
column 1.  column  2.  column 3 
   A          a6          1/10
   B          j7          2/10
   C          i0          3/10
   D          b2          4/10
$df2
$df2 nrow=6
$df2_ALL nrow = 20
column 1.  column  2.  column 3 
   E          8h          1/20
   F          4d          2/20
   G          3n          3/20
   H          a9          4/20
   I          5%          5/20
   L          *9.         6/20

我写了这样的东西：

list2<-list()

for (i in 1: length(list1)) {
+   list2[[i]]<- sweep(list1[[i]]$column3, 1,vec,'/')
+ }

但是给我以下错误：

Error in array(STATS, dims[perm]) : 'dims' cannot be of length 0
In addition: Warning message:
In sweep(myfiles[[i]]$rank, 1, g1, "/") :
  STATS is longer than the extent of 'dim(x)[MARGIN]'

任何帮助，那将很棒，欢呼

Answer 1

我们通过list和Map遍历数据集transform，以最后一列除以存储在vector中的数据集的行数（' vec'）

Map(function(x, y) transform(x, `column 3` = `column 3`/y), list1, vec)

将不同数据帧的行中的每个值除以矢量中存储的值

1 个答案: