r - 按字符数拆分列

Question

This question already has answers here:

Split character string multiple times every two characters

(2个答案)


4年前关闭。




我在数据表中有一列日期用6位数字输入，例如: 201401, 201402, 201403, 201412, etc.，其中前4位是年份，后两位是月份。

我正在尝试将该列分为两列，一列称为“年”，另一列称为“月”。一直在与 strsplit()纠缠在一起，但无法弄清楚如何使它执行字符数而不是字符串模式，即在第4位和第5位中间进行拆分。

最佳答案

无需使用任何外部程序包，我们可以使用substr

transform(df1, Year = substr(dates, 1, 4), Month = substr(dates, 5, 6))
#    dates Year Month
#1  201401 2014    01
#2  201402 2014    02
#3  201403 2014    03
#4  201412 2014    12

我们可以选择删除或保留该列。

或使用 sub

cbind(df1, read.csv(text=sub('(.{4})(.{2})', "\\1,\\2", df1$dates), header=FALSE))

或使用一些包装解决方案

library(tidyr)
extract(df1, dates, into = c("Year", "Month"), "(.{4})(.{2})", remove=FALSE)

或与data.table

library(data.table)
setDT(df1)[, tstrsplit(dates, "(?<=.{4})", perl = TRUE)]

关于r - 按字符数拆分列，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38252823/

上一篇：R:如何将 rev() 应用于特定行

下一篇：azure - 微软 azure : VM auto start/shutdown

Answer 1

无需使用任何外部程序包，我们可以使用substr

transform(df1, Year = substr(dates, 1, 4), Month = substr(dates, 5, 6))
#    dates Year Month
#1  201401 2014    01
#2  201402 2014    02
#3  201403 2014    03
#4  201412 2014    12

我们可以选择删除或保留该列。

或使用 sub

cbind(df1, read.csv(text=sub('(.{4})(.{2})', "\\1,\\2", df1$dates), header=FALSE))

或使用一些包装解决方案

library(tidyr)
extract(df1, dates, into = c("Year", "Month"), "(.{4})(.{2})", remove=FALSE)

或与data.table

library(data.table)
setDT(df1)[, tstrsplit(dates, "(?<=.{4})", perl = TRUE)]