Установите первые 3 строки в качестве заголовков в таблице R - PullRequest
Новая
       1

Установите первые 3 строки в качестве заголовков в таблице R

0 голосов
/ 26 марта 2020

У меня есть один большой набор данных, из которого я сделал подмножество для сайта (набор данных содержит несколько сайтов). Я хочу сделать таблицу для каждого сайта в R уценке, но с первыми тремя строками в качестве данных заголовка. Это потому, что я хочу использовать функцию add_header_above из пакета KableExtra. Теперь, когда я вызываю эту функцию в своем документе Markdown, файл не будет связан, и я предполагаю, что это потому, что порядок таблицы (с данными заголовка теперь в качестве переменных в таблице).

Вот код, который я использую, поместите подмножество в желаемый формат. Я знаю, что это не аккуратно, но это тот формат, в котором мне нужна таблица. Ниже приведена информация о преобразованном подмножестве. 

veg.temp <- veg.temp %>% select(Code, Jaar, everything()) %>% arrange(Code)
   veg.temp <- t(veg.temp)
    colnames(veg.temp) <- c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13","14", "15",
                            "16", "17", "18", "19", "20", "21", "22", "23", "24")

Я сделал искусственные имена столбцов (1:24), но я хочу, чтобы первые три строки были именами столбцов (Code, Jaar, Opnamenummer). Есть ли способ сделать это? Моя таблица теперь выглядит следующим образом (только первые несколько строк): enter image description here

Выходные данные для набора данных с подмножеством, включая приведенный выше код: 

structure(c("de Kom", "KoQ001", "2003", " 3921", " 0", "0", "0", 
" 0", "0", "0", "0", "0", "0", " 4", " 4", "0", "1", "0", "0", 
"0", " 0", " 1", "0", "0", "0", "0", " 0", "0", " 0", "0", "43", 
"0", "0", "0", "0", "0", "0", "0", "0", " 4", "1", "4", "4", 
"1", " 8", "0", "0", "0", " 0", "43", " 0", "0", "0", "1", "4", 
"0", "1", "1", "0", "0", " 4", "0", "0", "0", "0", "0", " 1", 
" 0", "4", "1", "0", "0", "0", "0", "0", "0", "18", "1", "0", 
"0", "0", "0", "0", "0", "1", "0", "1", "0", "0", "0", "0", "1", 
"1", "0", "0", "de Kom", "KoQ001", "2006", " 7014", " 0", "0", 
"0", "18", "0", "0", "0", "0", "0", "68", " 1", "0", "0", "0", 
"1", "0", " 0", " 0", "1", "0", "0", "0", " 0", "0", " 0", "0", 
"43", "0", "0", "0", "0", "0", "0", "0", "0", " 4", "0", "1", 
"4", "0", " 0", "0", "0", "0", "56", " 0", " 0", "0", "0", "1", 
"1", "1", "1", "0", "0", "0", " 4", "0", "0", "0", "0", "0", 
" 8", " 0", "4", "1", "0", "0", "0", "0", "0", "1", " 8", "1", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "0", "1", 
"1", "1", "0", "0", "de Kom", "KoQ001", "2009", "10257", " 0", 
"0", "0", " 0", "0", "0", "0", "0", "0", "68", " 1", "0", "0", 
"0", "0", "0", " 0", " 0", "0", "0", "0", "0", " 0", "0", " 0", 
"0", "18", "0", "0", "0", "0", "0", "0", "0", "0", " 4", "0", 
"1", "4", "0", " 1", "0", "0", "0", "81", " 0", " 0", "0", "0", 
"1", "0", "0", "0", "0", "0", "0", " 1", "0", "0", "0", "0", 
"0", " 4", " 0", "4", "0", "0", "0", "0", "1", "0", "1", "31", 
"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "1", "0", "de Kom", "KoQ001", "2012", "11259", 
" 0", "0", "0", " 0", "0", "0", "0", "0", "0", "43", " 4", "0", 
"0", "0", "1", "0", " 0", " 0", "0", "0", "0", "0", " 0", "0", 
" 0", "0", "18", "0", "0", "0", "0", "4", "0", "0", "0", " 4", 
"0", "1", "1", "0", " 0", "0", "0", "0", " 0", "56", " 0", "0", 
"1", "1", "0", "1", "0", "0", "0", "0", " 8", "0", "0", "0", 
"0", "0", " 8", "18", "8", "1", "0", "0", "0", "0", "0", "1", 
" 8", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "1", "1", "1", "0", "0", "de Kom", "KoQ002", "2003", 
" 3922", " 0", "1", "0", " 0", "0", "0", "0", "0", "0", " 4", 
" 4", "0", "0", "0", "0", "0", " 0", " 1", "0", "0", "0", "0", 
" 0", "0", " 1", "1", "43", "0", "0", "0", "0", "0", "0", "0", 
"0", " 4", "0", "1", "4", "1", " 4", "0", "0", "0", " 0", "43", 
" 0", "0", "0", "1", "4", "1", "0", "0", "0", "0", " 8", "0", 
"0", "0", "0", "1", " 1", " 0", "4", "1", "0", "0", "0", "1", 
"0", "0", "18", "0", "0", "0", "0", "0", "1", "0", "1", "1", 
"1", "1", "0", "0", "1", "1", "1", "0", "0", "de Kom", "KoQ002", 
"2006", " 7016", " 0", "0", "0", " 0", "0", "0", "0", "0", "0", 
" 8", " 1", "0", "1", "0", "1", "0", " 0", " 4", "0", "0", "0", 
"0", " 0", "0", " 0", "0", "31", "0", "0", "0", "1", "0", "0", 
"0", "0", " 8", "1", "1", "4", "1", "18", "0", "0", "0", "56", 
" 0", " 0", "0", "1", "1", "1", "4", "0", "1", "0", "0", " 8", 
"0", "0", "0", "0", "0", " 4", " 0", "4", "4", "0", "0", "0", 
"0", "0", "1", " 8", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "1", "1", "0", "0", "1", "1", "4", "0", "0", "de Kom", "KoQ002", 
"2009", " 9778", " 0", "0", "0", " 0", "1", "0", "0", "0", "0", 
"18", " 1", "0", "0", "0", "1", "0", " 0", " 1", "0", "0", "0", 
"0", " 1", "0", " 0", "0", " 8", "0", "0", "0", "0", "4", "0", 
"0", "0", "18", "1", "1", "1", "1", " 8", "1", "0", "0", " 0", 
"68", " 0", "0", "1", "1", "1", "1", "0", "1", "0", "0", "18", 
"0", "0", "0", "0", "0", "18", " 0", "8", "1", "0", "0", "0", 
"0", "0", "1", " 8", "1", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "1", "0", "0", "1", "1", "1", "0", "0", "de Kom", "KoQ002", 
"2012", "11372", " 0", "0", "0", " 0", "0", "0", "0", "0", "0", 
"31", " 4", "0", "1", "0", "1", "0", " 0", " 1", "0", "0", "0", 
"0", " 1", "0", " 0", "0", " 3", "0", "0", "0", "0", "4", "0", 
"1", "0", " 4", "0", "1", "1", "0", " 1", "1", "0", "0", " 0", 
"93", " 0", "0", "1", "1", "4", "1", "0", "1", "0", "1", " 8", 
"0", "0", "0", "0", "0", " 4", " 0", "4", "1", "0", "0", "1", 
"0", "0", "1", " 1", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "1", "0", "0", "1", "1", "1", "0", "0", "de Kom", "KoQ003", 
"2003", " 3923", " 0", "0", "1", " 0", "0", "1", "0", "0", "0", 
" 0", " 4", "0", "0", "8", "0", "0", "31", " 4", "0", "0", "0", 
"4", " 8", "0", " 2", "1", " 0", "0", "0", "0", "0", "0", "0", 
"1", "0", " 4", "0", "0", "0", "0", " 0", "0", "0", "0", " 0", 
" 4", " 0", "0", "0", "0", "1", "0", "0", "0", "0", "0", " 0", 
"1", "1", "1", "4", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 1", "0", "4", "0", "0", "0", "4", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "de Kom", "KoQ003", 
"2006", " 7017", " 0", "0", "1", " 0", "0", "1", "0", "1", "0", 
" 0", " 4", "1", "4", "8", "0", "0", " 8", " 4", "0", "0", "0", 
"4", " 8", "0", " 8", "1", " 0", "0", "1", "0", "1", "0", "1", 
"0", "0", " 4", "0", "0", "1", "0", " 0", "0", "0", "0", "18", 
" 0", " 0", "0", "0", "0", "1", "0", "0", "0", "0", "0", " 0", 
"4", "1", "1", "4", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 1", "0", "4", "0", "0", "0", "4", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "de Kom", "KoQ003", 
"2009", " 9775", " 0", "0", "1", " 0", "0", "0", "0", "0", "0", 
" 1", " 4", "1", "4", "4", "0", "0", " 8", " 1", "0", "0", "1", 
"0", " 1", "0", " 8", "0", " 0", "0", "0", "0", "0", "0", "1", 
"0", "0", " 1", "0", "0", "1", "0", " 0", "0", "0", "0", " 0", 
"31", " 0", "0", "1", "1", "1", "1", "0", "0", "0", "0", " 0", 
"1", "0", "1", "1", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 1", "0", "1", "0", "0", "0", "8", "1", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "de Kom", "KoQ003", 
"2012", "11374", " 0", "1", "0", " 0", "0", "0", "0", "0", "1", 
" 0", " 4", "0", "1", "4", "0", "0", " 8", " 4", "0", "1", "0", 
"0", " 1", "0", " 8", "0", " 0", "0", "0", "0", "0", "0", "0", 
"1", "0", " 1", "0", "0", "1", "0", " 0", "0", "0", "0", " 0", 
"31", " 0", "0", "1", "0", "1", "1", "0", "0", "0", "0", " 0", 
"1", "0", "1", "1", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 1", "0", "1", "0", "0", "0", "1", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "de Kom", "KoQ004", 
"2003", " 3924", " 0", "0", "1", " 0", "0", "0", "0", "0", "0", 
" 0", " 4", "1", "1", "8", "0", "0", "18", " 4", "0", "0", "0", 
"4", " 8", "0", " 4", "1", " 0", "0", "0", "1", "0", "0", "0", 
"1", "0", " 4", "0", "0", "0", "0", " 0", "0", "0", "0", " 0", 
"18", " 0", "0", "0", "1", "1", "0", "0", "0", "0", "0", " 0", 
"1", "0", "0", "4", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 1", "0", "4", "0", "0", "0", "4", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "1", "de Kom", "KoQ004", 
"2006", " 7015", " 0", "0", "1", " 0", "0", "0", "0", "1", "0", 
" 0", " 4", "1", "4", "4", "0", "4", "43", " 4", "0", "0", "0", 
"4", " 0", "0", " 8", "1", " 0", "0", "0", "0", "1", "0", "1", 
"0", "0", " 4", "0", "0", "0", "0", " 0", "0", "1", "0", "31", 
" 0", " 0", "0", "0", "0", "1", "0", "0", "0", "0", "0", " 0", 
"4", "0", "1", "4", "1", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 3", "0", "4", "0", "0", "0", "1", "0", "0", 
"0", "0", "0", "0", "1", "1", "0", "1", "0", "1", "de Kom", "KoQ004", 
"2009", "10255", " 0", "0", "1", " 0", "0", "1", "0", "0", "0", 
" 0", " 4", "1", "1", "8", "0", "0", "18", " 8", "0", "0", "1", 
"0", "18", "0", "18", "1", " 0", "0", "0", "0", "0", "0", "1", 
"0", "0", " 4", "0", "0", "0", "0", " 0", "0", "1", "0", "31", 
" 0", " 0", "1", "1", "1", "2", "1", "0", "0", "0", "0", " 0", 
"1", "1", "1", "4", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", "18", "0", "4", "1", "0", "1", "1", "1", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "1", "de Kom", "KoQ004", 
"2012", "11261", " 0", "0", "1", " 0", "0", "1", "0", "0", "1", 
" 0", " 1", "0", "1", "4", "0", "0", "31", "18", "0", "1", "1", 
"0", "43", "0", " 8", "1", " 0", "1", "0", "0", "0", "0", "1", 
"0", "0", " 1", "0", "0", "1", "0", " 0", "0", "1", "0", " 8", 
" 0", " 0", "1", "0", "1", "1", "1", "0", "0", "0", "0", " 0", 
"1", "0", "1", "1", "0", " 0", " 0", "0", "0", "0", "0", "0", 
"0", "0", "0", " 8", "0", "1", "1", "0", "0", "8", "0", "0", 
"0", "0", "0", "0", "0", "1", "1", "1", "0", "1", "de Kom", "KoQ005", 
"2003", " 3925", " 0", "0", "0", " 0", "0", "0", "0", "0", "0", 
" 4", "56", "0", "0", "0", "0", "0", " 1", " 4", "0", "0", "0", 
"0", " 0", "0", " 0", "0", " 0", "0", "0", "0", "0", "0", "0", 
"0", "0", " 4", "0", "0", "0", "0", " 0", "0", "0", "0", " 0", 
"93", " 0", "0", "0", "1", "1", "0", "0", "0", "0", "0", " 4", 
"0", "0", "0", "0", "0", " 0", " 0", "1", "0", "0", "0", "0", 
"1", "1", "0", " 0", "4", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "de Kom", "KoQ005", 
"2006", " 7019", " 0", "1", "0", " 0", "0", "0", "0", "0", "0", 
"18", "43", "0", "1", "0", "0", "0", " 1", " 0", "0", "0", "0", 
"0", " 4", "0", " 0", "1", " 0", "0", "0", "0", "0", "0", "1", 
"0", "1", " 4", "0", "0", "1", "0", " 1", "0", "0", "0", "68", 
" 0", " 0", "0", "0", "1", "1", "1", "0", "0", "1", "0", " 8", 
"1", "0", "0", "1", "0", " 0", " 0", "4", "0", "0", "0", "0", 
"0", "1", "0", " 0", "4", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "de Kom", "KoQ005", 
"2009", " 9777", " 0", "1", "0", " 0", "0", "0", "2", "1", "0", 
"68", " 4", "0", "0", "0", "0", "0", " 0", " 0", "0", "0", "0", 
"0", " 4", "0", " 0", "1", " 2", "0", "0", "0", "0", "0", "1", 
"0", "0", " 4", "0", "0", "0", "0", " 0", "0", "0", "0", "88", 
" 0", " 0", "0", "1", "2", "2", "2", "0", "0", "3", "0", " 8", 
"0", "0", "0", "1", "0", " 0", " 0", "4", "0", "1", "0", "1", 
"0", "2", "0", " 0", "4", "0", "0", "1", "0", "1", "0", "0", 
"0", "0", "1", "0", "0", "4", "0", "0", "0", "0", "de Kom", "KoQ005", 
"2012", "11373", "18", "0", "0", " 0", "0", "0", "1", "0", "0", 
"56", " 8", "0", "0", "0", "1", "0", " 1", " 1", "0", "0", "0", 
"0", " 0", "0", " 0", "0", " 2", "0", "0", "0", "0", "0", "0", 
"1", "0", " 1", "0", "0", "0", "0", " 1", "0", "0", "1", " 0", 
" 0", "93", "0", "0", "1", "1", "1", "0", "0", "1", "0", " 8", 
"0", "0", "0", "0", "0", " 0", " 0", "1", "0", "0", "1", "1", 
"0", "1", "0", " 0", "1", "0", "1", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "de Kom", "KoQ006", 
"2003", " 3926", " 0", "1", "0", " 0", "0", "0", "0", "0", "0", 
" 4", "43", "0", "0", "0", "0", "0", " 1", " 0", "0", "0", "0", 
"0", " 1", "0", " 0", "0", " 1", "0", "0", "0", "0", "0", "0", 
"0", "0", " 4", "0", "0", "1", "0", " 1", "0", "0", "0", " 0", 
"93", " 0", "0", "0", "1", "1", "1", "0", "0", "0", "0", " 1", 
"0", "0", "0", "1", "0", " 0", " 0", "4", "0", "0", "0", "0", 
"0", "0", "0", " 0", "4", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "de Kom", "KoQ006", 
"2006", " 7018", " 0", "1", "0", " 0", "0", "0", "0", "0", "0", 
" 4", "81", "0", "0", "0", "4", "0", " 0", " 0", "0", "0", "0", 
"0", " 1", "1", " 0", "1", "31", "0", "0", "0", "0", "0", "0", 
"0", "0", " 4", "0", "0", "1", "0", " 0", "0", "0", "0", "81", 
" 0", " 0", "0", "0", "1", "1", "0", "0", "0", "0", "0", " 4", 
"1", "0", "0", "1", "0", " 0", " 0", "1", "0", "0", "0", "0", 
"0", "0", "0", " 0", "4", "0", "0", "1", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "de Kom", "KoQ006", 
"2009", "10256", " 0", "0", "0", " 0", "0", "0", "0", "0", "0", 
"68", " 8", "0", "0", "0", "1", "0", " 0", " 0", "0", "0", "0", 
"0", " 1", "0", " 0", "0", " 8", "0", "0", "0", "0", "0", "0", 
"0", "0", " 4", "0", "0", "1", "0", " 0", "0", "0", "0", "81", 
" 0", " 0", "0", "0", "1", "0", "0", "0", "0", "1", "0", " 4", 
"0", "0", "0", "0", "0", " 0", " 0", "1", "0", "0", "0", "0", 
"0", "0", "0", " 0", "1", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "de Kom", "KoQ006", 
"2012", "11260", " 0", "0", "0", " 0", "0", "0", "0", "0", "0", 
"68", " 4", "0", "0", "0", "1", "0", " 0", " 1", "0", "0", "0", 
"0", " 0", "0", " 0", "0", "18", "0", "0", "0", "0", "0", "0", 
"0", "0", " 1", "0", "0", "1", "0", " 0", "0", "0", "0", "31", 
" 0", " 0", "0", "1", "1", "0", "0", "0", "0", "1", "0", " 4", 
"0", "0", "0", "0", "0", " 0", " 0", "1", "0", "0", "0", "0", 
"0", "0", "0", " 0", "1", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"), .Dim = c(95L, 
24L), .Dimnames = list(c("Terrein", "Code", "Jaar", "Opnamenummer", 
"Agrostis.capillaris6", "Aira.praecox6", "Ammophila.arenaria6", 
"Avenula.pubescens6", "Botrychium.lunaria6", "Brachythecium.albicans9", 
"Brachythecium.rutabulum6", "Bryum.capillare9", "Bryum.species9", 
"Calamagrostis.epigejos6", "Carex.arenaria6", "Carlina.vulgaris6", 
"Cerastium.semidecandrum6", "Ceratodon.purpureus9", "Cladonia.portentosa9", 
"Cladonia.ciliata9", "Cladonia.foliacea9", "Cladonia.furcata9", 
"Cladonia.scabriuscula9", "Cladonia.gracilis9", "Cladonia.grayi9", 
"Cladonia.pocillum9", "Cladonia.rangiformis9", "Conyza.canadensis6", 
"Corynephorus.canescens6", "Cynoglossum.officinale6", "Dicranum.scoparium9", 
"Diploschistes.muscorum9", "Ditrichum.flexicaule9", "Echium.vulgare6", 
"Elymus.species6", "Elytrigia.repens6", "Erodium.cicutarium.s..cicutarium6", 
"Erodium.cicutarium.s..dunense6", "Erophila.verna6", "Festuca.rubra6", 
"Fragaria.vesca6", "Galium.mollugo6", "Galium.verum6", "Geranium.molle6", 
"Helictotrichon.pubescens6", "Hieracium.pilosella6", "Hippophae.rhamnoides6", 
"Holcus.lanatus6", "Hypnum.cupressiforme9", "Hypnum.cupressiforme.v..lacunosum9", 
"Hypnum.jutlandicum9", "Hypochaeris.glabra6", "Hypochaeris.radicata6", 
"Jacobaea.vulgaris.s..vulgaris6", "Koeleria.macrantha6", "Leontodon.saxatilis6", 
"Leymus.arenarius6", "Ligustrum.vulgare6", "Linaria.vulgaris6", 
"Lotus.corniculatus6", "Luzula.campestris6", "Myosotis.ramosissima6", 
"Oenothera.species6", "Ononis.repens.s..repens6", "Phleum.arenarium6", 
"Picris.hieracioides6", "Plagiomnium.affine9", "Pleurozium.schreberi9", 
"Poa.pratensis6", "Polygala.vulgaris6", "Polytrichum.juniperinum9", 
"Polytrichum.piliferum9", "Pseudoscleropodium.purum9", "Quercus.robur6", 
"Racomitrium.canescens9", "Rosa.spinosissima6", "Rubus.caesius6", 
"Rumex.acetosella6", "Saxifraga.tridactylites6", "Senecio.inaequidens6", 
"Senecio.sylvaticus6", "Senecio.viscosus6", "Syntrichia.ruralis.v..arenicola9", 
"Syntrichia.ruralis.var..calcicola9", "Taraxacum.agaurum6", "Taraxacum.dunense6", 
"Taraxacum.rubicundum6", "Taraxacum.sectie.Erythrosperma6", "Taraxacum.species6", 
"Tulostoma.brumale9", "Veronica.arvensis6", "Veronica.officinalis6", 
"Vicia.lathyroides6", "Vicia.sativa6", "Viola.curtisii6"), NULL))

1 Ответ

1 голос
/ 26 марта 2020

Возможно, причина в структуре ваших данных. Это может работать (при условии, что ваши данные хранятся в df: 

dt <- as.data.frame(df)
colnames(dt) <- as.character(unlist(dt[3,])) ## taking row 3 ("jaar") as column names

my_header1 <- c(rownames(dt)[1],as.character(unlist(dt[1,]))) # create a header from rowname of row 1 and the contents
my_header2 <- c(rownames(dt)[2],as.character(unlist(dt[2,]))) # same for row 2

# HTML table
kable(dt[4:nrow(dt),], format = "html", caption = "Demo Table") %>%   # picking only rows 4 ff
  kable_styling(bootstrap_options = "striped",
                full_width = F) %>%
  add_header_above(header = my_header2) %>% # adding headers
  add_header_above(header = my_header)  # adding headers
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...