要编写自己的tidyselect函数，可以按照以下步骤进行：

1. 确定函数的输入和输出：首先确定函数的输入参数和预期的输出。tidyselect函数通常接受一个数据框作为输入，并返回选择的列的名称或索引。

2. 了解tidyselect的基本原理：tidyselect包是用于选择列的R包，它提供了一些函数和操作符，用于根据列名、位置或模式进行选择。了解tidyselect的基本原理和用法，可以帮助你编写自己的tidyselect函数。

3. 定义函数：根据函数的输入和输出，定义一个自己的tidyselect函数。可以使用R语言的函数定义语法来定义函数。

4. 实现函数逻辑：在函数体中实现选择列的逻辑。可以使用tidyselect包提供的函数和操作符来实现选择逻辑。

5. 编写代码示例：为了说明自己的tidyselect函数的用法和效果，编写一些代码示例，演示函数的使用方法。

下面是一个简单的例子，展示了如何编写一个自己的tidyselect函数：

library(tidyselect)

my_select <- function(df, ...) {
  selected_cols <- tidyselect::eval_select(expr(...), data = df)
  return(selected_cols)
}

# 示例用法
data <- data.frame(a = 1:5, b = 6:10, c = 11:15)

# 选择列a和b
my_select(data, a, b)
# 输出: [1] "a" "b"

# 选择第2列
my_select(data, 2)
# 输出: [1] "b"

# 选择以字母"c"开头的列
my_select(data, starts_with("c"))
# 输出: [1] "c"

上述示例中，my_select函数接受一个数据框和选择语句作为参数，并使用tidyselect::eval_select函数来实现选择逻辑。可以根据需要扩展和修改my_select函数，以满足具体的选择需求。