I have this dataframe
id <- c(1,1,1,2,2,3) name <- c(\"A\",\"A\",\"A\",\"B\",\"B\",\"C\") value <- c(7:12) df<- data.frame(id=id, name=name, valu
Here's one way of doing it in base R.
> df.split <- split(df, df$name) > df.sample <- lapply(df.split, randomRows, 1) > df.final <- do.call("rbind", df.sample) > df.final id name value A 1 A 7 B 2 B 11 C 3 C 12