, , , , )
, (, , ), .
[[^([A-Z] # any character of: '[', '^', '(', '[', 'A' to 'Z'
, , , , escape \w , .
, .
> df[,-1] <- str_replace_all(as.matrix(df[,-1]), '^[A-Z]\\w+', 'HOME')
stringr, , sub, .
> df[,-1] <- sub('^[A-Z]\\w+', 'HOME', as.matrix(df[,-1]))
:
> m <- as.matrix(df[-1])
> m[substr(m,0,1) != '@'] <- 'HOME'
> cbind(df[1], m)