@Adrian Si tenemos el data.frame que señalas
Spp <- c("Solanum","Solanum","Solanum","Solanum","Solanum","Solanum","Solanum","Solanum","Taraxacum")
Habitat <- c("Edge", "Edge","Edge","Edge","Edge","Crop","Crop","Crop","Oakwood")
Site <- c("L1V","L1V","L2V","L3V","L1F","M1V","M1V","M4V","Q1F")
df<-data.frame(Spp=Spp, Habitat=Habitat, Site=Site)
Se observa que, si algunas filas fueran encadenas, se repiten.
Por ejemplo fila 1 y fila 2, el cada valor de la columna Site
debería corresponder a un único valor de Spp
y Habitat
. Para eso aplicamos lo siguiente
df <- unique(df)
# Spp Habitat Site
# 1 Solanum Edge L1V
# 3 Solanum Edge L2V
# 4 Solanum Edge L3V
# 5 Solanum Edge L1F
# 6 Solanum Crop M1V
# 8 Solanum Crop M4V
# 9 Taraxacum Oakwood Q1F
Con la data pre-estructurada, se puede aplicar encadenamiento (o tuberías) con la biblioteca dplyr
library(dplyr)
df %>%
# Se quiere que la colummna Habitat muestre a ese nivel a la
# columna Site como factor
group_by(Habitat) %>%
# Colapsamos cada valor de Site ya agrupado por la columna Habitat
# en la nueva columna SiteFactor
mutate(SiteFactor = paste0(Site, collapse = "/")) %>%
select(-Site) # eliminamos la columna Site de df
%>% unique # como arriba, eliminamos los duplicados de
# la columna SiteFactor
El resultado final
# A tibble: 3 x 3
# Groups: Habitat [3]
Spp Habitat SiteFactor
<fct> <fct> <chr>
1 Solanum Edge L1V/L2V/L3V/L1F
2 Solanum Crop M1V/M4V
3 Taraxacum Oakwood Q1F
NOTA: También pudo hacerse directamente, sólo fue para que se apreciara lo expuesto inicialmente.
library(dplyr)
df %>%
unique %>%
group_by(Habitat) %>%
mutate(SiteFactor = paste0(Site, collapse = "/")) %>%
select(-Site) %>%
unique