Question

这是一个新手问题，但我在理解作为数组列表的数据集的应用函数时遇到了一些问题。

这是我拥有的数据和我想要做的事情的一个例子：

> dataset1=array(data1,dim=c(2,10,5))
> dataset2=array(data2,dim=c(2,10,5))
> dataset3=array(data2,dim=c(2,10,5))
> datasets=list(data1=dataset1,data2=dataset2,data3=dataset3)
> str(datasets)
List of 3
 $ data1: num [1:2, 1:10, 1:5] 0.101 1.192 0.154 0.911 1.889 ...
 $ data2: num [1:2, 1:10, 1:5] 2.84 1.63 1.78 1.24 1.09 ...
 $ data3: num [1:2, 1:10, 1:5] 2.84 1.63 1.78 1.24 1.09 ...

我想将所有值替换为1.5 x 0

for (d in 1:3){
  for (n in 1:2){
    for (i in 1:10){
      datasets[[d]][n,i,][datasets[[d]][n,i,]<=1.5]=0
    }
  }
}

我想知道我是否可以使用其中一个应用功能？或者对于这种类型的数据集（数组列表），还是应该保留循环方法并忘记其他选项？

Answer 1

具有可重复的数据：

dataset1 = array(rnorm(100),dim = c(2,10,5))
dataset2 = array(rnorm(100),dim = c(2,10,5))
dataset3 = array(rnorm(100),dim = c(2,10,5))
datasets = list(data1 = dataset1, data2 = dataset2, data3 = dataset3)

现在编写一个匿名函数来进行常规替换，然后在列表中使用该函数：

datasets.updated <- lapply(datasets, function(x) {x[x < 1.5] <- 0; x})

dickoa提供的匿名函数相当简洁的方法：

datasets.updated <- lapply(datasets, function(x) ifelse(x < 1.5, 0, x))

应用数组列表的函数

1 个答案: