如何从 R 中的计算中排除非数字值

Question

这是我的示例数据集的一个片段。我想添加一个包含列值总和的新行，以及一个包含行值总和的新列，但不知道如何排除非数字单元格。 有没有一种方法可以创建一个从计算中排除非数字单元格的函数？

我尝试了以下代码：

# Load the data into a matrix
matrix_data <- as.matrix(data2)

# Calculate the column totals
col_totals <- apply(matrix_data, 2, sum, na.rm = TRUE)

matrix_data <- as.matrix(data2)
matrix_data <- apply(matrix_data, 2, as.numeric)
col_totals <- apply(matrix_data, 2, sum, na.rm = TRUE)

# Calculate the column totals
col_totals <- apply(matrix_data, 2, sum, na.rm = TRUE)

# Add the column totals as a row to the matrix
matrix_data <- rbind(matrix_data, col_totals)

# Calculate the row totals
row_totals <- apply(matrix_data, 1, sum, na.rm = TRUE)

# Add the row totals as a column to the matrix
matrix_data <- cbind(matrix_data, row_totals)

# Add row and column names to the matrix
colnames(matrix_data) <- c(colnames(data), "Total Rows")
rownames(matrix_data) <- c(rownames(data), "Total Columns")

# View the final matrix
matrix_data

这行得通，但是它将我所有的非数字值都更改为“NA”，我需要它们保持不变