Конечно, повторяющаяся проблема: Преобразование имен строк в нескольких фреймах данных в столбец в фрейме данных
Надеюсь, это поможет:
data <- data.frame(x = 1:nrow(data), Sample_ID = row.names(data), data)