R 循环以更改变量名的一部分并重复该命令_R_Loops

R 循环以更改变量名的一部分并重复该命令

r loops

R 循环以更改变量名的一部分并重复该命令,r,loops,R,Loops,我目前正在使用此代码获取一个变量，选择2,3,4,5位数字并创建一个新变量 dataset$nd1_4_digits <- substr(dataset$nd1, 2, 5) dataset$nd1\u 4\u位您可以使用lappy： cols <- paste0('nd', 1:40) dataset[paste0(cols, '_4_digits')] <- lapply(dataset[cols], substr, 2, 5) dataset$nd1

我目前正在使用此代码获取一个变量，选择2,3,4,5位数字并创建一个新变量

     dataset$nd1_4_digits <- substr(dataset$nd1, 2, 5)

dataset$nd1\u 4\u位您可以使用lappy
：
cols <- paste0('nd', 1:40)
dataset[paste0(cols, '_4_digits')] <- lapply(dataset[cols], substr, 2, 5)

    dataset$nd1_4_digits <- substr(dataset$nd1, 2, 5) 
    dataset$nd2_4_digits <- substr(dataset$nd2, 2, 5) 
    dataset$nd3_4_digits <- substr(dataset$nd3, 2, 5) 

    dataset$nd40_3_digits <- substr(dataset$nd4, 2, 5)

cols <- paste0('nd', 1:40)
dataset[paste0(cols, '_4_digits')] <- lapply(dataset[cols], substr, 2, 5)

library(dplyr)
dataset %>%
  mutate(across(starts_with('nd'), list(digits = ~substr(., 2, 5))))