How do I separate data from one column into two

I have a column data$Floor from a dataset imported from CSV that supposedly contains the floor of an apartment. Here is a sample data:

I wish to separate the data to have the floor and the total floors as following:

I have done write(str_replace_all(data$Floor, "out of", " "), data) with the intention of splitting the columns where the space is, then writing the changes to the dataset data but I have no idea how to do that.

>Solution :

You can use tidyr::separate:

tidyr::separate(data, Floor, c('Floor', 'Total Floors'), sep = ' out of ')
#>    Floor Total Floors
#> 1 Ground            2
#> 2      1            3

Data used

data <- data.frame(Floor = c("Ground out of 2", "1 out of 3"))

data
#>             Floor
#> 1 Ground out of 2
#> 2      1 out of 3