tibble的应用求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位老师好，我想把一个list中的两个数据框（分别命名为DO和Salinity，如图1）进行数据变换（由宽变长），然后将转换后的数据列命名以数据框的名称命名（图3的箭头所示）……数据已上传附件，我用的是tibble函数，但最后一步始终无法完成，求各位老师指教。

1. env_data
   
2. dfa <- tibble(Index = names(env_data),
   
3.         data = env_data) %>%
   
4.   # mutate(data_trans = Index)
   
5.   mutate(data_trans = map(data,function(x){
   
6.                           pivot_longer(x,
   
7.                           cols = colnames(x)[-1],
   
8.                       names_to = 'year',
   
9.                      values_to = "Index")
   
10.    
    
11.     }))

复制代码

图1
图2

图3（期待的效果是将数据框名称,即DO或Salinity，替换为Index)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：BBL function longer values Index

没有找到能够一步到位的方法，只能这样了：
dfb = dfa %>% pull(data_trans)
dfc <- lapply(names(dfb), function(x) {
    names(dfb[[x]])[3] <- x  
  return(dfb[[x]])
  })