我的代码没有给出预期值
| Column A | Red | Green | Blue |
|---|---|---|---|
| rgb(111,222,334) | 111 | 222 | 334 |
| rgb(11,22,3) | 11 | 22 | 3 |
A栏分为3个新栏
(df_data <- df3|>
separate_wider_regex(
cols = Column A,
patterns = c(red = "rgb\\((\\d+),\\s*\\d+,\\s*\\d+\\)",
green = "rgb\\(\\d+,\\s*(\\d+),\\s*\\d+\\)",
blue = "rgb\\(\\d+,\\s*\\d+,\\s*(\\d+)\\)")
生效日期:
df_data <- data.frame(ColumnA = c("rgb(111,222,334)", "rgb(11,22,3)"))
这是一个strsplit的基本R解决方案.
df_data <- data.frame(ColumnA = c("rgb(111,222,334)", "rgb(11,22,3)"))
strsplit(df_data$ColumnA, "[[:alpha:]]+|\\(|\\)|,") |>
lapply(\(x) {
ok <- (x |> trimws() |> nchar()) > 0L
x[ok] |> as.numeric()
}) |>
do.call(rbind.data.frame, args = _) |>
setNames(c("Red", "Green", "Blue"))
#> Red Green Blue
#> 1 111 222 334
#> 2 11 22 3
创建于2023-11-07年第reprex v2.0.2页