这个程序是chages，里面的match_up怎么解释

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> changes
function (x, y)
{
    x <- location(x)
    y <- location(y)
    if (x$df == y$df) {
        cat("<identical>\n")
        return(invisible())
    }
    vars <- match_up(x$vars, y$vars)
    attr <- match_up(x$attr, y$attr)
    width <- max(nchar(rownames(vars)), nchar(rownames(attr)))
    if (nrow(vars) > 0)
        rownames(vars) <- format(rownames(vars), width = width)
    if (nrow(attr) > 0)
        rownames(attr) <- format(rownames(attr), width = width)
    if (nrow(vars) > 0) {
        cat("Changed variables:\n")
        print(vars, quote = FALSE)
    }
    if (nrow(vars) > 0 && nrow(attr))
        cat("\n")
    if (nrow(attr) > 0) {
        cat("Changed attributes:\n")
        print(attr, quote = FALSE)
    }
}
<environment: namespace:dplyr>

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Match Ages ATCH GES ATC 程序

https://github.com/hadley/dplyr/blob/master/R/location.R

match_up <- function(x, y) {
  both <-    intersect(names(x), names(y))
  added <-   setdiff(names(x), names(y))
  deleted <- setdiff(names(y), names(x))

  out <- cbind(
    old = c(x[both], x[added], rep("<added>", length(deleted))),
    new = c(y[both], rep("<deleted>", length(added)), y[deleted])
  )
  rownames(out) <- c(both, added, deleted)
  out[out[, "old"] != out[, "new"], , drop = FALSE]
}