Counting the number of factor variables in a data frame - r

Question

After generating data, I combined 5 variables into a data frame.
Two of those variables are factors.
Task:
I want to count the number of variables in the data frame that
are factors.
I ran the code letting df equal both a matrix and a data frame.
I'm listing both error messages.
I need help in using rep function-where it's located in the R command in particular. Is using the count function the correct approach here and if not what should I do?
Can you help with this, please. Thank you. MM
XXX's mark questions in the output
> df
var1 var2 var3 var4 var5
[1,] -1.2070657 1 -0.6319780 3 -0.9952502
[2,] 0.2774292 2 0.3485368 1 1.9176811
[3,] 1.0844412 3 0.2075986 2 0.8032506
> class(df)
[1] "matrix"
> library(plyr)
> count(df[1:5,],as.factor)
Error in df[1:5, ] : subscript out of bounds
> df
var1 var2 var3 var4 var5
[1,] -1.2070657 1 -0.6319780 3 -0.9952502
[2,] 0.2774292 2 0.3485368 1 1.9176811
[3,] 1.0844412 3 0.2075986 2 0.8032506
> #Error in df[1:5, ] : subscript out of bounds df=matrix
no applicable method for 'as.quoted' applied to
an object of class "function" df=dataframe
XXXXXXXXXXXXXXXXXXX
> #2]
>
> #working example
> b=c(1,2,3,4,5,3,6)
> #Let’s count the 3s in the vector b.
> count3 <- length(which(b == 3))
> count3
[1] 2
>
> #apply the technique
> vec=c("var1","var2","var3","var4","var5")
> countF <- length(which(var1==as.factor))
Error in var1 == as.factor :
comparison (1) is possible only for atomic and list types XXXXXXXX
> #apply the technique again
> #count the number of variables that are factors in vec
> #var2 and var4 are factors
> vec=c("var1","var2","var3","var4","var5")
> countF <- length(which(vec==as.factor))
Error in vec == as.factor :
comparison (1) is possible only for atomic and list types
XXXXXXXXXXXXXXXXXXX
I had changed columns 2 and 4 to be factors prior to cbinding but in that process columns 2 and 4 reverted back to being numeric. I used as.factor trying to get the code to run. As I read over comments I wondered why lapply would not be appropriate since were dealing with an array of variable names in a list. Do all of the apply functions return TRUE's or FALSE's? I'm still learning when to apply each of them.
MM

Answer 1

If you want to count the number of factor variables, you can use sapply combined with is.factor:
sum(sapply(df, is.factor))
where df is your target data frame.

Answer 2

A few problems here:
Your subscript is out of bounds problem is because df[1:5, ] is rows 1:5, whereas columns would be df[ ,1:5]. It appears that you only have 3 rows, not 5.
The second error no applicable method for 'as.quoted' applied to
an object of class "function" is referring to the as.factor, which is a function. It is saying that a function doesn't belong within the function count. You can check exactly what count wants by running ?count in the console
A third problem that I see is that R will not automatically think that integers are factors. You will have to specify this with numbers. If you read in words, they are often automatically set as factors.
Here is a reproducible example:
> df<-data.frame("var1"=rnorm(3),"var2"=c(1:3),"var3"=rnorm(3),"var4"=c(3,1,2),"var5"=rnorm(3))
> str(df)
'data.frame': 3 obs. of 5 variables:
$ var1: num 0.716 1.43 -0.726
$ var2: int 1 2 3
$ var3: num 0.238 -0.658 0.492
$ var4: num 3 1 2
$ var5: num 1.71 1.54 1.05
Here I used the structure str() function to check what type of data I have. Note, var1 is read in as an integer when I generated it as c(1:3), whereas specifying c(3,1,2) was read in as numeric in var4
Here, I will tell R I want two of the columns to be factors, and I will make another column of words, which will automatically become factors.
> df<-data.frame("var1"=rnorm(3),"var2"=as.factor(c(1:3)),"var3"=rnorm(3),"var4"=as.factor(c(3,1,2))
+ ,"var5"=rnorm(3), "var6"=c("Green","Red","Blue"))
> str(df)
'data.frame': 3 obs. of 6 variables:
$ var1: num -1.18 1.26 -0.53
$ var2: Factor w/ 3 levels "1","2","3": 1 2 3
$ var3: num 1.38 -0.401 -0.924
$ var4: Factor w/ 3 levels "1","2","3": 3 1 2
$ var5: num 1.688 0.547 0.727
$ var6: Factor w/ 3 levels "Blue","Green",..: 2 3 1
You can then as which are factors:
> sapply(df, is.factor)
var1 var2 var3 var4 var5 var6
FALSE TRUE FALSE TRUE FALSE TRUE
And if you wanted a number for how many are factors something like this would get you there:
> length(which(sapply(df, is.factor)==TRUE))
[1] 3
You have something similar: length(which(vec==as.factor)), but one problem with this is you are asking which things in the vec object are the same as a function as.factor, which doesn't make sense. So it is giving you the error Error in vec == as.factor :
comparison (1) is possible only for atomic and list types
as.factor is for setting things as factor (as I have shown above), but is.factor is for asking if something is a factor, which will return a logical (TRUE vs FALSE) - also shown above.