Question

似乎向日葵图不能用于丢失数据。

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

      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])

缺少数据的向日葵情节

1 个答案: