R - разделение строки на один символ после пробела

Вы можете попробовать следующий подход с использованием регулярных выражений, используя sub. Он создает группу захвата и извлекает ее из строки.

Предполагая, что ваши данные называются x:

x <- read.table(header=TRUE,text="Postcodes
                'AB4 6JK'
                'AR14 8UI'
                'D4 9IK'
                'CB3 9EU'")

Подход может быть таким:

sub("^(.*\\s.).*", "\\1", x$Postcodes)
# [1] "AB4 6"  "AR14 8" "D4 9"   "CB3 9" 

Шаблон таков: начало строки (^), за которым следуют любые символы (.*), за которым следует пробел (\\s) и один дополнительный символ (.) - вместе они составляют группу захвата. Кроме того, все, что следует далее, не входит в группу захвата.

Обратите внимание, что если у вас есть строки с несколькими пробелами, он будет делать следующее:

sub("^(.*\\s.).*", "\\1", "abc def 981")
#[1] "abc def 9"