library(stringr)
t_chart <- 'X201A61NA231.1W'
str_replace_all(t_chart, '[a-zA-Z]+|\\.1','')