You need to send plain text emails so that this does not happen to your data.
Assuming you want to ignore the first 2 columns:
> colSums(dta[, 3:7]>0, na.rm=TRUE)
Raki Whisky Wine Beer Cigarettes
153 153 153 153 32
----------------------------------------
David L Carlson
Department of Anthropology
Texas A&M University
College Station, TX 77843-4352
-----Original Message-----
From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of Engin YILMAZ
Sent: Sunday, October 29, 2017 1:49 PM
To: Ek Esawi <esaw...@gmail.com>
Cc: r-help@r-project.org
Subject: Re: [R] Count non-zero values in excluding NA Values
Dear R Staff
This is my file (www.fiscalforecasting.com/data.csv)
if you don't download this file, my dataset same as following
Year
Month
A
B
C
D
E
2005
July
0
*4*
NA
NA
*1*
2005
July
0
NA
NA
0
*9*
2005
July
NA
*4*
0
*1*
0
2005
July
*4*
0
*2*
*9*
NA
I try to count non-zero values which are not NA values for every *column*
*Sincerely*
*Engin YILMAZ*
2017-10-29 15:01 GMT+03:00 Ek Esawi <esaw...@gmail.com>:
> Since i could not see your data, the easiest thing comes to mind is
> court values excluding NAs, is something like this
> sum(!is.na(x))
>
> Best of luck--EK
>
> On Sun, Oct 29, 2017 at 6:25 AM, Engin YILMAZ <ispanyol...@gmail.com>
> wrote:
>
>> Dear R Staff
>>
>> You can see my data.csv file in the annex.
>>
>> I try to count non-zero values in dataset but I need to exclude NA in
>> this calculation
>>
>> My code is very long (following),
>> How can I write this code more efficiently and shortly?
>>
>> ## [NA_Count] - Find NA values
>>
>> data.na =sapply(data[,3:ncol(data)], function(c)
>> sum(length(which(is.na
>> (c)))))
>>
>>
>> ## [Zero] - Find zero values
>>
>> data.z=apply(data[,3:ncol(data)], 2, function(c) sum(c==0))
>>
>>
>> ## [Non-Zero] - Find non-zero values
>>
>> data.nz=nrow(data[,3:ncol(data)])- (data.na+data.z)
>>
>>
>> Sincerely
>> Engin YILMAZ
>>
>> <https://www.avast.com/sig-email?utm_medium=email&utm_source
>> =link&utm_campaign=sig-email&utm_content=webmail>
>> Virus-free.
>> www.avast.com
>> <https://www.avast.com/sig-email?utm_medium=email&utm_source
>> =link&utm_campaign=sig-email&utm_content=webmail>
>> <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
>> ______________________________________________
>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posti
>> ng-guide.html and provide commented, minimal, self-contained,
>> reproducible code.
>>
>
>
--
*Saygılarımla*
Engin YILMAZ
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Virus-free.
www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
