r - 在 R 中使用与一个数据框合并
问题描述
我在 R 中有一个数据框,第一列中存储了重复的索引。
df <- data.frame("Index" = c(1,2,1), "Age" = c("Jane Doe","John Doe","Jane
Doe"), "Address" = c("123 Fake Street","780 York Street","456 Elm
Street"),"Telephone" = c("xxx-xxx-xxxx","zzz-zzz-zzzz","yyy-yyy-yyyy"))
Index Name Address Telephone
1 Jane Doe 123 Fake Street xxx-xxx-xxxx
2 John Doe 780 York Street zzz-zzz-zzzz
1 Jane Doe 456 Elm Street yyy-yyy-yyyy
我想结合上面的数据框看起来像:
Index Name Address Telephone Address 2 Telephone 2
1 Jane, Doe 123 Fake Street xxx-xxx-xxxx 456 Elm Street yyy-yyy-yyyy
2 John Doe 780 York Street zzz-zzz-zzzz NA NA
我可以在同一个数据帧上使用“合并”,还是他们在 R 中的另一个命令可以完成这项任务?谢谢你。
解决方案
和tidyverse
df %>%
group_by(Age) %>%
summarize_at(vars(Telephone,Address),paste, collapse="|") %>%
separate(Address,into=c("Address1","Address2"),sep="\\|") %>%
separate(Telephone,into=c("Telephone1","Telephone2"),sep="\\|")
# # A tibble: 2 x 5
# Age Telephone1 Telephone2 Address1 Address2
# <fct> <chr> <chr> <chr> <chr>
# 1 Jane Doe xxx-xxx-xxxx yyy-yyy-yyyy 123 Fake Street 456 Elm Street
# 2 John Doe zzz-zzz-zzzz <NA> 780 York Street <NA>
更一般地说,我们可以使用summarize
and嵌套值list
,并使用正确的格式将内容重新unnest
格式化:
df %>%
group_by(Age) %>%
summarize_at(vars(Telephone,Address),
~lst(setNames(invoke(tibble,.),seq_along(.)))) %>%
unnest(.sep = "")
# # A tibble: 2 x 5
# Age Telephone1 Telephone2 Address1 Address2
# <fct> <fct> <fct> <fct> <fct>
# 1 Jane Doe xxx-xxx-xxxx yyy-yyy-yyyy 123 Fake Street 456 Elm Street
# 2 John Doe zzz-zzz-zzzz <NA> 780 York Street <NA>
summarise 里面的函数有点吓人,但是如果你想再次使用它,你可以把它包装成一个更友好的名字(我添加了一个 names 参数以防万一):
nest2row <- function(x,names = seq_along(x))
lst(setNames(invoke(tibble,x),names[seq_along(x)]))
df %>%
group_by(Age) %>%
summarize_at(vars(Telephone,Address), nest2row) %>%
unnest(.sep = "")
我想这将是推荐的整洁方式:
df %>%
group_by(Age) %>%
mutate(id=row_number()) %>%
gather(key,value,Address,Telephone) %>%
unite(key,key,id,sep="") %>%
spread(key,value)
# # A tibble: 2 x 6
# # Groups: Age [2]
# Index Age Address1 Address2 Telephone1 Telephone2
# <dbl> <fct> <chr> <chr> <chr> <chr>
# 1 1 Jane Doe 123 Fake Street 456 Elm Street xxx-xxx-xxxx yyy-yyy-yyyy
# 2 2 John Doe 780 York Street <NA> zzz-zzz-zzzz <NA>
使用我的第二个解决方案,您可以保留您的因素,并且不会像惯用方式那样在同一列中强制使用不同类型的变量。
推荐阅读
- javascript - 谷歌标记动画更改
- html - LeafletJS 地图有时无法使用 Google Adsense 广告框及其脚本加载。删除后消失
- javascript - VueJS检测字符串是否包含单词
- view - Where 子句不适用于 ClickHouse 视图
- javascript - Nodejs Mongodb Stitch 中的 BSON.Timestamp 转换问题?
- python - 查找与另一个数组中的元素匹配的数组中的两个整数的总和
- android - 面临模块问题
- c# - 如何在c#中提取一个字节的第5位
- javascript - 如何使用ajax codeiginter突出显示日期?
- reactjs - React - 在单选按钮组件更改时,更新文本框组件状态