Extract the maximum value within each group in a dataframe [duplicate]

Answer 1

df$Gene <- as.factor(df$Gene)
do.call(rbind, lapply(split(df,df$Gene), function(x) {return(x[which.max(x$Value),])}))

Just using base R