dplyr值摘要返回NA

Question

I am trying to summarize the dataframe below, but I keep getting NA instead of the mean I was expecting. Can someone explain why this is happening?

fbobjective<-data.frame(
  Participant=c("a","c","c"),
  "Part.2.or.3."=c(3,2,2),
  No_Photos=c(10,12,40)
)
fb_obj_v2<-fbobjective
#unique participant id's
fb_obj_v2$Participant<-paste0(fb_obj_v2$Participant,fb_obj_v2$"Part.2.or.3.")
fb_obj_v2$"Part.2.or.3."<-NULL
dim(fb_obj_v2)
#convert numbers to numbers or NA. bind Participant names back to this
numeric_results<-as.matrix(sapply(fb_obj_v2, as.numeric))
numeric_results<-as.data.frame(numeric_results)
numeric_results[,1]<-fb_obj_v2$Participant
numeric_results<-as.data.frame(numeric_results)
View(numeric_results)
#return data
res<-numeric_results %>% group_by(Participant) %>% summarise(mean("No_Photos"))
View(res)

Answer 1

We don't need to quote the No_Photos

 numeric_results %>% 
        group_by(Participant) %>% 
        summarise( Mean = mean(No_Photos, na.rm=TRUE))
 #  Participant  Mean
 #        (chr) (dbl)
 #1          a3    10
 #2          c2    26

NOTE: I used na.rm=TRUE to remove NA values if present.