2

Tengo un data con varias variables y quiero usar un for para que recorra varias variables y consulte los valores.

El data table datos contiene las variables V1, V2... V15. Lo que quiero es crear una variable Stotal que sea la suma de los valores SI que hay en las variables V1 a V15.

for (i in 1:nrow(datos)){
for (j in 1:15){
   (if(sprintf("V%d",j)[i])=="SI"){
aux<-1
Stotal[i]<-1+aux
}
}

El codigo no funciona, entre otras cosas, porque la función sprintf pega el texto pero no saca el valor de la variable en la posicion que le pido.

Editado: Un ejemplo con menos columnas podría ser:

V1 <- c("Si","No","Si")
V2 <- c("Si","No","No")
V3<-c("Si","Si","Si")

datos <- data.frame(V1,V2,V3)
datos
  V1 V2 V3
1 Si Si Si
2 No No Si
3 Si No Si

En este caso la salida esperada sería: 3 1 2

1
  • ¿Puede dar un ejemplo del "data table tablos" por favor ? Commented el 7 dic. 2017 a las 14:48

2 respuestas 2

0

Puede utilisar una dataframe :

Sval<-0   
# Creo tres vectores of misma tamano. Utiliso tres vectores para simplicidad
V1 <- c(5,9,3)
V2 <- c(10,11,12)
V3<-c(13,14,15)
X <- data.frame(V1,V2,V3)    
rownames(X) <- c("SI","b","c")
datos <- X    
print(datos)

Que da :

   V1 V2 V3
SI  5 10 13
b   9 11 14
c   3 12 15

Y para calcular las valores del attributo SI :

for (val in datos["SI",]){
    Stotal=Stotal + val
}

print(Stotal)

Que da

[1] 28

0
0

Más allá que lo puedas resolver mediante un loop R tiene mecanismos más efectivos y performantes. Por ejemplo:

V1 <- c("Si","No","Si")
V2 <- c("Si","No","No")
V3<-c("Si","Si","Si")

datos <- data.frame(V1,V2,V3)
datos
apply(datos, MARGIN = 1, function(x) sum(ifelse(x=="Si", 1, 0)))

La Salida:

  V1 V2 V3
1 Si Si Si
2 No No Si
3 Si No Si

V1 V2 V3 
 2  1  3 
  • Aplicamos apply() la función sum a datos por filaMARGIN = 1
  • Pero solo sumamos 1 si el valor es Si (ifelse(x=="Si", 1, 0))

O incluso mucho más fácil:

rowSums(datos[,]=="Si")
  • Aplicamos rowSums para sumar por fila, únicamente los valores que sean Si (datos[,]=="Si")
1
  • Con rowSums de lujo. Muchas gracias! Que facil... que mala es la ignorancia
    – Uko
    Commented el 7 dic. 2017 a las 18:10

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.