删除文本中标点符号之外的所有字符

Question

我有一个数据集，其中包含以下内容:

ID    Type                 Count
1     **Radisson**             8
2     **Renaissance**          9
3     **Hilton** New York Only 8
4     **Radisson** East Cost   8

我想获得一个看起来像这样的数据集

ID    Type                 Count
1     **Radisson**             8
2     **Renaissance**          9
3     **Hilton**               8
4     **Radisson**             8

或者如果可能的话甚至没有*。

有什么解决办法吗？

Answer 1

你可以从一开始就把所有不在星星之间的东西都去掉。

df <- data.frame(Type = c("**Radisson**", "**Renaissance**", "**Hilton** New York Only",
                          "**Radisson** East Cost"),
                 Count = c(8, 9, 8, 8))

gsub("^(\\*{2}.*\\*{2}).*", "\\1", df$Type, perl = TRUE)

[1] "**Radisson**"    "**Renaissance**" "**Hilton**"      "**Radisson**" 

所以...

df$Type <- gsub("^(\\*{2}.*\\*{2}).*", "\\1", df$Type, perl = TRUE)
df

             Type Count
1    **Radisson**     8
2 **Renaissance**     9
3      **Hilton**     8
4    **Radisson**     8