我想根據共同的第一列連接兩個資料框（df1，df2），但是，我希望將兩個資料框中的每一列一個接一個地放置，如示例所示：
INPUT df1
df1 <- data.frame(name = c("JMA", "PSA", "TAN", "POS"), HAN = c("0.2119", "-0.1726", "0.0002", "-1.036"), ENA = c("0.0736", "-1.6644", "0.0743", "-0.0605"), IUA = c("-0.2212", "-0.3352", "0.6301", "-0.2848"), MEA = c("0.3464", "0.4085", "0.5801", "0.3236"))
Input df2
df2 <- data.frame(name = c("JMA", "PSA", "TAN", "POS"), YHD = c("0.3874", "-0.209", "-0.0614", "-1.8067"), PUH = c("0.0784", "-0.572", "0.0819", "-0.0628"), OUR = c("0.2297", "0.279", "0.3106", "0.3368" ), NKA = c("-0.5446", "-2.324", "-0.572", "-0.3626"))
Output df
df <- data.frame(name = c("JMA", "PSA", "TAN", "POS"), HAN = c(0.2119, -0.1726, 2e-04, -1.036), YHD = c(0.3874, -0.209, -0.0614, -1.8067 ), ENA = c(0.0736, -1.6644, 0.0743, -0.0605), PUH = c(0.0784, -0.572, 0.0819, -0.0628), IUA = c(-0.2212, -0.3352, 0.6301, -0.2848 ), OUR = c(0.2297, 0.279, 0.3106, 0.3368), MEA = c(0.3464, 0.4085, 0.5801, 0.3236), NKA = c(-0.5446, -2.324, -0.572, -0.3626))
我知道 join 函式，但不知道如何將兩個資料框中的列一一放置以進行進一步分析。
請幫忙。先感謝您。:)
uj5u.com熱心網友回復：
您想要的 df 有 5 行，而您的兩個起始資料幀有 4 行。我認為這只是一個錯誤。
此代碼應該可以基于公共列合并兩個資料框
df <- merge(df1,df2, by = "name")
df
name HAN ENA IUA MEA YHD PUH OUR NKA
1 JMA 0.2119 0.0736 -0.2212 0.3464 0.3874 0.0784 0.2297 -0.5446
2 POS -1.036 -0.0605 -0.2848 0.3236 -1.8067 -0.0628 0.3368 -0.3626
3 PSA -0.1726 -1.6644 -0.3352 0.4085 -0.209 -0.572 0.279 -2.324
4 TAN 0.0002 0.0743 0.6301 0.5801 -0.0614 0.0819 0.3106 -0.572
uj5u.com熱心網友回復：
library(dplyr)
df3 <- full_join(df1, df2, by="name")
cn3 <- colnames(df3)
df3 <- df3[,order(coalesce(match(cn3, names(df1)), match(cn3, names(df2))))]
identical(df, df3)
# [1] TRUE
df3
# name HAN YHD ENA PUH IUA OUR MEA NKA
# 1 JMA 0.2119 0.3874 0.0736 0.0784 -0.2212 0.2297 0.3464 -0.5446
# 2 PSA -0.1726 -0.2090 -1.6644 -0.5720 -0.3352 0.2790 0.4085 -2.3240
# 3 TAN 0.0002 -0.0614 0.0743 0.0819 0.6301 0.3106 0.5801 -0.5720
# 4 POS -1.0360 -1.8067 -0.0605 -0.0628 -0.2848 0.3368 0.3236 -0.3626
uj5u.com熱心網友回復：
我們可以使用 join from data.table
library(data.table)
setDT(df1)[df2, on = .(name)]
name HAN ENA IUA MEA YHD PUH OUR NKA
1: JMA 0.2119 0.0736 -0.2212 0.3464 0.3874 0.0784 0.2297 -0.5446
2: PSA -0.1726 -1.6644 -0.3352 0.4085 -0.209 -0.572 0.279 -2.324
3: TAN 0.0002 0.0743 0.6301 0.5801 -0.0614 0.0819 0.3106 -0.572
4: POS -1.036 -0.0605 -0.2848 0.3236 -1.8067 -0.0628 0.3368 -0.3626
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/315220.html
下一篇：當col名稱相似時添加后綴