小编use*_*760的帖子

我有2个列表,每个列表都有多个变量(我认为这是正确的术语).我想找到每个变量的交集.请参阅以下示例:

x<-list(A=c(1,2,3),B=c(4,5,6),C=c(7,8,9)) #input
y<-list(A=c(1,3,6,7),B=c(5,7,8),C=c(7,9,10)) #input
xinty<-list(A=c(1,3),B=5,C=c(7,8)) # desired output

我试过以下,但显然是错的.任何建议将不胜感激.谢谢.

xinty<-lapply(x,function(x) intersect(x,y))

我有一些数据，我想记录日志，然后制作热图。热图抱怨是因为-Inf我的数据框中的零生成了。

我想将所有零转换为非常小的数字。我认为这应该相对容易，但是我遇到了错误。例如。

Error in ifelse(ztest = 0, 1e-05, ztest) : unused argument(s) (ztest = 0)

以下是一些示例数据：

 ztest<-data.frame(A=c(0,1,2,3),B=c(0,0,1,2),C=c(1,2,3,4))

这是我所做的一些尝试，他们都抱怨未使用的争论，所以我想我不明白如何正确编写这些函数。尽管这些尝试看起来都与本网站上发布的类似问题的答案非常相似。

1. z_inf <- ifelse(ztest=0,0.00001,ztest)
2. z[z=0]<-0.00001
3. inf_conv <- function(x){ifelse(x=0,0.00001,x)} z_inf<-apply(z,c(1,2),inf_conv)