数据缺失的向日葵图

Question

似乎sunflowerplot不适用于丢失的数据。

我正在尝试编写一个清除的向日葵图函数，该函数清除输入向量中的缺失值，并通知向日葵图的图例中每个变量的缺失值的数量。代码如下：

      library(gplots)
    CleanedSunflowerPlot <- function(x,y,...){
        m<-sum(is.na(x)) 
        n <- sum(is.na(y)) 
            x <- na.omit(x)
            y <- na.omit(y)
        sunflowerplot(x,y,...)
        smartlegend(x="left", y="top",
        c( paste(m , " missing x values") , paste(n, " missing y values"))) 

    }

我得到的错误是“xy.coords(x，y，xlabel，ylabel，log)中的错误：'x‘和'y’长度不同”

我尝试了很多不同的方法，但都不能解决它。谢谢。

Answer 1

基于@rawr的建议：

x <- c(1,2,NA,4); y <- c(NA, 5, 3, 2)
xy <- cbind(x, y)
xy
#       x  y
# [1,]  1 NA
# [2,]  2  5
# [3,] NA  3
# [4,]  4  2

xy[ !is.na(x) & !is.na(y), ]
#      x y
# [1,] 2 5
# [2,] 4 2

sunflowerplot(xy[, 1], xy[, 2])