错误：无法生成函数的结果 result1必须将/行上移一行，如nrow（.）/nrow（.）中所示，而不是拆分为两行。欢迎使用Stackoverflow。如果您可以在问题中包含一些示例数据和预期输出，这将帮助其他人找到解决方案。 result1 <-

错误：无法生成函数的结果

---

result1必须将
/
行上移一行，如
nrow（.）/nrow（.）
中所示，而不是拆分为两行。欢迎使用Stackoverflow。如果您可以在问题中包含一些示例数据和预期输出，这将帮助其他人找到解决方案。
result1 <- function(a){
b <- nrow(celld[celld$CellType == "B" & celld$Donor =="a",])/nrow(celld[celld$Donor == "a",])
b
}

result1(F22)