Comment obtenir rowSums pour les colonnes sélectionnées dans la R

Je suis un newbie de R et de demander de l'aide pour calculer la somme de la colonne sélectionnée pour chaque ligne. Mon simple trame de données est comme ci-dessous. 

data = data.frame(location = c("a","b","c","d"),
            v1 = c(3,4,3,3), v2 = c(4,56,3,88), v3 =c(7,6,2,9), v4=c(7,6,1,9),
            v5 =c(4,4,7,9), v6 = c(2,8,4,6))

Je veux somme des colonnes V1 à V3 et V4 à la V6 pour mon chaque ligne dans un nouveau bloc de données.

   x1   x2
a  14   13   
b  66   18
c
d

J'ai fait quelque chose comme ci-dessous. 

rowSums(data[,2:4][,5:7])

Mais quelque chose doit être mal dans mes codes. Merci d'avance pour toute aide.

InformationsquelleAutor sriya | 2016-05-07
  1. 2

    Ici est une solution simple à l'aide de apply.

    output <- data.frame( x1 = apply(data[2:4], 1, sum) ,
                      x2 = apply(data[5:7], 1, sum) )

    résultat:

    output
>    x1 x2
> 1  14 13
> 2  66 18
> 3   8 12
> 4 100 24
    InformationsquelleAutor rafa.pereira
  2. 1

    Mon sens serait d'utiliser dply:

    require(dply)
data %>% mutate(v2v4 = rowSums(.[2:4])) %>% mutate(v4v6 = rowSums(.[5:7])) %>% select(-(location:v6))

    résultat:

    > newDf <- data %>% mutate(v2v4 = rowSums(.[2:4])) %>% mutate(v4v6 = rowSums(.[5:7])) %>% select(-(location:v6))
> newDf
  v2v4 v4v6
1   14   13
2   66   18
3    8   12
4  100   24
    InformationsquelleAutor Technophobe01
  3. 1

    OK, si vous voulez un distinct dataframe:

    > data.frame(X1=rowSums(data[,2:4]), X2=rowSums(data[,5:7]))
    • cette réponse n'a pas de retour de la sortie souhaitée dans data.frame
    • Je n'ai jamais dit qu'il n'. Je l'ai dit, vous devez utiliser rowSums(data[,c(2:4,5:7)]) au lieu de rowSums(données[,2:4][,5:7]). Si vous voulez un dataframe vous avez juste besoin de les combiner.
    • Je pense toujours que votre réponse ne retourne pas le résultat demandé dans les questions, ce qui serait un data.frame comme ceux que vous pouvez voir dans les autres réponses
    • Êtes-vous sûr?. Vérifier le résultat, c'est un ensemble de données.cadre
    • Oui, il est maintenant de retour de données.le cadre, mais c'est toujours pas de retour de la sortie désirée est indiqué dans la question.
    InformationsquelleAutor Juanjo
  4. 1
    rowSums(cbind(mydata$variable1, mydata$variable2, mydata$variable3), na.rm = T )
    InformationsquelleAutor useR
  5. 0

    Spécifiant les deux sommations de manière explicite:

    cbind(x1=rowSums(data[,c('v1','v2','v3')]),x2=rowSums(data[,c('v4','v5','v6')]));
##       x1 x2
## [1,]  14 13
## [2,]  66 18
## [3,]   8 12
## [4,] 100 24
    • réelle de l'ensemble de données a eu grand nombre de variables.
    InformationsquelleAutor bgoldst
  6. 0

    Nous pouvons split le jeu de données en un list et ensuite utiliser Reduce avec f="+".

    sapply(split.default(data[-1], rep(paste0("x", 1:2), each=3)), Reduce, f=`+`)
#     x1 x2
#[1,]  14 13
#[2,]  66 18
#[3,]   8 12
#[4,] 100 24
    • Toutes les réponses fonctionnent bien. Merci . @Akrun de quoi Réduire, f='+' de le faire ici, s'il vous plaît?
    • est l'appel de fonction à l'intérieur de la Reduce. Il fait la somme de chaque élément dans une ligne particulière des données.cadre.
    InformationsquelleAutor akrun