Создание сложного пустого списка или фрейма данных

Question

У меня есть переменная, которая является списком.

[[1]]

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]

 [1,]    1    1    1    1    1    1    1    4

 [2,]    1    1    1    1    1    1    1    4

 [3,]    1    1    1    1    1    1    1    4

 [4,]    1    1    1    1    1    1    1    4

 [5,]    1    1    1    1    1    1    1    4

 [6,]    1    1    1    1    1    1    1    4

 [7,]    1    1    1    1    1    1    1    4

 [8,]    1    1    1    1    1    1    1    4

 [9,]    1    1    1    1    1    1    1    4

[10,]    1    1    1    1    1    1    1    4

[11,]    1    1    1    1    1    1    1    4



[[2]]

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]

 [1,]    1    1    1    1    1    1    1    3

 [2,]    1    1    1    1    1    1    1    4

 [3,]    1    1    1    1    1    1    1    4

 [4,]    1    1    1    1    1    1    1    3

 [5,]    1    1    1    1    1    1    1    4

 [6,]    1    1    1    1    1    1    1    4

 [7,]    1    1    1    1    1    1    1    4

 [8,]    1    1    1    1    1    1    1    4

 [9,]    1    1    1    1    1    1    1    4

[10,]    1    1    1    1    1    1    1    4

[11,]    1    1    1    1    1    1    1    4

Мне нужна пустая переменная того же формата, что и эта переменная. Моя функция выполнит некоторые вычисления и будет помещена в то же место, что и эта переменная. Однако в новой переменной у меня не будет 8-го столбца.

Answer 1

Скопируйте ваши данные

df = list(matrix(rep(1, 88), ncol = 8), matrix(rep(1, 88), ncol = 8))

Удалить 8-й столбец из всех подсписков

new_df = lapply(df, function(x) x[,-8])

Удалить 8-й столбец из всех подсписков и заменить все 1 на NA

new_df = lapply(df, function(x) replace(x[,-8], x[,-8] == 1, NA))