在data.table列中拆分文本字符串
我有一个脚本,可将CSV文件中的数据读入a data.table,然后将一列中的文本拆分为几个新列。我目前正在使用lapply和strsplit函数来执行此操作。这是一个例子: library("data.table") df = data.table(PREFIX = c("A_B","A_C","A_D","B_A","B_C","B_D"), VALUE = 1:6) dt = as.data.table(df) # split PREFIX into new columns dt$PX = as.character(lapply(strsplit(as.character(dt$PREFIX), split="_"), "[", 1)) dt$PY = as.character(lapply(strsplit(as.character(dt$PREFIX), split="_"), "[", 2)) dt # PREFIX VALUE PX PY # 1: A_B 1 A B # 2: A_C 2 A C …