Apply auf alle Gruppen eines Dataframes anwenden
Verfasst: Mo Jan 28, 2019 12:03 pm
Hallo Alex,
bitte verwende niemals "<<-". Das ist schlimmer als einfach nur schlechter Stil:
Schreibe statt dessen:
Gruß, Jörg
bitte verwende niemals "<<-". Das ist schlimmer als einfach nur schlechter Stil:
Code: Alles auswählen
library("fortunes")
fortune(174)
Code: Alles auswählen
zuteilung <- function(df){
for (i in 1:nrow(df)){
ifelse((df$volumen_teil[i] <= volumen_kiste), (df$id_kiste[i] <- id_kiste) & (volumen_kiste <- volumen_kiste - df$volumen_teil[i]), (id_kiste <- id_kiste +1) & (df$id_kiste[i] <- id_kiste) & (volumen_kiste <- (100 - volumen_teil[i])))
}
df
}
df <- zuteilung(df)