L'application de gsub à différentes colonnes

Quel est le moyen le plus efficace d'appliquer gsub à différentes colonnes?
Le code suivant ne fonctionne pas

x1=c("10%","20%","30%")
x2=c("60%","50%","40%")
x3 = c(1,2,3)
x = data.frame(x1,x2,x3)
per_col = c(1,2)
x = gsub("%","",x[,per_col])

Comment puis-je la plus efficace de déposer le signe ' % ' dans les colonnes spécifiées.
Puis-je l'appliquer à l'ensemble du dataframe? Ce serait utile dans le cas où je ne sais pas où le pourcentage des colonnes.

OriginalL'auteur Richard | 2014-05-23

  1. 9

    Vous pouvez utiliser apply de l'appliquer à l'ensemble des données.cadre

    apply(x, 2, function(y) as.numeric(gsub("%", "", y)))
     x1 x2 x3
[1,] 10 60  1
[2,] 20 50  2
[3,] 30 40  3
    Avertissement: apply() renvoie une matrice et non un data.frame.

    OriginalL'auteur docendo discimus

  2. 7

    Ou, vous pouvez essayer de le lapply solution:

    as.data.frame(lapply(x, function(y) gsub("%", "", y)))

  x1 x2 x3
1 10 60  1
2 20 50  2
3 30 40  3
    en plus de la deuxième question, les messages originaux demandé comment gsub pourrait être appliqué aux "colonnes spécifiées". Soins de commenter sur la façon de faire gsub s'appliquent uniquement à des colonnes spécifié plutôt que toutes les colonnes?
    comme.les données.cadre(lapply(x[c('x1','x2')], function(y) gsub("%", "", y))) ? Certes, l'. besoin d'un peu de travail pour mettre à jour les colonnes existantes.
    Cela semble renvoyer à une colonne de la catégorie "liste" (chaque élément d'une liste de longueur contenant la chaîne de résultat). Est-il possible de revenir à une colonne de l'origine de classe de personnage

    OriginalL'auteur info_seekeR

  3. 2

    La première réponse fonctionne mais attention, si vous utilisez data.frame avec de la ficelle: le @la juste liberté d'enseignement discimus la réponse sera de retour NAs.

    Si vous souhaitez conserver le contenu de votre colonne comme une chaîne de caractères il suffit de retirer le as.numeric et convertir votre table en un bloc de données après :

    as.data.frame(apply(x, 2, function(y) as.numeric(gsub("%", "", y))))
     x1 x2 x3
[1,] 10 60  1
[2,] 20 50  2
[3,] 30 40  3
    C'est également la solution proposée @info_seekeR

    OriginalL'auteur Simon C.

  4. 2

    Pour nettoyer le %, vous pouvez le faire:

    x[per_col] <- lapply(x[per_col], function(y) as.numeric(gsub("%", "", y)))

x
  x1 x2 x3
1 10 60  1
2 20 50  2
3 30 40  3

    OriginalL'auteur sindri_baldur

  5. 1

    À ajouter sur la juste liberté d'enseignement discimus réponse, une extension avec les colonnes adjacentes et en retournant une data.frame:

    x1 <- c("10%", "20%", "30%")
x2 <- c("60%", "50%", "40%")
x3 <- c(1, 2, 3)
x4 <- c("60%", "50%", "40%")

x <- data.frame(x1, x2, x3, x4)

x[, c(1:2, 4)] <- as.data.frame(apply(x[,c(1:2, 4)], 2,
                                         function(x) {
                                           as.numeric(gsub("%", "", x))}
))

> x
  x1 x2 x3 x4
1 10 60  1 60
2 20 50  2 50
3 30 40  3 40

> class(x)
[1] "data.frame"

    OriginalL'auteur bathyscapher