R - KableExtra - Add_header_above (): проблема при попытке векторизовать мой заголовок в цикле for - PullRequest
Новая
       37

R - KableExtra - Add_header_above (): проблема при попытке векторизовать мой заголовок в цикле for

0 голосов
/ 29 сентября 2019

Я пытаюсь векторизовать объект newheader в цикле for, но он не работает :(! 

> colnames_data
[1] "4h-7h"     "7h-9h"     "9h-12h"    "12h-15h30" "15h30-18h"
[6] "18h-20h"   "20h-22h"   "22h-4h"   

newheader <- c(" " = 2, setNames(3, colnames_data[1]), setNames(3, colnames_data[2]), setNames(3, colnames_data[3]), setNames(3, colnames_data[4]), setNames(3, colnames_data[5]), setNames(3, colnames_data[6]), setNames(3, colnames_data[7]), setNames(3, colnames_data[8])) 

> newheader
              4h-7h     7h-9h    9h-12h 12h-15h30 15h30-18h 
        2         3         3         3         3         3 
  18h-20h   20h-22h    22h-4h 
        3         3         3

OK! 

for(i in 1:length(colnames_data)){
header_loop[i] <- setNames(3, colnames_data[i])
}

newheader <- c(" " = 2, header_loop)

>newheader 
                  3        <NA>        <NA>        <NA> 
        "2"         "3"     "7h-9h"    "9h-12h" "12h-15h30" 
       <NA>        <NA>        <NA>        <NA> 
"15h30-18h"   "18h-20h"   "20h-22h"    "22h-4h"

KO! :(:(: (

Спасибо всем за помощь!

1 Ответ

1 голос
/ 29 сентября 2019

Вы пытаетесь сделать? 

colnames_data <- c("4h-7h", "7h-9h", "9h-12h", "12h-15h30", "15h30-18h",
                   "18h-20h", "20h-22h","22h-4h")

setNames(c(2, rep(3, length(colnames_data))), c(" ", colnames_data))

#         4h-7h  7h-9h  9h-12h 12h-15h30 15h30-18h  18h-20h  20h-22h  22h-4h 
#   2         3      3       3         3         3        3        3       3
...