Question

我有以下物品

A<-data.frame(replicate(5,c(1,2,3,4)))
A=   X1 X2 X3 X4 X5
     1  1  1  1  1
     2  2  2  2  2
     3  3  3  3  3
     4  4  4  4  4

B<-c(1,2,3,4,1)

B = 1 2 3 4 5

我想找到一种方法，从A的第一列中删除B的第一个元素，从A的第二列中删除B的第二个元素，依此类推，所以我得到以下结果

A=   X1 X2 X3 X4 X5
     2  1  1  1  2
     3  3  2  2  3
     4  4  4  3  4

Answer 1

使用mapply，我们可以并行传递A和B并过滤B中不存在的值

mapply(function(x, y) x[x != y], A, B)

#     X1 X2 X3 X4 X5
#[1,]  2  1  1  1  2
#[2,]  3  3  2  2  3
#[3,]  4  4  4  3  4

PS-确保ncol(A)和length(B)相同，否则将导致向量回收，从而导致意外结果。

Answer 2

一种$_SESSION['']解决方案：

<?php
    session_start();
    echo "Welcome, " . $_SESSION['username']; //Added keyname
?>
<html>
    all the html code
</html>

从数据框的每一列中删除不同的值

2 个答案: