android – 在跨列应用函数时替代’lapply’

Question

android – 在跨列应用函数时替代’lapply’

alternative to `lapply` when applying function across columns

来源: link 标签:r 更新时间: 2019-12-27

最佳答案

它是一个xts对象. lapply适用于data.frame和list.在这里,我们可以使用apply

 apply(data, 2, SMA, n = 10)

akrun

相同标签的其他问题

r

上一个问题:MVC4中的Styles.Render

下一个问题:删除gsheet中的第一行并将行移动

user8959427 · Accepted Answer

在数据帧的列中应用函数的正确方法是什么?

我有一些类似于以下的数据:

我想计算每列的简单移动平均值.我可以使用lapply但它将数据作为列表,如果可能的话,我想创建新列或新数据帧.

我已经尝试过sapply,mapply等.

数据:

 require(quantmod)
require(PerformanceAnalytics)
library(data.table)


from <- "2017-01-01"
to <- "2018-12-01"

symbols <- c('GOOG', 'MSFT', 'AAPL')

dataEnv <- new.env()
getSymbols(symbols, from=from, to = to, src = "yahoo", adjust = TRUE, env = dataEnv) 

data <- do.call(merge, eapply(dataEnv, Ad))
colnames(data) <- gsub(".Adjusted", "", colnames(data))

x <- lapply(data, function(x) SMA(x, n = 10))

例如,这会创建一个新列:

data$googleSMA <- SMA(data$GOOG)