如何同时从R中的姓和名的前三个字符开始子串化？

Question

我想对字符向量的前三个字母进行子串化。当我使用命令substr时，我只会得到姓氏的结果，有没有办法捕获姓氏？

df <- c("Jones, Mary", "Doe, John", "Black, Kyle")
substr(df, 1, 3)

这是我想要达到的预期结果：

Jon Mar, Doe Joh, Bla Kyl

有什么建议吗？