factor integer problem

load tidyverse

library(tidyverse)

generate data

df <- data.frame("pp_no" = c("pp1", "pp2", "pp3", "pp4", "pp5", "pp6", "pp7", "pp8", "pp9", "pp10"), 
                 "acc" = sample(c(0,1), replace=TRUE, size=10)) 

glimpse(df)

## Rows: 10
## Columns: 2
## $ pp_no <fct> pp1, pp2, pp3, pp4, pp5, pp6, pp7, pp8, pp9, pp10
## $ acc   <dbl> 0, 0, 0, 1, 0, 0, 1, 1, 1, 1

convert acc to factor

df$acc <- as.factor(df$acc)
glimpse(df)

## Rows: 10
## Columns: 2
## $ pp_no <fct> pp1, pp2, pp3, pp4, pp5, pp6, pp7, pp8, pp9, pp10
## $ acc   <fct> 0, 0, 0, 1, 0, 0, 1, 1, 1, 1

convert acc to integer

df$acc <- as.integer(df$acc)
glimpse(df)

## Rows: 10
## Columns: 2
## $ pp_no <fct> pp1, pp2, pp3, pp4, pp5, pp6, pp7, pp8, pp9, pp10
## $ acc   <int> 1, 1, 1, 2, 1, 1, 2, 2, 2, 2