użyj wielu kolumn jako zmiennych z sapply
mamdataframe
i chciałbym zastosować funkcję, która przyjmuje wartości trzech kolumn i oblicza minimalną różnicę między trzema wartościami.
<code>#dataset df <- data.frame(a= sample(1:100, 10),b = sample(1:100, 10),c= sample(1:100, 10)) #function minimum_distance <- function(a,b,c) { dist1 <- abs(a-b) dist2 <- abs(a-c) dist3 <- abs(b-c) return(min(dist1,dist2,dist3)) } </code>
Szukam czegoś takiego:
<code>df$distance <- sapply(df, function(x) minimum_distance(x$a,x$b,x$c) ) ## errormessage Error in x$a : $ operator is invalid for atomic vectors </code>
Podczas gdy mogę użyć ddply:
<code>df2 <- ddply(df,.(a),function(r) {data.frame(min_distance=minimum_distance(r$a,r$b, r$c))}, .drop=FALSE) </code>
To nie zachowuje wszystkich kolumn. Jakieś sugestie?
Edytuj: Skończyło się na:
<code>df$distance <- mapply(minimum_distance, df$a, df$b, df$c) </code>