如何从两个不同的数据框写入单个文本文件 - 一个具有名称，第二个具有使用 R 的值

Question

我有两个数据框。我想创建一个文本文件。它是水文模型的输入文件 感谢您的帮助。我试图编写文件代码格式，但它不接受。它也是一个等号的单列。我认为给定所需的输出文件解释得很好。

第一个数据框为

> lfz
   readLines("G:/Rlearning/wrds.txt")
1                    HYDRUS_Version =
2                         WaterFlow =
3                   SoluteTransport =
4                         Unsatchem =
5                         Unsatchem =
6                               HP1 =
7                     HeatTransport =
8             EquilibriumAdsorption =
9                    MobileImmobile =
10                  RootWaterUptake =
11                       RootGrowth =
12                  MaterialNumbers =
13                 SubregionNumbers =
14                        SpaceUnit =
15                         TimeUnit =
16                       PrintTimes =
17                  NumberOfSolutes =
18                 InitialCondition =
19                    NumberOfNodes =
20                     ProfileDepth =
21                 ObservationNodes =
22                      GridVisible =
23                       SnapToGrid =
24                     ProfileWidth =
25                       LeftMargin =
26                         GridOrgX =
27                         GridOrgY =
28                           GridDX =
29                           GridDY =

第二个数据帧是

这里 3 代表我创建的后备文件中的行号，我从中获取第 3 行并将其转换为列。这里的值是不同的。问题很简单。我想在等号后写入值并希望写入文本文件。

> C1    
      3
1     4
2     0
3     0
4     0
5     0
6     0
7     0
8     0
9     0
10    0
11    0
12    0
13    0
14   cm
15 days
16  160
17    0
18    1
19  101
20  120
21  160
22  160
23  160
24  160
25  160
26  160
27  160
28  160
29  160

所需的输出文本文件为

HYDRUS_Version=4
WaterFlow=3
SoluteTransport=0
Unsatchem=0
Unsatchem=0
HP1=2
HeatTransport=0
EquilibriumAdsorption=1
MobileImmobile=0
RootWaterUptake=1
RootGrowth=0
MaterialNumbers=1
SubregionNumbers=1
SpaceUnit=cm
TimeUnit=days
PrintTimes=180
NumberOfSolutes=0
InitialCondition=1
NumberOfNodes=101
ProfileDepth=1.2E+02
ObservationNodes=5
GridVisible=1
SnapToGrid=1
ProfileWidth=80
LeftMargin=40
GridOrgX=0
GridOrgY=0

Answer 1

您只需将字符串粘贴在一起，删除空格，然后将其写入文件：

outVec <- gsub("\\s*", "", paste(lfz[,1], C1[,1])) 
writeLines(outVec, "outfile.txt")   

您的数据应如下所示：

HYDRUS_Version=4
WaterFlow=0
SoluteTransport=0
Unsatchem=0
Unsatchem=0
HP1=0
HeatTransport=0
EquilibriumAdsorption=0
MobileImmobile=0
RootWaterUptake=0
RootGrowth=0
MaterialNumbers=0
SubregionNumbers=0
SpaceUnit=cm
TimeUnit=days
PrintTimes=160
NumberOfSolutes=0
InitialCondition=1
NumberOfNodes=101
ProfileDepth=120
ObservationNodes=160
GridVisible=160
SnapToGrid=160
ProfileWidth=160
LeftMargin=160
GridOrgX=160
GridOrgY=160
GridDX=160
GridDY=160

Answer 2

让我举个例子：

让我们创建两个数据框：

a <- data.frame(col1 = c('a = ','b = ','c = '))
b <- data.frame(col2 = c(1,2,3))

> a
  col1
1 a = 
2 b = 
3 c = 

> b
  col2
1    1
2    2
3    3

让我们将列从 b 复制到 a

a$col2 <- b$col2

让我们连接两列：

a$final <- paste0(a$col1, a$col2)
a$col1 <- NULL
a$col2 <- NULL

  final
1 a = 1
2 b = 2
3 c = 3

让我们把它写到一个文件中

write.csv(a, file = 'output.csv', row.names = FALSE, quote = FALSE)