谁看谁憨批
library(nycflights13)
flights_airlines<-flights%>%
left_join(airlines,by="carrier")
flights_planes<-filter(flights_airlines,str_detect(name,"Inc.$")==TRUE)
prop_vowels<-str_count(flights_planes$name,"[aeiouAEIOU]")/str_length(flights_planes$name)
flights_planes$prop_vowels<-prop_vowels
flights_planes<-mutate(flights_planes,vowel_gr=ifelse(prop_vowels>=0.45, "1", NA),
vowel_gr=ifelse(prop_vowels<0.45,"2", vowel_gr))
