在将数据框写入.txt文件时,当您打开文本文件时,它会在文本文件中创建额外的一行,但额外的行在数据框中看不到,我try 了很多方法来解决它. 我用了所有推荐的例子,比如trims()writeLines().

但在最后,每当我将文件写入.txt时,它总是会创建额外的一行.有没有办法解决这个问题.

我知道,实际上,我所要做的就是打开txt文件并删除最后一行.但我正在以这种方式写入100个文件,对于100个txt文件来说,这是不可能的.

附件是我使用过的代码:

library(readxl)
library(openxlsx)
library(dplyr)
library(tidyr)

# create a matrix of random numbers
data <- matrix(rnorm(5*3), nrow=5, ncol=3)

# create a vector of characters
chars <- letters[1:5]

# create a dataframe with random numbers and a character column
df <- data.frame(char_col=chars, data)

filename <- paste0("FileName_1,",".txt")
write.table(df, file = filename, row.names = FALSE, col.names = FALSE, quote = FALSE)

有没有人能帮帮我,我已经试过所有办法了,我希望有一个解决方案.这真的可行吗?

附件是写完这篇文章后的问题快照.黄线如下所示:

picture of dataframe output with extra line on the end

推荐答案

您可以编写R代码来丢弃最后一个字节,因为那里有一个您想丢弃的LineFeed或类似的东西

# open the connection to the file
in_filename <- "file.txt"
out_filename <- paste0("cleaned_",in_filename)
con_in <- file(in_filename, "rb")
con_out <- file(out_filename,"wb")
# get the total number of bytes in the file
size <- file.size(in_filename)

#Writing the output to local drive
writeBin(readBin(con_in,
        what = "raw",
        n = size - 2 ),
        con = con_out )

# close the connection
close(con_in)
close(con_out)
 

R相关问答推荐

将带有范围的字符串转换为R中的数字载体

如何创建构成多个独立列条目列表的收件箱框列?

R的GG平行坐标图中的排序变量

如何替换R中数据集列中的各种字符串

更改绘图上的x轴断点,而不影响风险?

如何在区分不同条件的同时可视化跨时间的连续变量?

如何基于两个条件从一列中提取行

R:用GGPLATE,如何在两个独立的变量中制作不同形状的散点图?

如何从向量构造一系列双边公式

使用不同的定性属性定制主成分分析中点的 colored颜色 和形状

使用geom_iles在一个切片中包含多个值

有没有办法一次粘贴所有列

我如何使用循环来编写冗余的Rmarkdown脚本?

使用ggplot2中的sec_axis()调整次轴

使用列中的值来调用函数调用中应使用的其他列

Data.table::Shift type=允许扩展数据(&Q;LAG&Q;)

GOGPLATE geom_boxploy色彩疯狂

使用其他DF中的文件名将列表中的每个元素保存到文件中

将y轴格式更改为R中的百分比

在子图内和子图之间对齐行数不均匀的表格罗布对