[R数据框 - 从

列提取唯一行我有一个数据帧：[R数据框 - 从

source= c("A", "A", "B") 
target = c("B", "C", "C") 
source_A = c(5, 5, 6) 
target_A = c(6, 7, 7) 
source_B = c(10, 10, 11) 
target_B = c(11, 12, 12) 
c = c(0.5, 0.6, 0.7) 
df = data.frame(source, target, source_A, target_A, source_B, target_B, c) 

> df 
    source target source_A target_A source_B target_B c 
1  A  B  5  6  10  11 0.5 
2  A  C  5  7  10  12 0.6 
3  B  C  6  7  11  12 0.7

如何减少这个数据框为独特的源和目标值仅返回值和返回（忽略列C）。

的价值观[A B C]

目前，我做这样的事：

df1 <- df[,c("source","source_A", "source_B")] 
df2 <- df[,c("target","target_A", "target_B")] 

names(df1)[names(df1) == 'source'] <- 'id' 
names(df1)[names(df1) == 'source_A'] <- 'A' 
names(df1)[names(df1) == 'source_B'] <- 'B' 
names(df2)[names(df2) == 'target'] <- 'id' 
names(df2)[names(df2) == 'target_A'] <- 'A' 
names(df2)[names(df2) == 'target_B'] <- 'B' 

df3 <- rbind(df1,df2) 
df3[!duplicated(df3$id),] 

    id A B 
1 A 5 10 
3 B 6 11 
5 C 7 12

在现实中，我有几列的，所以这是不可行的长远。

我怎样才能更简洁地完成这项工作（理想情况下，对于更多的专栏可以概括）？

来源

2017-10-18 Chuck

的'source'和'target'值相同'id'总是相同？ – LAP

@LAP是的（或者我已经搞砸了......）其他列的A值总是特定于A（即使它们对于每列都不相同）。 – Chuck

library(dplyr) 
library(magrittr) 

df1 <- subset(df, select = ls(pattern = "source")) 
df2 <- subset(df, select = ls(pattern = "target")) 

names(df1) <- names(df2) 
df <- bind_rows(df1, df2) 
df %<>% group_by(target, target_A, target_B) %>% slice(1)

这应该这样做，但我不太清楚你想如何推广它。我不认为这是世界上最优雅的解决方案，但它符合这个目的。希望您打算使用的列可以作为列名称字符串模式的目标！

来源

2017-10-18 09:48:43 Kim

下面是一个更通用的方法dplyr函数。你基本上需要的一切聚集成一个长格式，在那里你可以相应地重命名变量，然后蔓延它们放回id, A, B：

library(dplyr) 
library(tidyr) 

df %>% 
    select(-c) %>% 
    mutate(index = row_number()) %>% 
    gather(key , value, -index) %>% 
    separate(key, c("type", "name"), fill = "right") %>% 
    mutate(name = ifelse(is.na(name), "id", name)) %>% 
    spread(key = name, value = value) %>% 
    select(id, matches("[A-Z]", ignore.case = FALSE)) %>% 
    distinct

来源

2017-10-18 17:35:14

[R数据框 - 从

回答

相关问题