for循环（可能需要一些替换变量）

在其他语言中，这是一件非常简单的事情，在R语言中也是如此，但我对R语言还不熟悉，所以非常感谢您的帮助

我有一个后缀为1，2，…，100的100个变量，我想为每个变量运行相同的命令

我想使用一些替换变量或一些for循环，以便对以下（“数值”）变量循环并运行相同的命令：

ln_income1
ln_income2
ln_income3
...
ln_income99
ln_income100

让我们调用替换变量{replace}（即使我知道我不能这样称呼它），并在1，2，…，100上循环这个变量：

ln_income{replace}.haar <- mra(ln_income{replace}, "haar", 3, "modwt")
names(ln_income{replace}.haar) <- c("d1", "d2", "d3")

---

haar感谢您慷慨而出色的回答，但我认为d1、d2、d3被误解了（因为我没有意识到d1、d2、d3……通常用于表示不同的数据帧）。在我目前的初学者水平上，我对任何有用的东西都很满意

实际上，d1、d2、d3是“数值”小波分解变量（即每个“数值”变量的不同小波时间尺度变量）

ln_income1中有3个（d1、d2、d3），ln_income2中有3个（d1、d2、d3），等等，…，ln_income100中有3个（d1、d2、d3）

如果我给你我正在使用的代码（这里有工资变量），也许对每个人来说都是最简单的

在导入的Stata文件emilija3.dta中，我有变量wage1、wage2、…、wage100

为了更清楚，我在d1、d2和d3加了一个后缀，即d1_wage1、d2_wage1、d3_wage1、d1_wage2、d2_wage2、d3_wage2。。。。。。首被告下注100，次被告下注100，第三被告下注100

所有这些经过小波变换的“数字”都可以保存在同一数据帧中。也就是说，这只是每个变量的不同时间尺度

以下是我想做的（这次是为了工资，而不是ln_收入）：

#1
图书馆（外文）
edata为什么不使用列表？使用列表，包括如何将所有以数字命名的变量放入列表。
ln_income1.haar <- mra(ln_income1, "haar", 3, "modwt")
names(ln_income1.haar) <- c("d1", "d2", "d1")

ln_income2.haar <- mra(ln_income2, "haar", 3, "modwt")
names(ln_income2.haar) <- c("d1", "d2", "d3")

ln_inome100.haar <- mra(ln_inome100, "haar", 3, "modwt")
names(ln_inome100.haar) <- c("d1", "d2", "d3")

   # wage1
   library(foreign)
   edata <- read.dta("c://test//emilija3.dta")
   wage1=edata$wage1
   library(waveslim)
   wage1.haar <- mra(wage1, "haar", 3, "modwt")
   names(wage1.haar) <- c("d1", "d2", "d3")
   d1_wage1=wage1.haar$d1
   d2_wage1=wage1.haar$d2
   d3_wage1=wage1.haar$d3
   d1_wage1
   d2_wage1
   d3_wage1
   ####################
   # wage2
   library(foreign)
   edata <- read.dta("c://test//emilija3.dta")
   wage2=edata$wage2
   library(waveslim)
   wage2.haar <- mra(wage2, "haar", 3, "modwt")
   names(wage2.haar) <- c("d1", "d2", "d3")
   d1_wage2=wage2.haar$d1
   d2_wage2=wage2.haar$d2
   d3_wage2=wage2.haar$d3
   d1_wage2
   d2_wage2
   d3_wage2
   ####################
   # wage3
   library(foreign)
   edata <- read.dta("c://test//emilija3.dta")
   wage3=edata$wage3
   library(waveslim)
   wage3.haar <- mra(wage3, "haar", 3, "modwt")
   names(wage3.haar) <- c("d1", "d2", "d3")
   d1_wage3=wage3.haar$d1
   d2_wage3=wage3.haar$d2
   d3_wage3=wage3.haar$d3
   d1_wage3
   d2_wage3
   d3_wage3
   ####################
   #...
   #...
   #...
   ####################
   # wage100
   library(foreign)
   edata <- read.dta("c://test//emilija3.dta")
   wage100=edata$wage100
   library(waveslim)
   wage100.haar <- mra(wage100, "haar", 3, "modwt")
   names(wage100.haar) <- c("d1", "d2", "d3")
   d1_wage100=wage100.haar$d1
   d2_wage100=wage100.haar$d2
   d3_wage100=wage100.haar$d3
   d1_wage100
   d2_wage100
   d3_wage100
   ####################