Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/assembly/5.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中与表名相关的表数中_R_Row_Add - Fatal编程技术网

将表的特定行添加到R中与表名相关的表数中

将表的特定行添加到R中与表名相关的表数中,r,row,add,R,Row,Add,我有许多包含温度变量的表格。 此外,我还有一个包含坐标的表格。 我想为温度表指定坐标表的特定行。换句话说,结果是在每个温度表中创建一个新列,其中包含坐标表的一行。此外,根据坐标表的id,应将表的相应值添加到与表名称相关的温度表中 Table1:Tab2:Tab3: Tab4: -0.52|-0.93|-0.23|-0.32 -0.56|-0.33|-0.13|-0.37 -0.54|-0.13|-

我有许多包含温度变量的表格。 此外,我还有一个包含坐标的表格。 我想为温度表指定坐标表的特定行。换句话说,结果是在每个温度表中创建一个新列,其中包含坐标表的一行。此外,根据坐标表的id,应将表的相应值添加到与表名称相关的温度表中

Table1:Tab2:Tab3: Tab4:                       
-0.52|-0.93|-0.23|-0.32                           
-0.56|-0.33|-0.13|-0.37
-0.54|-0.13|-0.33|-0.64
-0.5 |-0.93|-0.53|-0.63
-0.54|-0.83|-0.63|-0.43
-0.56|-0.53|-0.38|-0.34
-0.62|-0.03|-0.13|-0.33

Coordinate:
id       E              N       
2     2579408.2431  1079721.1499
3     2579333.7158  1079729.1852
4     2579263.6502  1079770.1125
5     2579928.0358  1080028.4605
6     2579763.6471  1079868.9218
7     2579698.0756  1079767.9762
8     2579543.1019  1079640.6512

Results:
Table2:
Temperature  coordinate 
-0.52        2579408.2431  1079721.1499                    
-0.56        2579408.2431  1079721.1499   
-0.54        2579408.2431  1079721.1499
-0.5         2579408.2431  1079721.1499
-0.54        2579408.2431  1079721.1499
-0.56        2579408.2431  1079721.1499
-0.62        2579408.2431  1079721.1499

假设坐标是完全相同的,考虑<代码>合并/<代码> @ SEBASTAN-C,我如何应用合并,而我要自动预成型,并填充所有行具有相同的值。您有8个坐标,但有4个温度集。他们是按顺序配对的吗?这些额外的4个坐标有什么原因吗?@sebastian-c,这些表格只是一个例子。我有将近100个表和100个坐标,它们应该根据Id和表名进行匹配。是的,但是一个例子应该是最少的,以免混淆问题。表列和坐标行的顺序是否正确?
dat <- read.table(text="Table1|Table2|Table3|Table4
-0.52|-0.93|-0.23|-0.32
-0.56|-0.33|-0.13|-0.37
-0.54|-0.13|-0.33|-0.64
-0.5 |-0.93|-0.53|-0.63
-0.54|-0.83|-0.63|-0.43
-0.56|-0.53|-0.38|-0.34
-0.62|-0.03|-0.13|-0.33", sep="|", header=T)

coord <- read.table(text="id       E              N       
2     2579408.2431  1079721.1499
3     2579333.7158  1079729.1852
4     2579263.6502  1079770.1125
5     2579928.0358  1080028.4605
6     2579763.6471  1079868.9218
7     2579698.0756  1079767.9762
8     2579543.1019  1079640.6512", header=T)
> names(dat) <- gsub("[^[:digit:]]", "", names(dat))
> stacked <- stack(dat)
> names(stacked) <- c("Temperature, id")
> merge(stacked, coord)
   id Temperature       E       N
1   2       -0.93 2579408 1079721
2   2       -0.33 2579408 1079721
3   2       -0.13 2579408 1079721
4   2       -0.93 2579408 1079721
5   2       -0.83 2579408 1079721
6   2       -0.53 2579408 1079721
7   2       -0.03 2579408 1079721
8   3       -0.23 2579334 1079729
9   3       -0.13 2579334 1079729
10  3       -0.33 2579334 1079729
11  3       -0.53 2579334 1079729
12  3       -0.63 2579334 1079729
13  3       -0.38 2579334 1079729
14  3       -0.13 2579334 1079729
15  4       -0.32 2579264 1079770
16  4       -0.37 2579264 1079770
17  4       -0.64 2579264 1079770
18  4       -0.63 2579264 1079770
19  4       -0.43 2579264 1079770
20  4       -0.34 2579264 1079770
21  4       -0.33 2579264 1079770