Wirkstoff_Code <- c("WI0815", "WI0816", "WI0817") Gehalt_MW <- c(98.3, 96.5, 97.9) Varianz <- c(1.1, 0.8, 1.2) Wirkstoffe <- data.frame(Wirkstoff_Code, Gehalt_MW, Varianz) Wirkstoffe str(Wirkstoffe) Wirkstoffe[2,2] Wirkstoffe[2,] Wirkstoffe$Varianz Wirkstoffe$Varianz[2] Wirkstoffe[Wirkstoffe$Gehalt_MW > 97,] WS_Extrakt <- Wirkstoffe[Wirkstoffe$Gehalt_MW > 97,] subset(Wirkstoffe, Gehalt_MW > 97) subset(Wirkstoffe, Gehalt_MW > 97, select = -3) Qualitaet <- c("o.k.", "nicht o.k.", "o.k.") Q_Lage <- data.frame(Wirkstoff_Code, Qualitaet) Q_Lage Q_Lage_WS <- merge(Wirkstoffe,Q_Lage, all.x = T) Q_Lage_WS Q_Lage_geteilt <- split(Q_Lage_WS, Qualitaet) Q_Lage_geteilt Q_Lage_geteilt$"nicht o.k."