R循環矩陣比較第一列是否與另一列相同

Question

我想檢查矩陣的每一列中的值是否與第一列中的值相同：

 x1  <- c("x", "y", "x")
 x2  <- c("x", "y", "y")
 x3  <- c("y", "y","x")

 dat <- data.frame(x1,x2,x3)

   x1 x2 x3
1  x  x  y
2  y  y  y
3  x  y  x

因此，如果x2！= 2，則應為“ 1”，否則為NA。 我怎樣才能做到這一點？ 在這種情況下，結果將是：

x2     x3 
NA     1
NA     NA
1      NA

我（不起作用）的解決方案是：

fun <- function (x) {
for(j in 2: ncol(x)){
  ifelse(x[,1]== j, NA,1)
}
}

樂趣（日期）

我需要一個函數來用lapply執行此操作。 我怎樣才能做到這一點？ 非常感謝！

Answer 1

不同的方法利用了由於參數循環而導致列操作通常很容易的事實：

 dat <- data.frame(x1,x2,x3, stringsAsFactors=FALSE) # keeps as character 

 ne.dat1 <-  (dat != dat[,1])[ , -1]  # True/False rather than 1,NA
 is.na(ne.dat1) <- !ne.dat1
 ne.dat1
       x2   x3
[1,]   NA TRUE
[2,]   NA   NA
[3,] TRUE   NA

Answer 2

您可以這樣做：

 m1 <- (!(as.character(dat[,1])==dat[,-1])) +1
 m1[] <- c(NA,1)[m1]
 m1
 #    x2 x3
 #[1,] NA  1
 #[2,] NA NA
 #[3,]  1 NA

Answer 3

這是與包裝物容易sapply ，因為它適用於應用名稱的結果：

sapply(dat[-1], 
       function(x) 
          ifelse(as.character(x)==as.character(dat[[1]]), NA, 1)
)
##      x2 x3
## [1,] NA  1
## [2,] NA NA
## [3,]  1 NA