缺失數據的向日葵陰謀

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，登錄）： '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])