如何使用R根据长格式数据中列的第一个零的位置创建一个新的分类变量？

# 导入必要的包
library(dplyr)

# 创建示例数据
data <- data.frame(ID = c(1, 2, 3),
                   Value = c("100001", "200010", "300000"))

# 创建新的分类变量
data <- data %>%
  mutate(NewCategory = ifelse(grepl("0", Value), 
                              substr(Value, 1, regexpr("0", Value) - 1), 
                              "NoZero"))

# 输出结果
print(data)