Может быть, я не правильно задал вопрос.Но я смог заставить мой код работать так, отправив ответ:
ggplot(newfile, aes(Date, TotalReturn, color = Investor)) +
geom_line(aes(size = 3)) +
geom_point(aes(size = 6,alpha = 0.5)) +
geom_text(aes(label=paste0(TotalReturn,"%")),hjust= -0.5, vjust=0,size = 6)+
facet_grid(rows = vars(Investor)) +
# theme(legend.position = 'none') +
labs(title = 'Total Return, Quarter: {frame_along}') +
theme(axis.title=element_text(face="bold.italic",
size="12", color="brown"), legend.position="none") +
transition_reveal(along =Date) +
ease_aes('linear')