删除指定字符第一次出现前的字符，列数据框，R

# 创建一个包含字符串的列数据框
df <- data.frame(column = c("abc123", "def456", "ghi789"))

# 定义一个函数来删除指定字符第一次出现前的字符
delete_before <- function(string, pattern) {
  substr(string, match(pattern, string) + nchar(pattern), nchar(string))
}

# 应用函数到数据框的列中
df$column <- sapply(df$column, delete_before, pattern = "1")

# 输出结果
print(df)

  column
1     3
2  456
3  789