# ✅ 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`关键字来创建自定义函数。以下是一个简单的示例： ```r # 定义一个名为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语言中，自定义函数是一种非常有用的工具，可以帮助我们封装重复的代码段，提高代码的可读性和可维护性。下面是一个简单的自定义函数示例，用于计算两个数字的和： ```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()`等函数来实现。 希望这些信息对你有所帮助！