Bienvenida Victoria.
Entiendo que quieres multiplicar cada valor de demanda por la columna Prot
y que el resultado final sería una matriz o data.frame de 8 filas por 4 columnas. Si no es así por favor agrega un comentario a esta respuesta o una aclaración a tu pregunta.
En ese caso podrías solucionarlo con R base usando la función apply()
.
#Genero los datos
structure(list(D1 = c(1, 2, 2, 3, 3, 3, 5, 8),
D2 = c(NA, 10,NA, 1, 24, 25, NA, 9),
D3 = c(NA, NA, NA, NA, NA, NA, NA, 1),
D4 = c(NA, NA, NA, NA, NA, NA, NA, NA),
Prot = c(6, 1, 1, 1, 1, 1, 34, 1)),
row.names = c(NA, -8L),
class = c("data.frame")) -> datos_protestas
apply(datos_protestas[, 1:4], 2, function (x) x * datos_protestas$Prot)
Explicación
apply()
se encarga de pasar una (otra) función a cada fila o columna de un data.frame. El primer argumento es el data.frame sobre el que va a trabajar, en este caso uso un subset para que trabaje solamente sobre las columnas con números de índice 1 a 4. La idea es que no multiplique a Prot
por sí misma, así que excluyo la columna 5.
El número 2 como segundo argumento le indica a apply()
que quiero que opere por columnas. Usando el 1 haría las operaciones por filas.
function (x)
define una función anónima. Es un truco para no tener que definir una función previamente. apply()
se va a encargarde ir suministrando a mi función cada columna en el argumento x
. Luego defino la función, que es la multiplicación de x
(cada columna) por el vector datos_protestas$Prot
.
apply()
se encarga solita de armar la matriz de salida.
Así se ve el resultado:
D1 D2 D3 D4
[1,] 6 NA NA NA
[2,] 2 10 NA NA
[3,] 2 NA NA NA
[4,] 3 1 NA NA
[5,] 3 24 NA NA
[6,] 3 25 NA NA
[7,] 170 NA NA NA
[8,] 8 9 1 NA
Cuando hay un NA
(missing) el resultado de las operaciones aritméticas siempre será NA
.