✅ R语言自定义函数超简单教程！手把手教你写🔥

🌟基本结构是这样滴👇

r 函数名 <- function(参数列表) { # 这里是执行的代码块 return(结果) # 可选的返回值 }

🌰举个栗子🥜：加法函数

r add_numbers <- function(a, b) { sum <- a + b # 计算两数之和 print(paste("结果是:", sum)) # 打印友好提示 return(sum) # 返还最终数值 }

调用方式👉🏻 add_numbers(3,5) # 输出"结果是:8"并返回8

💡进阶技巧大放送✨

1️⃣ 默认参数值（超实用！） r greet <- function(name="访客大人", times=1) { for(i in 1:times){ cat("欢迎光临，", name, "!\n") } }

只写greet()会用默认值 → 自动问候"访客大人"1次

2️⃣ 多行返回神器*（批量出结果必备） r stats_summary <- function(x) { c(mean=mean(x), median=median(x), max=max(x)) }

输入数值向量就能一次性get所有统计量啦！

3️⃣ 作用域小心机⛔️ 记得把内部变量都用<<-赋值才能保存到全局环境哦～普通箭头<-只在函数内有效哒！

4️⃣ 文档注释规范📝（别人看得懂才是真的好代码） r #' 根据半径计算圆面积 #' @param r 数值型半径 >0 #' @return 面积值 circle_area <- function(r) {pi*r^2}

⚠️常见翻车现场🚨

▫️忘记加括号导致立即执行而不是定义函数❌
▫️参数名重复引发诡异bug👻
▫️该分号时分号！否则可能连着下一行一起执行…🤦🏻‍♀️

🎉实战测试题🔍

试着写出这个功能的函数：给定姓名和年龄，返回格式化字符串如“张三今年25岁啦！” （答案示例在评论区💬）

在R语言中，你可以使用function关键字来创建自定义函数。以下是一个简单的示例：

# 定义一个名为my_function的自定义函数
my_function <- function(x, y) {
  # 计算两个数的和
  sum <- x + y
  # 返回结果
  return(sum)
}

# 调用自定义函数并传入参数
result <- my_function(3, 5)
print(result)  # 输出结果为8

在这个示例中，我们定义了一个名为my_function的函数，它接受两个参数x和y，然后计算它们的和并返回结果。要调用这个函数，只需使用函数名后跟括号，并在括号内提供所需的参数。

在R语言中，自定义函数是一种非常有用的工具，可以帮助我们封装重复的代码段，提高代码的可读性和可维护性。下面是一个简单的自定义函数示例，用于计算两个数字的和：

# 自定义函数：计算两个数字的和
add_numbers <- function(x, y) {
  sum <- x + y
  return(sum)
}

这个函数接受两个参数x和y，将它们相加，并将结果存储在变量sum中。然后，函数返回sum的值。

为了优化这个函数，我们可以考虑以下几点：

1. 减少输入验证：在函数内部检查输入参数的类型和值，以确保它们符合预期。这可以通过使用is.numeric()函数来实现。
2. 使用内置函数：如果可能的话，尽量使用R语言内置的函数来执行计算，因为这些函数通常已经经过优化，而且具有更好的性能。
3. 避免全局变量：尽量不要在函数内部使用全局变量，因为这可能会导致意外的行为。如果需要访问全局变量，最好通过参数传递它们。
4. 使用向量化操作：如果需要对大型数据集进行操作，可以考虑使用向量化操作来提高效率。这可以通过使用apply()、lapply()或sapply()等函数来实现。

希望这些信息对你有所帮助！