r - 取消嵌套不同大小的相关列表列
问题描述
解析 xml 文件后,我的数据如下所示:
example_df <-
tibble(id = "ABC",
wage_type = "salary",
name = c("Description","Code","Base",
"Description","Code","Base",
"Description","Code"),
value = c("wage_element_1","51B","600",
"wage_element_2","51C","740",
"wage_element_3","51D"))
example_df
# A tibble: 8 x 4
id wage_type name value
<chr> <chr> <chr> <chr>
1 ABC salary Description wage_element_1
2 ABC salary Code 51B
3 ABC salary Base 600
4 ABC salary Description wage_element_2
5 ABC salary Code 51C
6 ABC salary Base 740
7 ABC salary Description wage_element_3
8 ABC salary Code 51D
大约有 1000 种不同id
的,每个都有 3 个可能的值wage_type
。我想将列中的值更改name
为列。我曾尝试使用pivot
,但我正在努力处理结果list-cols
:由于并非所有人salary
都有 a Base
,因此生成的 list-cols 的大小不同,如下所示:
example_df <- example_df %>%
pivot_wider(id_cols = c(id, wage_type),
names_from = name,
values_from = value)
example_df
# A tibble: 1 x 5
id wage_type Description Code Base
<chr> <chr> <list> <list> <list>
1 ABC salary <chr [3]> <chr [3]> <chr [2]>
因此,当我尝试取消嵌套 cols 时,它会引发错误:
example_df%>%
unnest(cols = c(Description,Code,Base))
Error: Can't recycle `Description` (size 3) to match `Base` (size 2).
我知道这是因为 tidyr 函数不会回收,但我找不到解决这个问题的方法或base r
解决我的问题的方法。我试图
根据如何在 R 中将一行拆分为多行unlist(strsplit(as.character(x))
来制作一个带有解决方案的 df,但也遇到了由此产生的列长度问题。
所需的输出如下:
desired_df <-
tibble(
id=c("ABC","ABC","ABC"),
wage_type=c("salary","salary","salary"),
Description = c("wage_element_1","wage_element_2","wage_element_3"),
Code = c("51B","51C","51D"),
Base = c("600","740",NA))
desired_df
id wage_type Description Code Base
<chr> <chr> <chr> <chr> <chr>
1 ABC salary wage_element_1 51B 600
2 ABC salary wage_element_2 51C 740
3 ABC salary wage_element_3 51D NA
我会喜欢一个 tidyr 解决方案,但任何帮助将不胜感激。谢谢。
解决方案
我会建议使用tidyverse
函数的这种方法。您遇到的问题是由于函数如何管理不同的行。因此,通过创建一个像id2
您这样的 id 变量,可以避免在最终重塑数据中出现列表输出:
library(tidyverse)
#Code
example_df %>%
arrange(name) %>%
group_by(id,wage_type,name) %>%
mutate(id2=1:n()) %>% ungroup() %>%
pivot_wider(names_from = name,values_from=value) %>%
select(-id2)
输出:
# A tibble: 3 x 5
id wage_type Base Code Description
<chr> <chr> <chr> <chr> <chr>
1 ABC salary 600 51B wage_element_1
2 ABC salary 740 51C wage_element_2
3 ABC salary NA 51D wage_element_3
推荐阅读
- rest - 对于数据传输,REST API 与 SFTP,哪个更安全?
- c - 将 MASM 对象与 C 对象链接会产生错误的结果
- python - 如何在 Python 中无休止地运行函数
- java - 以编程方式打开所有通知
- javascript - 为什么这个递归函数会覆盖第二次调用的值?
- flutter - 将 ListView 的子项对齐到顶部和底部
- javascript - 当他/她单击按钮时,将用户的电子邮件存储在不同的页面上
- python - 改变 xytext 以防止重叠注释
- cucumber - 通过 -Dcucumber.options 传递多个标签(或/和)不会触发我的测试
- excel - 三角形的 VBA 面积