有没有一个R函数可以提取一列中的前四个字符并将它们放入新列中？

# 创建一个包含多个字符串的向量
strings <- c("apple", "banana", "cherry", "date")

# 创建一个新列，用于存放提取的前四个字符
new_column <- substr(strings, 1, 4)

# 将新列添加到数据框中
data_frame <- data.frame(strings, new_column)

# 打印结果
print(data_frame)

  strings new_column
1   apple       appl
2  banana       bana
3  cherry       cher
4    date       date