Буду признателен, если вы поможете мне составить массив действий (1:49) для столбца и строки, где данные экспортируются из кадра данных (выражающего приоритет действия по номеру), число, найденное в столбец представляет номер приоритета на строку, то есть, если столбец 9 имеет приоритет 8, отношение должно быть выражено заменой строки 8 столбца 9 на 1, а остальные данные в строках на 0, присоединенные по желанию Результат. и что если он имеет данные 0, это означает, что у него нет прецедентов, пропускающих этот столбец. n = длина Predj
> DB$Predj
[1] 0 0 0 0 0 0 0 0 0 0 0 11 12 13 0 14 16 17 18 0 0 18 22 23 24 25 26 27 28 29 0 29 32 33 34
[36] 0 34 37 38 39 0 0 0 43 44 45 46 47
matrixPredj <- matrix(c(DB$Predj), nrow=length(n), ncol=length(n), byrow=TRUE)
colnames(matrixPredj)<- c (1:length(n))
rownames(matrixPredj)<- c (1:length(n))
for (i in 1:ncol(matrixPredj)){
Mmatrix <- as.matrix(dtmatrix);dtmatrix <- matrixPredj[,i]
valuevector <- Mmatrix[1,1]
Mmatrix[valuevector,]=1
У меня нет ограничения на то, что если оно равно 0, продолжить с другим столбцом, в дополнение к исключению значений, отличных от 1, я хочу передать его в список, а затем со всеми результаты соединили новый фрейм данных, я думаю, что я могу сделать это следующим образом, кто знает больше, будет признателен.
матрица по столбцу будет повторять значение во всех своих строках, чтобы найти строку с таким же значением, как показано ниже
Я хочу, чтобы это выглядело так (пример)
.`
...1 `1` `2` `3` `4` `5` `6` `7` `8` `9`
<dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 1 0 0 1 0 1 3 4 1 7
2 2 0 0 1 0 1 3 4 1 7
3 3 0 0 1 0 1 3 4 1 7
4 4 0 0 1 0 1 3 4 1 7
5 5 0 0 1 0 1 3 4 1 7
6 6 0 0 1 0 1 3 4 1 7
7 7 0 0 1 0 1 3 4 1 7
8 8 0 0 1 0 1 3 4 1 7
9 9 0 0 1 0 1 3 4 1 7
ИТОГО
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 0 0 1 0 1 0 0 1 0
[2,] 0 0 0 0 0 0 0 0 0
[3,] 0 0 0 0 0 1 0 0 0
[4,] 0 0 0 0 0 0 1 0 0
[5,] 0 0 0 0 0 0 0 0 0
[6,] 0 0 0 0 0 0 0 0 0
[7,] 0 0 0 0 0 0 0 0 1
[8,] 0 0 0 0 0 0 0 0 0
[9,] 0 0 0 0 0 0 0 0 0