使用基本R将data.frame data.table中的字符串拆分为两列

# 创建一个包含字符串的data.frame
df <- data.frame(strings = c("Hello World", "Foo Bar", "Lorem Ipsum"))

# 使用apply()函数拆分字符串列
df <- cbind(df, t(apply(df, 1, function(x) strsplit(as.character(x), " ")[[1]])))

# 重命名拆分后的列
colnames(df)[2:3] <- c("Column1", "Column2")

# 打印结果
print(df)

     strings Column1 Column2
1 Hello World   Hello   World
2    Foo Bar     Foo     Bar
3 Lorem Ipsum   Lorem   Ipsum

# 加载data.table库
library(data.table)

# 创建一个包含字符串的data.table
dt <- data.table(strings = c("Hello World", "Foo Bar", "Lorem Ipsum"))

# 使用:=运算符拆分字符串列并添加新列
dt[, c("Column1", "Column2") := tstrsplit(strings, " ")]

# 打印结果
print(dt)