代码之家 › 专栏 › 技术社区 › CptNemo

R: 合并多个列的索引为无序集合的数据帧

dataframe merge r

CptNemo · 技术社区 · 10 年前

我有一个国家列表

countries <- c("MAL","CHL","URU","YPR","OMA","GUY","HON","SAL","CYP")

以及两个包含两国之间所有可能二元关系的数据帧

set.seed(28100)
df1 <- as.data.frame(t(combn(countries, 2)))
df1$year <- sample(1800:2000, 36)
df1$value1 <- sample(1:100, 36)

df2 <- as.data.frame(t(combn(rev(countries), 2)))
df2$year <- sample(1800:2000, 36)
df2$value2 <- sample(LETTERS, 36, replace = TRUE)

现在我想按国家和年份合并这两个数据帧( by = c("V1","V2","year") )而不用担心这对国家的实际排列顺序。所以观察结果 V1 == "SAL" 和 V2=="CYP" 可以与合并 V1==“SAL” 和 V2==“密码” 或 V2 == "SAL" 和 V1=="CYP" .

1 回复 | 直到 10 年前

pcantalupo 10 年前

这使用从每个数据帧的V1 V2列生成的索引列。索引列包含V1和V2列之间的连接的排序单词。

# `strSort` was taken from http://stackoverflow.com/questions/5904797/how-to-sort-letters-in-a-string-in-r
strSort <- function(x)
  sapply(lapply(strsplit(x, NULL), sort), paste, collapse="")

#df1
index=paste0(as.character(df1[,1]), as.character(df1[,2]))
df1$index=strSort(index)

#df2
index=paste0(as.character(df2[,1]), as.character(df2[,2]))
df2$index=strSort(index)

merge(df1,df2,by="index")

部分输出:

#     index V1.x V2.x year.x value1 V1.y V2.y year.y value2
# 1  AALLMS  MAL  SAL   1883     35  SAL  MAL   1971      Y
# 2  AALMMO  MAL  OMA   1915     75  OMA  MAL   1816      A
# 3  AALMOS  OMA  SAL   1806     95  SAL  OMA   1894      X
# 4  ACHLLM  MAL  CHL   1870     27  CHL  MAL   1991      U
# 5  ACHLLS  CHL  SAL   1949     55  SAL  CHL   1928      E
# 6  ACHLMO  CHL  OMA   1966     31  OMA  CHL   1839      X
# 7  ACLMPY  MAL  CYP   1830     15  CYP  MAL   1912      Y
# 8  ACLPSY  SAL  CYP   1881     60  CYP  SAL   1995      M

推荐文章

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

Daniel Estévez · 扩展数据帧以包含不存在的值

1 年前

T Richard · 根据条件交换分组数据中的字符串或值

1 年前

Homer Jay Simpson · R中flextable的标题字体和垂直合并

1 年前

RKIDEV · Panda迭代行并将第n行值乘以下一(n+1)行值

1 年前

Ssong · 如何有条件地运用资本化?

1 年前

Marcio Lino · 在Pandas中转换多个值列

1 年前

Ray · 在Python pandas包中使用groupby函数时,输出结果存在差异的原因是什么?

1 年前

RobertF · 如果列没有表头,如何在R数据帧中引用变量名?

1 年前

Homer Jay Simpson · ggplot2`geom_label()中的警告消息`

1 年前