R语言代码编写 提取大写字母后的数字 df<-tibble(x=c("12W34", "AB2C46", "B217C","akTs6df","21WD4"))

您好！根据您的要求，可以使用正则表达式提取大写字母后的数字，代码如下：

library(tibble)
df <- tibble(x = c("12W34", "AB2C46", "B217C", "akTs6df", "21WD4"))

df$number <- gsub("^.*[A-Z](\\d+).*", "\\1", df$x)

解释一下代码：

1. 首先，我们使用了 `gsub` 函数，它可以帮助我们在一个字符串中查找和替换文本。
2. 接着，我们使用了正则表达式 `^.*[A-Z](\\d+).*`，这个正则表达式可以匹配一个字符串中大写字母后的数字。
3. 然后，我们使用 `\\1` 表示替换成正则表达式中第一个括号匹配的内容，也就是提取的数字。
4. 最后，我们将提取到的数字存储在一个新的列 `number` 中。

希望这个代码可以帮助到您！