根据条件修改数据框的所有行，该数据框本身就是列表的元素

Question

我有一个包含 2 个元素的列表，其中第二个元素是数据框。 如果满足条件，我想替换数据帧之一列的所有值 则要更改其值的变量称为“CODE_PAYS_LIV”

如果“CODE_PAYS_LIV”列中的值属于以下列表的元素， ： c("AT","BE", "CH", "CZ", "DE", "DK","ES", "FR", "GB", "HR", "HU", "IE", “IT”，“NL”，“NO”，“PL”，“PT”，“SE”，“SI”，“SK”））

必须更改为“EUR”

我尝试将这些更改更改为两个不同的方法（没有成功） 直接调用函数，或使用 lapply 来应用函数

我首先定义一个函数来测试条件是否为真

modif_res_veh <-function(fichier_veh) {

       ii<-1 

       nb_mesh <- nrow(fichier_veh)

      for (ii in 1:nb_mesh) {

           if (fichier_veh$CODE_PAYS_LIV %in% c("AT","BE" , "CH" , "CZ" , "DE" , "DK" , "ES" , "FR"))                                 
                   {fichier_veh$CODE_PAYS_LIV <- "EUR" }

       }
}

，然后我尝试调用此函数

<>第一次测试使用： Res_vehicule [[2]] <- modif_res_veh(Res_vehicule [[2]])

  this gives me a list of 1 empty element

<>;使用以下命令进行第二次测试：

Res_vehicule <- lapply(Res_vehicule[[2]] ,modif_res_veh)

  but i have this error message :

1:nb_mesh 中的错误：长度为 0 的参数

<>第三次测试通过将数据帧的行数作为函数的参数传递：

modif_res_veh <-function(fichier_veh, nb_mesh) {

       ii<-1 

      for (ii in 1:nb_mesh) {

           if (fichier_veh$CODE_PAYS_LIV %in% c("AT","BE" , "CH" , "CZ" , "DE" , "DK" , "ES" , "FR"))                                 
                   {fichier_veh$CODE_PAYS_LIV <- "EUR" }

       }
}

     nb_mesh <- nrow(Res_vehicule [[2]]) 

    Res_vehicule [[2]] <- modif_res_veh(Res_vehicule [[2]],nb_mesh)


but this gives me a list of 1 empty element again

非常感谢您的帮助

Answer 1

一种选择：

flag_EU_members <- function(country_vector){
    ifelse(
        country_vector %in% c("AT", "BE", "CH"), ## etc.
        'EUR',
        country_vector
    )
}

Res_vehicule[[2]]$CODE_PAYS_LIV <-
    flag_EU_members(Res_vehicule[[2]]$CODE_PAYS_LIV)