library(stringr)
x <- c("fair*", "beaut*")
str_replace(x, "(.*)\\*$", "^\\1")
sub("(.*)\\*$", "^\\1", x)