Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 不同大小字符串的逻辑匹配向量_R - Fatal编程技术网

R 不同大小字符串的逻辑匹配向量

R 不同大小字符串的逻辑匹配向量,r,R,所以我有一些数据帧,都是由不同大小的多个字符串组成的。第一个数据帧中包含所有字符串,所有后续数据帧由该原始帧的子集组成的数据帧。我想形成一个像真/假表这样的东西来匹配子集数据帧中的字符串,但我不确定如何做到这一点 x <- c("A", "B", "C") y <- c("A", "C") z <- c("C") > final.data.frame y z A 1 0 B 0 0 C 1 1 x我们可以做 res

所以我有一些数据帧,都是由不同大小的多个字符串组成的。第一个数据帧中包含所有字符串,所有后续数据帧由该原始帧的子集组成的数据帧。我想形成一个像真/假表这样的东西来匹配子集数据帧中的字符串,但我不确定如何做到这一点

 x <- c("A", "B", "C")
 y <- c("A", "C")
 z <- c("C")

 > final.data.frame 
     y   z
 A   1   0
 B   0   0
 C   1   1
x我们可以做

res <- sapply(list(y= y, z= z), function(u) as.integer(x %in% u))
row.names(res) <- x
res
#  y z
#A 1 0
#B 0 0
#C 1 1
res我们能做什么

res <- sapply(list(y= y, z= z), function(u) as.integer(x %in% u))
row.names(res) <- x
res
#  y z
#A 1 0
#B 0 0
#C 1 1

res我认为“y”列应该是
10 1
谢谢!是的,你说得对,我忘了一个1。愿邪恶势力在回家的路上迷路!我认为“y”列应该是
10 1
谢谢!是的,你说得对,我忘了一个1。愿邪恶势力在回家的路上迷路!