如何解决将具有重复行的两列数据帧扩展为 3 个列
我在 R 中有这种数据框
x y
name1 value x
name1 value y
name2 value x
name2 value y
name3 value x
name3 value y
我想这样转换
x y z
name1 value x value y
name2 value x value y
name3 value x value y
我曾尝试使用 pivot_wider
进行整形,但没有成功。
解决方法
df <- read.table(text = "x y
name1 'value x'
name1 'value y'
name2 'value x'
name2 'value y'
name3 'value x'
name3 'value y'",header = T)
library(tidyverse)
df %>%
group_by(dummy = cumsum(x != lag(x,default = 'NULL'))) %>%
mutate(dummy = row_number()) %>%
pivot_wider(id_cols = x,names_from = dummy,values_from = y)
# A tibble: 3 x 3
x `1` `2`
<chr> <chr> <chr>
1 name1 value x value y
2 name2 value x value y
3 name3 value x value y
用于奇数行/偶数行分离
df %>%
mutate(dummy = (row_number() +1) %% 2) %>%
pivot_wider(id_cols = x,values_from = y)
# A tibble: 3 x 3
x `0` `1`
<chr> <chr> <chr>
1 name1 value x value y
2 name2 value x value y
3 name3 value x value y
或
df %>%
mutate(dummy = c('x_val','y_val')[1 +(row_number() +1) %% 2]) %>%
pivot_wider(id_cols = x,values_from = y)
# A tibble: 3 x 3
x x_val y_val
<chr> <chr> <chr>
1 name1 value x value y
2 name2 value x value y
3 name3 value x value y
,
这可能是您的Route::delete('Admin/deletePartnerAg/{id}',...
选项
pivot_wider
给出
df %>%
arrange(x,y) %>%
group_by(x) %>%
mutate(mn = c("y","z")) %>%
pivot_wider(names_from = mn,values_from = y) %>%
ungroup()
,
获取奇数行和偶数行,然后列绑定:
cbind(df[c(TRUE,FALSE),],z = df[c(FALSE,TRUE),2])
# x y z
# 1 name1 value x value y
# 3 name2 value x value y
# 5 name3 value x value y
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。