Select columns and attach a vector of their new names, then columns with matching names will have each row summed. This is helpful to simplify your data quickly, like simplifying at a higher taxonomic group.
Arguments
- data
A data frame.
- from
The column names in
data.- to
A vector of new names, with matching names being the columns where each row will be summed.
Examples
Sites <- as.factor(c("One", "One", "One", "Two", "Two", "Three"))
Transect <- as.factor(c("1-Deep", "1-Shallow", "2-Shallow", "1-Shallow", "1-Deep", "1-Deep"))
Acropora.tabulate <- c(0.1, 0.6, 0.4, 0.9, 0.2, 0)
Acropora.corymbose <- c(0.4, 0, 0.1, 0, 0.3, 0.5)
Gardineroseris.sp <- c(0.4, 0.9, 0.5, 0.23, 0.5, 0.6)
Psammocora.sp <- c(0.9, 0.6, 0.5, 0.8, 0.1, 0.4)
Leptastrea.sp <- c(0.5, 0.7, 0.4, 0.8, 0.2, 0.3)
coral_cover <- data.frame(Sites, Transect, Acropora.tabulate, Acropora.corymbose,
Gardineroseris.sp, Psammocora.sp, Leptastrea.sp)
new_names <- c("Acropora.spp", "Acropora.spp", "Gardineroseris.sp",
"Psammocora.sp", "Leptastrea.sp")
sum_cols(data = coral_cover, from = colnames(coral_cover[,3:7]),
to = new_names)
#> Sites Transect Acropora.spp Gardineroseris.sp Psammocora.sp Leptastrea.sp
#> 1 One 1-Deep 0.5 0.40 0.9 0.5
#> 2 One 1-Shallow 0.6 0.90 0.6 0.7
#> 3 One 2-Shallow 0.5 0.50 0.5 0.4
#> 4 Two 1-Shallow 0.9 0.23 0.8 0.8
#> 5 Two 1-Deep 0.5 0.50 0.1 0.2
#> 6 Three 1-Deep 0.5 0.60 0.4 0.3