意外 return 应用 - 列表矩阵？

Question

我有一个函数可以更新数据框中的一些值。该函数获取要更改的数据的行索引、数据框以及变量。此函数由 sapply 调用，用于更改所有索引。我希望矩阵作为 sapply 的 return，我希望能够通过索引更改我的基本数据框。不幸的是，我无法提供真实数据，但以下虚拟数据复制了该问题。我不明白为什么它不起作用。也许原因是，由 sapply 编辑的矩阵 return 不是 "normal" 矩阵整数但某种列表矩阵？

虚拟数据框：

data_test = data.frame(matrix(1:100, 10, 10))
names(data_test) = paste0("Var", 1:10)

# Var1 Var2 Var3 Var4 Var5 Var6 Var7 Var8 Var9 Var10
# 1     1   11   21   31   41   51   61   71   81    91
# 2     2   12   22   32   42   52   62   72   82    92
# 3     3   13   23   33   43   53   63   73   83    93
# 4     4   14   24   34   44   54   64   74   84    94
# 5     5   15   25   35   45   55   65   75   85    95
# 6     6   16   26   36   46   56   66   76   86    96
# 7     7   17   27   37   47   57   67   77   87    97
# 8     8   18   28   38   48   58   68   78   88    98
# 9     9   19   29   39   49   59   69   79   89    99
# 10   10   20   30   40   50   60   70   80   90   100

"normal" 矩阵用索引替换 data_test 的一些值：

data_replace = matrix(1:16, 4,4)

# [,1] [,2] [,3] [,4]
# [1,]    1    5    9   13
# [2,]    2    6   10   14
# [3,]    3    7   11   15
# [4,]    4    8   12   16

效果不错：

data_test[c("Var3", "Var4", "Var5", "Var6")][4:7,] = data_replace

# Var1 Var2 Var3 Var4 Var5 Var6 Var7 Var8 Var9 Var10
# 1     1   11   21   31   41   51   61   71   81    91
# 2     2   12   22   32   42   52   62   72   82    92
# 3     3   13   23   33   43   53   63   73   83    93
# 4     4   14    1    5    9   13   64   74   84    94
# 5     5   15    2    6   10   14   65   75   85    95
# 6     6   16    3    7   11   15   66   76   86    96
# 7     7   17    4    8   12   16   67   77   87    97
# 8     8   18   28   38   48   58   68   78   88    98
# 9     9   19   29   39   49   59   69   79   89    99
# 10   10   20   30   40   50   60   70   80   90   100

sapply 调用的虚拟函数：

# just a test-function to be called by sapply. It multiplies all the temp_vars from temp_data in rows temp_index by 2
function_test = function(temp_index, temp_data = data_test, temp_vars = c("Var3", "Var4", "Var5", "Var6"))
{
  return(temp_data[temp_vars][temp_index,] * 2)
}

在某些行索引上使用 sapply 的函数调用

#function call 
temp_results = t(sapply(4:7, function_test))
data_test[c("Var3", "Var4", "Var5", "Var6")][4:7,]

# Var3 Var4 Var5 Var6
# 4    1    5    9   13
# 5    2    6   10   14
# 6    3    7   11   15
# 7    4    8   12   16

尝试使用索引替换 data_test 的一些值（就像以前一样）不幸的是在这里不起作用。它给了我以下错误：

data_test[c("Var3", "Var4", "Var5", "Var6")][4:7,] = temp_results

# Warning message:
# In `[<-.data.frame`(`*tmp*`, 4:7, , value = list(Var3 = c(21, 22,  :
#   provided 16 variables to replace 4 variables

关于使用数据的一些信息。它们的大小应该相同。

dim(data_test[c("Var3", "Var4", "Var5", "Var6")][4:7,])
# 4 4
dim(temp_results)
# 4 4
dim(data_replace)
# 4 4

class(temp_results)
# matrix
class(data_replace)
# matrix

这对我来说很奇怪。我不明白那是什么意思。

apply(temp_results, 2, class)
# Var3   Var4   Var5   Var6 
# "list" "list" "list" "list" 
apply(data_replace, 2, class)
# "integer" "integer" "integer" "integer"

我可以通过使用 temp_results = lapply 而不是 temp_results = sapply 来解决这个问题，然后使用 matrix(unlist(temp_results), 4, byrow = T) 函数，但我仍然想了解这里发生了什么return 的 sapply.

任何输入都会很棒！提前致谢

Answer 1

将函数 return 的值设为矩阵：

function_test <- function(temp_index, temp_data = data_test, temp_vars = c("Var3", "Var4", "Var5", "Var6"))
{
  return(as.matrix(temp_data[temp_vars][temp_index,] * 2))
}

应该是按照你想要的方式工作。

意外 return 应用 - 列表矩阵？

Unexpected return of sapply - matrix of lists?

r

matrix

sapply