程序问答   发布时间:2022-06-01  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了在 R 中折叠共享唯一值的列大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。

如何解决在 R 中折叠共享唯一值的列?

开发过程中遇到在 R 中折叠共享唯一值的列的问题如何解决?下面主要结合日常开发的经验,给出你关于在 R 中折叠共享唯一值的列的解决方法建议,希望对你解决在 R 中折叠共享唯一值的列有所启发或帮助;

如何折叠行列,让它们共享唯一值?

我有一个这样的数据框:

Group   Status  Temperature     Ref
A       Moving                  1   
A               Cold            1   
B       Static                  1   
B               Warm            2   
C       Static  Temperate       3   
C               Temperate       3

我想要的输出是

Group   Status  Temperature     Ref
A       Moving  Cold            1   
B       Static  Warm            1;2
C       Static  Temperate       3   

据说很简单,但是当我做到了

aggregate(df$Temperature,List(df$Group),paste,collapse=",")

df %>%
  group_by(Group) %>%
  summarise(Temperature=paste(Temperature,collapse=''))

我只选择了部分列,具体取决于我选择的列。

解决方法

这个怎么样:

library(tidyr)

df %>% 
    mutate_at(vars(Status,Temperature),list(~ifelse(.=="",NA,.))) %>% 
    group_by(Group) %>% 
    fill(Status,Temperature,.direction = "downup") %>% 
    group_by(Group,Status,Temperature) %>%
    unique %>% 
    summarise(Ref = paste(Ref,collapse = ";"))

警告:这段代码首先将 StatusTemperature 中的空值转换为 NA,然后假设每个 Group 只有一个 {{1} 值填充该值} 和 Status

,

仅使用 unique

简单地连接所有非空白和 summarise(across(...

这样做

df %>% group_by(Group) %>% summarise(across(everything(),~ toString(unique(.[. != '']))))

# A tibble: 3 x 4
  Group Status Temperature Ref  
* <chr> <chr>  <chr>       <chr>
1 A     Moving Cold        1    
2 B     Static Warm        1,2 
3 C     Static Temperate   3

dput(df) 使用的是

df <- structure(list(Group = c("A","A","B","C","C"),Status = c("Moving","","Static",""),Temperature = c("","Cold","Warm","Temperate","Temperate"),Ref = c(1L,1L,2L,3L,3L)),class = "data.frame",row.names = c(NA,-6L))

大佬总结

以上是大佬教程为你收集整理的在 R 中折叠共享唯一值的列全部内容,希望文章能够帮你解决在 R 中折叠共享唯一值的列所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
标签: