我正在尝试从每一行的唯一代码中提取最后一个数字。我不知道如何仅使用tidyverse来完成这项任务
这是一个例子:
structure(list(`CCGCode` = c("E38000232", "E38000237",
"E38000004", "E38000240", "E38000006", "E38000007"), Total = c(17,
27, 27, 43, 30, 42)), row.names = c(NA, -6L), class = c("tbl_df",
"tbl", "data.frame"))
通过在上面的数据框中发现CCGCode,您将在每一行中看到代码。我想用ccg创建一个仅占用该代码后三位数字的新列。例如,我们E38000006
在CCGCode中,仅要将ccg插入新列,006
因为确实是最后一位数字。这该怎么做。
这有几种方法可以产生最终结果略有不同的结果,希望其中一种方法符合您的需求。
方法1
df %>%
separate(CCGCode, c("CCGCode", "Last_3"), sep = -3)
方法2
str_sub(df$CCGCode, -3) %>%
as.tibble() %>%
bind_cols(df) %>%
select(CCGCode, "Last_3" = value, Total)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句