在R中，矢量化是一种通过一次操作对整个向量进行计算的方式，可以提高代码的效率和简洁性。保持在R中矢量化应用函数的相关数字有以下几种解决方法：

1. 使用apply函数族：apply函数族包括apply、lapply、sapply和vapply等函数。这些函数可以对矩阵、数组、列表和向量等数据结构进行函数的逐元素或逐列应用。例如，使用lapply函数对一个向量应用一个函数：

vec <- c(1, 2, 3, 4, 5)
result <- lapply(vec, function(x) x**2)

2. 使用向量化的函数：R中很多函数都支持向量化操作，即可以直接对整个向量进行计算。例如，使用sqrt函数对一个向量进行开方运算：

vec <- c(1, 2, 3, 4, 5)
result <- sqrt(vec)

3. 使用矢量化的运算符：R中的运算符（如+、-、*、/等）也支持矢量化操作。例如，使用+运算符对两个向量进行相加：

vec1 <- c(1, 2, 3, 4, 5)
vec2 <- c(6, 7, 8, 9, 10)
result <- vec1 + vec2

4. 使用ifelse函数进行条件判断：ifelse函数可以对一个向量进行条件判断，并根据条件返回相应的值。例如，使用ifelse函数判断一个向量中的元素是否大于5：

vec <- c(1, 2, 3, 4, 5)
result <- ifelse(vec > 5, "大于5", "小于等于5")

这些方法可以帮助您在R中保持矢量化应用函数的相关数字，提高代码的效率和简洁性。