从R中的mobile_number_列中删除91

例如：手机号码列包含

read.table(header=T,text=' Mobile_Number_Column

    919177289917
    917728991746
    917728991748
    919126380348

') 

现在我想从

Mobile\u Number\u列中删除91

预期结果：

Mobile_Number_Column

    9177289917
    7728991746
    7728991748
    9126380348

这可以通过正则表达式实现。由于您是作为data.frame的一部分读取数字，因此可以在
子调用中利用字符串匹配器的
^
开头加上91的文字数字。因为您只想匹配一次，所以gsub中没有点

df =  read.table(header=T,text=' Mobile_Number_Column

    919177289917
    917728991746
    917728991748
    919126380348

') 

df$Mobile_Number_Column = sub("^91","",as.character(df$Mobile_Number_Column))
df 
#>   Mobile_Number_Column
#> 1           9177289917
#> 2           7728991746
#> 3           7728991748
#> 4           9126380348

这可以通过正则表达式实现。由于您是作为data.frame的一部分读取数字，因此可以在
子调用中利用字符串匹配器的
^
开头加上91的文字数字。因为您只想匹配一次，所以gsub中没有点

df =  read.table(header=T,text=' Mobile_Number_Column

    919177289917
    917728991746
    917728991748
    919126380348

') 

df$Mobile_Number_Column = sub("^91","",as.character(df$Mobile_Number_Column))
df 
#>   Mobile_Number_Column
#> 1           9177289917
#> 2           7728991746
#> 3           7728991748
#> 4           9126380348

这使用了
stringr
和
dplyr
包：

library(tidyverse)

data <- tibble(numbers = c(
    919177289917,
    917728991746,
    917728991748,
    919126380348)
    )

data_2 <- data %>%
  mutate(numbers = str_sub(numbers, start = 3L, end = -1L))

库（tidyverse）
数据这使用
stringr
和
dplyr
包：

library(tidyverse)

data <- tibble(numbers = c(
    919177289917,
    917728991746,
    917728991748,
    919126380348)
    )

data_2 <- data %>%
  mutate(numbers = str_sub(numbers, start = 3L, end = -1L))

库（tidyverse）
数据
gsub（\\s91），“手机号码”列919177289917 917728991746 917728991748 9126380348”）
df$Mobile\u号码列
gsub（\\s91），“手机号码”列91919177289917 917728991746 917728991748 9126380348”）
df$Mobile\u号码列