R - kableExtra - add_header_above() ：将我的 header 向量化为 for 循环时出现问题

Question

我正在尝试将新标题 object 向量化为 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

好的！

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"

击倒！ :( :( :(

谢谢大家的帮助！

Answer 1

你想做什么？

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

R - kableExtra - add_header_above() ：将我的 header 向量化为 for 循环时出现问题

R - kableExtra - add_header_above() : Trouble when vectorizing my header into a for loop

for-loop

r

kableextra