是否有一種更簡(jiǎn)單的方法來(lái)確保數(shù)據(jù)框的行根據(jù)我在下面的簡(jiǎn)短示例中實(shí)現(xiàn)的“目標(biāo)”矢量進(jìn)行排序？df <- data.frame(name = letters[1:4], value = c(rep(TRUE, 2), rep(FALSE, 2)))df# name value# 1 a TRUE# 2 b TRUE# 3 c FALSE# 4 d FALSEtarget <- c("b", "c", "a", "d")這似乎有點(diǎn)“復(fù)雜”，無(wú)法完成工作：idx <- sapply(target, function(x) { which(df$name == x)})df <- df[idx,]rownames(df) <- NULLdf # name value# 1 b TRUE# 2 c FALSE# 3 a TRUE# 4 d FALSE
3 回答
FFIVE
TA貢獻(xiàn)1797條經(jīng)驗(yàn) 獲得超6個(gè)贊
嘗試match：
df <- data.frame(name=letters[1:4], value=c(rep(TRUE, 2), rep(FALSE, 2)))
target <- c("b", "c", "a", "d")
df[match(target, df$name),]
name value
2 b TRUE
3 c FALSE
1 a TRUE
4 d FALSE
只要您target包含與完全相同的元素df$name并且都不包含重復(fù)值，它將起作用。
來(lái)自?match：
match returns a vector of the positions of (first) matches of its first argument
in its second.
因此，match找到與target元素匹配的行號(hào)，然后我們df以該順序返回。
米脂
TA貢獻(xiàn)1836條經(jīng)驗(yàn) 獲得超3個(gè)贊
我更喜歡***_join 在dplyr需要匹配數(shù)據(jù)時(shí)使用。一種可能的嘗試
left_join(data.frame(name=target),df,by="name")
請(qǐng)注意，***_joinrequire tbls或data.frame 的輸入
- 3 回答
- 0 關(guān)注
- 254 瀏覽
添加回答
舉報(bào)
0/150
提交
取消