R语言编程问题见附件

实习生小白请教，数据和问题都放在电子表格里，程序发邮箱646817474@qq.com

1. library(tidyverse)
   
2. library(stringr)
   
3. dat <- read.csv("***.csv", header = TRUE, stringsAsFactors = FALSE)
   
4. # 实践中，请自己编写一个人名和组名对应的dataframe
   
5. # 比如names_teams
   
6. # 该df只包含两列sales和team，一一对应，不要重复
   
7. dat <- dat %>%
   
8.   left_join(names_teams, by = "sales") %>%
   
9.   mutate(dq = ifelse(str_detect(destination, pattern = "美国"), "美洲", "欧洲"))
   
10. gr1 <- dat %>%
    
11.   group_by(team, dq) %>%
    
12.   summarise(sum_weight = sum(weight))
    
13. gr2 <- dat %>%
    
14.   group_by(team) %>%
    
15.   summarise(sum_weight = sum(weight))
    
16. td <- dat %>%
    
17.   group_by(sales) %>%
    
18.   summarise(sum_weight = sum(weight))

复制代码

sales变量实际是人名，是没有规律的字符哦。

sales变量实际是人名，是没有规律的字符哦。

cheetahfly 发表于 2017-7-28 14:37

# 实践中，请自己编写一个人名和组名对应的dataframe
# 比如names_teams
# 该df只包含两列sales和team，一一对应，不要重复

这里我不太明白呢，team这个变量本身是没有的也是麻烦点所在，如果要自己创建一个人名和组名对应的dataframe，像这样？
dat$team[dat$sales=="A1"]=1
dat$team[dat$sales=="A2"]=1
dat$team[dat$sales=="A3"]=1
dat$team[dat$sales=="B1"]=2
dat$team[dat$sales=="B2"]=2
dat$team[dat$sales=="B3"]=2
dat$team[dat$sales=="B4"]=2
dat$team[dat$sales=="C1"]=3
dat$team[dat$sales=="C2"]=3
dat$team[dat$sales=="C3"]=3
dat$team[dat$sales=="D1"]=4
dat$team[dat$sales=="D2"]=4
dat$team[dat$sales=="D3"]=4
dat$team[dat$sales=="E1"]=5
dat$team[dat$sales=="E2"]=5
dat$team[dat$sales=="E3"]=5
dat$team[dat$sales=="F1"]=6
dat$team[dat$sales=="F2"]=6
dat$team[dat$sales=="F3"]=6
dat$team[dat$sales=="F4"]=6
dat$team=factor(dat$team)
names_teams=data.frame(sales=dat$sales,team=dat$team)
这是我精简过的数据：35条观测，6个team，每个team有3或4个sales。
试想一下如果有上万条的观测，20个team，每team有10个sales，按我的理解，创建自己创建一个人名和组名对应的dataframe就不现实了。

cheetahfly 发表于 2017-7-28 14:37

#之前的回复代码乱了

1. dat$team[dat$sales=="A1"]=1
   
2. dat$team[dat$sales=="A2"]=1
   
3. dat$team[dat$sales=="A3"]=1
   
4. dat$team[dat$sales=="B1"]=2
   
5. dat$team[dat$sales=="B2"]=2
   
6. dat$team[dat$sales=="B3"]=2
   
7. dat$team[dat$sales=="B4"]=2
   
8. dat$team[dat$sales=="C1"]=3
   
9. dat$team[dat$sales=="C2"]=3
   
10. dat$team[dat$sales=="C3"]=3
    
11. dat$team[dat$sales=="D1"]=4
    
12. dat$team[dat$sales=="D2"]=4
    
13. dat$team[dat$sales=="D3"]=4
    
14. dat$team[dat$sales=="E1"]=5
    
15. dat$team[dat$sales=="E2"]=5
    
16. dat$team[dat$sales=="E3"]=5
    
17. dat$team[dat$sales=="F1"]=6
    
18. dat$team[dat$sales=="F2"]=6
    
19. dat$team[dat$sales=="F3"]=6
    
20. dat$team[dat$sales=="F4"]=6
    
21. dat$team=factor(dat$team)
    
22. names_teams=data.frame(sales=dat$sales,team=dat$team)

复制代码

1. names_teams <- data.frame(sales = c("张三", "李四", "王五", "宋江", "李逵", "林冲"), team  = c("酱油组", "酱油组", "酱油组", "好汉组", "好汉组", "好汉组"))

复制代码

cheetahfly 发表于 2017-7-29 17:48

get！十分感谢~
最后柔柔地问一句，%>%这个符号从没见过也没查到，请问是什么意思呀？

%>% 是forward-pipe operator，可以减少中间变量的产生，使代码逻辑性更强，更易于维护。

cheetahfly 发表于 2017-7-31 13:39
%>% 是forward-pipe operator，可以减少中间变量的产生，使代码逻辑性更强，更易于维护。

赶紧记笔记。
你好厉害啊！请问花了多长的时间才达到现在的水平？可以分享一下你的学习经验吗？