怎么将原来数据框的形式，转变为下面excel这种格式的数据框

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想问一下怎么将这个数字框转化成下面excel这个表格的排列形式，而且还会根据每个县不同邻县的数量然后自动排列生成邻县1 2 3 4。 小白新手！谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：EXCEL exce xcel 数据框 cel

提供几个关键函数，group_by(县,县代码)，mutate(xxx = paste0(邻县,collapse = T))，separate_rows()

有会的嘛

909646372 发表于 2021-8-1 16:16
想问一下怎么将这个数字框转化成下面excel这个表格的排列形式，而且还会根据每个县不同邻县的数量然后自动 ...

这种数据预处理最烦躁了，但MATLAB解决一切牛鬼蛇神，可能就是把问题会变得复杂很多...

有笨方法实现，不知道是否有适合的函数

1. library(dplyr)
   
2. library(tidyr)
   
3. 
   
4. # 样例   kf代表某地，k1代表邻县，k2代表邻市
   
5. d1 <- data.frame(kf=c('A','A','A','B','B'),k1=paste0('lx',1:5),k2=paste0('ls',2:6))
   
6. 
   
7. # 添加辅助列
   
8. d2 <- d1 %>% group_by(kf) %>% mutate(rk=row_number()) %>% mutate(rk_key=paste0('key',rk))
   
9. 
   
10. # 查看最多临县数
    
11. kn <- unique(d2$rk) %>% length()
    
12. 
    
13. 
    
14. # 打横 得到邻县
    
15. lx.data <- d2 %>% spread(key = rk_key,value = k1) %>% group_by(kf) %>%
    
16.   summarise_at(vars(key1:paste0('key',kn)), max,na.rm=TRUE)
    
17. 
    
18. # 打横 得到市区
    
19. ls.data <- d2 %>% spread(key = rk_key,value = k2) %>% group_by(kf) %>%
    
20.   summarise_at(vars(key1:paste0('key',kn)), max,na.rm=TRUE)
    
21. 
    
22. # 合并最后结果
    
23. left_join(lx.data,lx.data,by='kf')

复制代码

library(dplyr)
library(tidyr)
# 样例   kf代表某地，k1代表邻县，k2代表邻市
d1 <- data.frame(kf=c('A','A','A','B','B'),k1=paste0('lx',1:5),k2=paste0('ls',2:6))
# 添加辅助列
d2 <- d1 %>% group_by(kf) %>% mutate(rk=row_number()) %>% mutate(rk_key=paste0('key',rk))
# 查看最多临县数
kn <- unique(d2$rk) %>% length()
# 打横 得到邻县
lx.data <- d2 %>% spread(key = rk_key,value = k1) %>% group_by(kf) %>%
  summarise_at(vars(key1:paste0('key',kn)), max,na.rm=TRUE)
# 打横 得到市区
ls.data <- d2 %>% spread(key = rk_key,value = k2) %>% group_by(kf) %>%
  summarise_at(vars(key1:paste0('key',kn)), max,na.rm=TRUE)
# 合并最后结果
left_join(lx.data,lx.data,by='kf')

library(dplyr)
library(tidyr)

# 样例   kf代表某地，k1代表邻县，k2代表邻市
d1 <- data.frame(kf=c('A','A','A','B','B'),k1=paste0('lx',1:5),k2=paste0('ls',2:6))

# 添加辅助列
d2 <- d1 %>% group_by(kf) %>% mutate(rk=row_number()) %>% mutate(rk_key=paste0('key',rk))

# 查看最多临县数
kn <- unique(d2$rk) %>% length()


# 打横 得到邻县
lx.data <- d2 %>% spread(key = rk_key,value = k1) %>% group_by(kf) %>%
  summarise_at(vars(key1:paste0('key',kn)), max,na.rm=TRUE)

# 打横 得到市区
ls.data <- d2 %>% spread(key = rk_key,value = k2) %>% group_by(kf) %>%
  summarise_at(vars(key1:paste0('key',kn)), max,na.rm=TRUE)

# 合并最后结果
left_join(lx.data,ls.data,by='kf')