データフレームからデータを切り取ってバランスを取るためにデータを切り取ります

Question

私は2600の要素レベルのデータフレームを持っています。データセットのバランスがよくない。

私は1つの要因に5つの未満の出現を持っているすべてのエントリを削除したいと思います。また、5までの5回の出現をトリミングするようにしたいと思います。最終的には、全体的なエントリが少ないデータフレームを作成したいのですが、要素の人とのバランスが取れています。

次のようにデータセットが構築されています：

file_list <- list.files("path/to/image/folder", full.names=TRUE) 
# the folder contains 2600 images, which include information about the 
# person factor in their file name 

file_names <- sapply(strsplit(file_list , split = '_'), "[", 1) 
person_list <- substr(file_names, 1 ,3) 
person_class <- as.factor(person_list) 

imageWidth = 320; # uniform pixel width of all images 
imageHeight = 280; # uniform pixel height of all images 
variableCount = imageHeight * imageWidth + 2 

images <- as.data.frame(matrix(seq(count),nrow=count,ncol=variableCount)) 
images[1] <- person_class 
images[2] <- eyepos_class 

for(i in 1:count) { 
    img <- readJPEG(file_list[i]) 
    image <- c(img) 
    images[i, 3:variableCount] <- image 
} 

だから基本的に私はsummary(images[1])を使用しているときのように（因子レベルごとのサンプルの量を取得する必要があり、その後、データをトリミングするための操作を行いますセット 私は本当にここを開始する方法がわからないと、任意のヘルプがdplyrを使用して

Answer 1

data.table

library(data.table) 
res <- setDT(images)[, if(.N > = 5) head(.SD, 5) , by = V1] 

Answer 2

を高く評価されています。

library(dplyr) 
group_by(images, V1) %>% # group by the V1 column 
    filter(n() >= 5) %>% # keep only groups with 5 or more rows 
    slice(1:5)   # keep only the first 5 rows in each group 

通常のように結果をオブジェクトに割り当てることができます。例my_desired_result = group_by(images, ...