Dplyr - Dire pour plusieurs colonnes

Je veux calculer la moyenne de plusieurs colonnes, la création d'une nouvelle colonne, à l'aide dplyr et sans fonte + fusion.

> head(growth2)
  CODE_COUNTRY CODE_PLOT IV12_ha_yr IV23_ha_yr IV34_ha_yr IV14_ha_yr IV24_ha_yr IV13_ha_yr
1            1         6       4.10       6.97         NA         NA         NA       4.58
2            1        17       9.88       8.75         NA         NA         NA       8.25
3            1        30         NA         NA         NA         NA         NA         NA
4            1        37      15.43      15.07      11.89      10.00      12.09      14.33
5            1        41      20.21      15.01      14.72      11.31      13.27      17.09
6            1        46      12.64      14.36      13.65       9.07      12.47      12.36
>

J'ai besoin d'une nouvelle colonne dans le jeu de données avec la moyenne de tous les IV colonnes.
J'ai essayé ceci:

growth2 %>% 
  group_by(CODE_COUNTRY, CODE_PLOT) %>%
  summarise(IVmean=mean(IV12_ha_yr:IV13_ha_yr, na.rm=TRUE))

Et retourné plusieurs erreurs selon l'exemple utilisé, tels que:

Error in NA_real_:NA_real_ : NA/NaN argument

ou

Error in if (trim > 0 && n) { : missing value where TRUE/FALSE needed
Avez-vous besoin d' rowMeans pour les colonnes?

OriginalL'auteur fede_luppi | 2015-02-26

  1. 16

    Vous n'avez pas besoin de groupe, il suffit de select() et puis mutate()

    library(dplyr)
mutate(df, IVMean = rowMeans(select(df, starts_with("IV")), na.rm = TRUE))
    Cela ne fonctionne pas actuellement (R 3.2.0 avec dplyr 0.4.1). J'obtiens l'erreur suivante: Erreur: Chaque argument doit de rendement qu'elle soit positive ou négative entiers
    il fonctionne très bien pour moi sous 0.4.3
    Il fonctionne avec starts_with(), mais par exemple mtcars %>% mutate(IVMean = rowMeans(select(., cyl,mpg), na.rm = TRUE)) ne fonctionne pas. Il fonctionne si vous sortez de la muter.

    OriginalL'auteur Rich Scriven

  2. 2

    Utilisation . dans dplyr.

    library(dplyr)
mutate(df, IVMean = rowMeans(select(., starts_with("IV")), na.rm = TRUE))

    OriginalL'auteur Shixiang Wang

  3. 0

    vous pouvez utiliser comme suit:

    vos données 

    data<- structure(list(CODE_COUNTRY = c(1L, 1L, 1L, 1L, 1L, 1L), CODE_PLOT = c(6L, 
17L, 30L, 37L, 41L, 46L), IV12_ha_yr = c(4.1, 9.88, NA, 15.43, 
20.21, 12.64), IV23_ha_yr = c(6.97, 8.75, NA, 15.07, 15.01, 14.36
), IV34_ha_yr = c(NA, NA, NA, 11.89, 14.72, 13.65), IV14_ha_yr = c(NA, 
NA, NA, 10, 11.31, 9.07), IV24_ha_yr = c(NA, NA, NA, 12.09, 13.27, 
12.47), IV13_ha_yr = c(4.58, 8.25, NA, 14.33, 17.09, 12.36)), .Names = c("CODE_COUNTRY", 
"CODE_PLOT", "IV12_ha_yr", "IV23_ha_yr", "IV34_ha_yr", "IV14_ha_yr", 
"IV24_ha_yr", "IV13_ha_yr"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))

mydata <- cbind(data,IVMean=apply(data[,3:8],1,mean, na.rm=TRUE))

    vous pouvez également le faire 

     mydata <- cbind(data,IVMean=rowMeans(data[3:8], na.rm=TRUE))
    Je suppose que vous devez exclure les 2 premières colonnes de la apply que l'OP ne s'intéresse qu'à partir de colonnes IV12_ha_yr:....
    Salut, tu veux dire que c'mydata <- cbind(data[,3:8],s'appliquent(data[,3:8],1,mean))
    Je voulais dire cbind(data,IVMean=apply(data[,3:8],1,mean, na.rm=TRUE)) sur la Base du code par l'OP, c'est un peu confus ce que le résultat attendu serait.
    oui, c'est sûr, en tenant compte de la NA !
    Vous pouvez également remplacer le apply étape (ou d'ajouter comme une alternative) avec rowMeans(data[3:8], na.rm=TRUE)

    OriginalL'auteur