我浏览了类似的帖子并尝试了它们,但仍然无法解决我的问题。
我有一个向量列表,如下所示
y2 <- c(0,0,NA,0,0,0,0)
y <- c(0,0,0,NA,NA,0)
x <- c(0,0,0,0)
li <-list(y2,y,x)
Run Code Online (Sandbox Code Playgroud)
li如果确切的向量是另一个向量的子集,我正在尝试从列表中删除该向量。
例如,在我的情况下,我应该有y2和y结果并x从列表中删除,因为它x是y2.
我编写了以下脚本,但它只给出了 y2 作为结果,而忽略了y:
UniquePath <- function(PATHS)
{
for(j in length(PATHS):1)
{
for(i in 1:length(PATHS))
{
if((i!=j)&(isTRUE(all(is.element(PATHS[[j]],PATHS[[i]])))))
{
PATHS<-PATHS[-j]
break
}
else
{
next
}
}
}
return(PATHS)
}
Run Code Online (Sandbox Code Playgroud) 我已经阅读了相关主题,但我仍然无法弄清楚。我使用以下数据制作了箱线图。如何反转 y 轴,使 12 出现在顶部,19 出现在 y 轴底部?
X <- (13,13,13,12,14,14,14,13,16,16,13,15,15,15,14,14,13,16,15,19,15,16,17,14,19,16,18,17,17,18,17,17,19,17,17)
Run Code Online (Sandbox Code Playgroud)
我已经使用过boxplot(X,at=rev(1:nlevels(X))),它显示了这个错误:'at' must have same length as 'z$n', i.e. 1
任何评论都会很棒!