是否有一種更簡單的方法來確保數據框的行根據我在下面的簡短示例中實現的“目標”矢量進行排序？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")這似乎有點“復雜”，無法完成工作：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 回答
婷婷同學_
TA貢獻1844條經驗 獲得超8個贊
嘗試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并且都不包含重復值，它將起作用。
來自?match：
match returns a vector of the positions of (first) matches of its first argument
in its second.
因此，match找到與target元素匹配的行號，然后我們df以該順序返回。
30秒到達戰場
TA貢獻1828條經驗 獲得超6個贊
我更喜歡***_join 在dplyr需要匹配數據時使用。一種可能的嘗試
left_join(data.frame(name=target),df,by="name")
請注意，***_joinrequire tbls或data.frame 的輸入
- 3 回答
- 0 關注
- 691 瀏覽
添加回答
舉報
0/150
提交
取消