library(plyr)
ratingdat <- ddply(imdbdf, c("actor_1_name"), summarise,
                   M = mean(imdb_score, na.rm = TRUE),
                   SE = sd(imdb_score)/sqrt(length(imdb_score)),
                   N = length(imdb_score))