绘图直方图中的NA计数

Question

我有一个与使用ggplot2的R中的直方图有关的问题。我一直在尝试用两个不同的变量来表示直方图中的一些值。在尝试并在Stackoverflow中寻找一些解决方案后，我得到了它但是......有人知道如何将NAs计数作为新列打印，只是为了比较两个变量中的缺失吗？

这是R代码：

i<-"ADL_1_bathing"
j<-"ADL_1_T2_bathing"

t1<-data.frame(datosMedicos[,i])
colnames(t1)<-"datos"
t2<-data.frame(datosMedicos[,j])
colnames(t2)<-"datos"
t1$time<-"t1"
t2$time<-"t2"

juntarParaGrafico<-rbind(t1,t2)

ggplot(juntarParaGrafico, aes(datos, fill = time) ) + 
  geom_histogram(col="darkblue",alpha = 0.5, aes(y = ..count..), binwidth = 0.2, position = 'dodge', na.rm = F) + 
  theme(legend.justification = c(1, 1), legend.position=c(1, 1))+
  labs(title=paste0("Distribution of ",i), x=i, y="Count")

这是输出：

关于两个变量值但没有缺失条形的图像：

Answer 1

您可以尝试总结N4 b4绘图的数量。这个怎么样？

dayRender: function( date, cell ) { 
    var yesterday = moment();
    if (date <= yesterday) {
        $(cell).css('background', '#F1F1FF');
        $(cell).addClass('cell-no-drop');   

    }else{
        cell.css('cursor', 'pointer');
    }                        
},
eventAfterAllRender: function(view, element){
    var dts = $("#calendar").find('td');

    $($(".cell-no-drop")).each(function(){
        var self = this;
        $(dts).each(function(){    
            var pos = $(self).offset();
            var w = pos.left + $(self).width();
            var h = pos.top + $(self).height();

            if (pos.top <= $(this).offset().top && $(this).offset().top <= h &&  pos.left <= $(this).offset().left && $(this).offset().left <= w){
                $(this).css('cursor', 'no-drop');
            }
        });
    });
},