Как добавить столбцы в гибкую таблицу в r

как добавить столбцы в гибкую таблицу в r

data <- iris[c(1:3, 51:53, 101:104),]
myft <- flextable(data, col_keys = c("Species", "Sepal.Length", "Petal.Length") )
myft