Как найти максимальную интенсивность пикселей двух областей, полученную после нахождения порога изображения

 vec <- unlist(lapply( df[ , 
                        names(df) %in% c("alpha","gamma", "zeta") ],
                levels) )[1:300]

Это даст уникальные уровни. Если вы хотите получить первые 300 значений в этих столбцах, сделайте следующее:

 vec <- unlist(lapply( df[ , 
                        names(df) %in% c("alpha","gamma", "zeta") ],
                as.character) )[1:300]