如何删除R中点后的字符？

我有一个类似这样的数据集

df_A <- tribble(
  ~product_name,   ~id,      
  "xyz.com",         1,  
  "bkrk.de",         4,
)

df_A另一种方法：

library(dplyr)
library(stringr)
df_A %>% mutate(product_name = str_remove(product_name, '\\..*'))
# A tibble: 2 x 2
  product_name    id
  <chr>        <dbl>
1 xyz              1
2 bkrk             4

库（dplyr）
图书馆（stringr）
df_A%>%突变（产品名称=str_移除（产品名称，\\\..*））
#一个tibble:2x2
产品名称id
1 xyz 1
2 bkrk 4
另一种方法：

library(dplyr)
library(stringr)
df_A %>% mutate(product_name = str_remove(product_name, '\\..*'))
# A tibble: 2 x 2
  product_name    id
  <chr>        <dbl>
1 xyz              1
2 bkrk             4

库（dplyr）
图书馆（stringr）
df_A%>%突变（产品名称=str_移除（产品名称，\\\..*））
#一个tibble:2x2
产品名称id
1 xyz 1
2 bkrk 4

library(dplyr)
library(stringr)
df_A %>% mutate(product_name = str_remove(product_name, '\\..*'))
# A tibble: 2 x 2
  product_name    id
  <chr>        <dbl>
1 xyz              1
2 bkrk             4