Извлечение первой буквы из определенного вектора в наборе данных в R

Question

Я работаю в R с набором данных babyname. Набор данных содержит столбец с именем: babies1900$name. Я знаю, как извлечь последнюю букву из каждой строки в имени вектора.

last.letter.1900 <- substr(babies1900$name, nchar(babies1900$name), 
              nchar(babies1900$name)) 

Мне было интересно сделать то же самое для первого письма для набора данных из другого года. Это то, что я сделал, но мне интересно, есть ли более «элегантный» способ сделать это.

x = babies2009$name 

x = nchar(x) 

y= x + 1 

z = y -x 

z = 
[1] 1 

babies.test = substr(babies2009$name, z, z) 

Это полностью работает, но есть ли другой способ?

Answer 1

я не мог бы получить этот вопрос, но:

substr(babies2009$name, 1, 1)