code ds

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. shooting<-shooting %>% select(1:13) %>% mutate(Date=mdy(Date),year=year(Date))shooting$Gender<-if_else(shooting$Gender=="M","Male",shooting$Gender)shooting$Race<-if_else(str_detect(shooting$Race,"Black American or African American"),"Black",shooting$Race)shooting$Race<-if_else(str_detect(shooting$Race,"White American or European American"),"White",shooting$Race)shooting$Race<-if_else(str_detect(shooting$Race,"Asian American"),"Asian",shooting$Race)shooting$Race<-if_else(str_detect(shooting$Race,"Some other race"),"Other",shooting$Race)shooting$Race<-if_else(str_detect(shooting$Race,"Native American or Alaska Native"),"Native American",shooting$Race)shooting$yearcut<-cut(shooting$year,breaks = 10)shooting[align=left][color=#595757][backcolor=#ffffff][/backcolor][/color][/align]Mental Health Issues`<-if_else(str_detect(shooting[align=left][color=#595757][backcolor=#ffffff][/backcolor][/color][/align]Mental Health Issues`,"Un"),"Unknown",shooting[align=left][color=#595757][backcolor=#ffffff][/backcolor][/color][/align]Mental Health Issues`)shooting$Race<-str_to_upper(shooting$Race)shooting[align=left][color=#595757][backcolor=#ffffff][/backcolor][/color][/align]Mental Health Issues`<-str_to_upper(shooting[align=left][color=#595757][backcolor=#ffffff][/backcolor][/color][/align]Mental Health Issues`)#将location分成city和state两个变量shooting$city<-sapply(shooting$Location,function(x){  return(unlist(str_split(x,","))[1 %>% str_trim())})shooting$state<-sapply(shooting$Location,function(x){  return(unlist(str_split(x,","))[2 %>% str_trim())})

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：基础入门 零基础 大数据 installed hadoop安装 JAVA程序 在线答疑 软件工程 计算机 统计学