对字符串进行从右至左选择

e.xlsx (11.45 KB)

2017-6-30 09:45:05 上传

有一个Excel表，读取成数据框后，把空值填充为0，我现在想根据NO列最后一位数字进行分组，然后对NUM进行求和，求大神解答啊

假设数据变量名为dat：

1. library(tidyverse)
   
2. library(stringr)
   
3. dat %>%
   
4.   mutate(group = str_sub(NO, -1, -1)) %>%
   
5.   group_by(group) %>%
   
6.   summarise_at(vars(NUM, knum), sum)

复制代码

1. library(readxl)
   
2. testdata <- read_excel(path = "e.xlsx", sheet = 1, col_names = T)
   
3. NO1 <- testdata$NO
   
4. testdata[is.na(testdata)] <- 0   #缺失值替换为0
   
5. 
   
6. library(tidyverse)
   
7. library(stringr)
   
8. result <- testdata %>%
   
9.   mutate(group = str_sub(NO, -1, -1)) %>%
   
10.   group_by(group) %>%
    
11.   summarise_at(vars(NUM, knum), sum)
    
12. 
    
13. library(ggplot2)
    
14. ggplot(result, aes(group, NUM))+
    
15.   geom_bar(stat = "identity")

复制代码

感谢楼上指导，把结果贴出来供参考

cheetahfly 发表于 2017-6-30 09:48
假设数据变量名为dat：

能不能再给解释一下 %>%的含义啊？非常感谢

用sqldf 包  假设你的df 叫做df1
select  substr(No, -1,1) as aaa, sum(num)  from df1  group by aaa

天涯印象 发表于 2017-6-30 11:25
能不能再给解释一下 %>%的含义啊？非常感谢

叫做“Pipe operator”，在tidyverse等很多包中都用到该运算符，主要作用是，让代码更符合逻辑，更易读懂和维护，并减少产生中间变量。