Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/74.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R-kableExtra-add_header_over（）：将我的头矢量化到for循环时出现问题_R_For Loop_Kableextra - Fatal编程技术网
Fatal编程技术网
  • r/
  • R-kableExtra-add_header_over（）：将我的头矢量化到for循环时出现问题

R-kableExtra-add_header_over（）：将我的头矢量化到for循环时出现问题

r for-loop

R-kableExtra-add_header_over（）：将我的头矢量化到for循环时出现问题,r,for-loop,kableextra,R,For Loop,Kableextra,我试图将newheader对象矢量化到for循环中，但它不起作用：（ >colnames\u数据 [1] “4h-7h”“7h-9h”“9h-12h”“12h-15h30”“15h30-18h” [6] “18h-20h”“20h-22h”“22h-4h” newheader newheader 4h-7h 7h-9h 9h-12h 12h-15h30 15h30-18h 2 3 3 3 3 3 18h-20h 2

我试图将newheader对象矢量化到for循环中，但它不起作用：（

>colnames\u数据
[1] “4h-7h”“7h-9h”“9h-12h”“12h-15h30”“15h30-18h”
[6] “18h-20h”“20h-22h”“22h-4h”
newheader 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（1中的i：长度（colnames_数据））{
你想做什么


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 



colnames\u data我的评论被神秘地删除了！非常感谢Ronak的回答！你真的让我开心！我花了几个小时试图自己解决这个问题。。。

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" 



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