Question

我的数据的标题为“ z”，如下所示：

"       30.6716995239         0.0000000000         0.0000000000"
"       -6.3899497986        11.0677177090         0.0000000000"
"        0.0000000000         0.0000000000        34.1739006042"                                    
"Direct"

现在，我想在“直接”行之前添加一行“系统”，如下所示：

"       30.6716995239         0.0000000000         0.0000000000"
"       -6.3899497986        11.0677177090         0.0000000000"
"        0.0000000000         0.0000000000        34.1739006042"                                    
"System"
"Direct"

我可以使用以下内容将下面的“系统”行添加到“直接”行中。但我无法在“直接”行

前添加它

cat（z，sep =“ \ n”，file = tmp）＃sep =“ \ n”

cat（'System \ n'，file = tmp，append = T）

请提出任何建议。

Answer 1

您可以使用sub将Direct替换为System\nDirect，这会将System放在Direct之前。

cat(sub("Direct", "System\nDirect", z), sep="\n",file = tmp)

或使用类似的子设置：

cat(c(z[1:3], "System", z[-(1:3)]), sep="\n",file = tmp)\

数据：

z  <- c("       30.6716995239         0.0000000000         0.0000000000"
,"       -6.3899497986        11.0677177090         0.0000000000"
,"        0.0000000000         0.0000000000        34.1739006042"
 ,"Direct")

如何在上一个文本之前添加一行？

1 个答案: