Матричное умножение каждой строки во фрейме данных
Это должно быть элементарно, но я не могу понять это. У меня есть фрейм данных, и я хочу создать новую переменную как матричное умножение каждой строки на заранее заданный вектор.
library(dplyr)
data <- data.frame(matrix(1:6,2))
vector <- c(1,0,1)
##NOT WORKING
data <- data %>%
mutate(multiplication = as.numeric(data[,]) %*% vector)
mm <- function(x,y){
n <- as.numeric(x)
m <- n %*% y
print(as.numeric(m))
}
##NOT WORKING
data$mm <- lapply(data[,], function(x) mm(x,vector))
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
1
463
4
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 4
Ответ принят как подходящий
Вы можете использовать apply:
data %>% mutate(multiplication = apply(., 1, function(x) x %*% vector))
#> X1 X2 X3 multiplication
#> 1 1 3 5 6
#> 2 2 4 6 8
Один из вариантов может быть:
data %>%
rowwise() %>%
mutate(multiplication = sum(c_across(everything()) * vector))
X1 X2 X3 multiplication
<int> <int> <int> <dbl>
1 1 3 5 6
2 2 4 6 8
использовать as.matrix
library(tidyverse)
data <- data.frame(matrix(1:6,2))
vector <- c(1,0,1)
data %>%
mutate(multiplication = as.matrix(data[,]) %*% vector)
#> X1 X2 X3 multiplication
#> 1 1 3 5 6
#> 2 2 4 6 8
Created on 2020-12-11 by the reprex package (v0.3.0)
Мы можем использовать crossprod из base R
data$multiplication <- crossprod(t(data), vector)[,1]
-выход
data
# X1 X2 X3 multiplication
#1 1 3 5 6
#2 2 4 6 8
Другие вопросы по теме
Найти индексы элементов во всех «восьми направлениях» 2D-массива/матрицы Python
Эффективный способ получить соседей в массиве 2d numpy
Отображать общую сумму только один раз в матричном отчете
Почему XMMatrixLookAtLH приводит к ошибке отладки?
Матричная обратная аппроксимация с плотной моделью кераса
LinAlgError: последние 2 измерения массива должны быть квадратными, матрицы не могут быть решены
Квадрат матрицы в питоне
Умножьте тензоры, содержащие матрицы, следуя правилу умножения матриц
Матричный калькулятор Python 3
Изменение вхождений значения в матрице
Похожие вопросы
Переименование каждой строки в столбце в имя столбца
Метки столбца RcppEigen
Разбор таблицы и URL-адресов в R с помощью rvest
Есть ли встроенная константа для дней недели на английском языке в базе R?
Муррр: передать имена столбцов в виде списка параметров в pmap()
Добавление отдельной строки регрессии в ggplot в R
Подмножить новый фрейм данных с двоичными столбцами
При установке начального числа, аргумент типа образца выдает предупреждение
График разбиения вариантов с помощью ggplot
R - заменить шаблон в именах столбцов в нескольких кадрах данных
@user20650 user20650 так что в базе R:
data$multiplication <- as.matrix(data) %*% vector