代码之家 › 专栏 › 技术社区 › Maxxx

格式化R数据帧的输出

Maxxx · 技术社区 · 5 年前

因此,我目前在R中有一个数据帧,我想使用以下命令将其导出/写入文本文件 write.table()

以下是数据帧的示例:

ID      FirstName     LastName             Class
1000    John            NA                  C-02
1001    Jane            Wellington          C-03
1002    Kate            NA                  C-04
1003    Adam            West                C-05

我想把它写到一个文本文件中,对于每一行,如果任何列值都是NA,那么它就不会包含单词“NA”,而是继续到另一列。我想要的输出:

1000    John      C-02
1001    Jane      Wellington      C-03
1002    Kate      C-04
1003    Adam      West       C-05

如图所示,第一行没有输入姓氏,因此我将继续下一列,防止出现以下情况:

1000    John      NA      C-02

我执行了write.table()命令:

write.table(df, "student_list.txt", col.names = FALSE, row.names = FALSE, quote = FALSE, sep="\t")

但问题是,我得到的是我提到的第二个输出中包含NA的输出。

1 回复 | 直到 5 年前

Phil 5 年前

library(tidyverse)

dta <- tribble(
  ~ID, ~FirstName, ~LastName, ~Class,
  1000, "John", NA, "C-02",
  1001, "Jane", "Wellington", "C-03",
  1002, "Kate", NA, "C-04",
  1003, "Adam", "West", "C-05"
)

dta %>%
  unite(column, everything(), sep = "  ") %>%
  mutate(column = str_remove_all(column, "NA  ")) %>%
  write.table("student_list.txt", col.names = FALSE, row.names = FALSE, quote = FALSE, sep = "\t")

Taher A. Ghaleb 5 年前

我会用 apply 要删除 NA s并将行转换为文本行(使用 paste ),如下:

data <- apply(df, 1, function(row){
  paste(row[!is.na(row)], collapse="\t")
})

write.table(data, "student_list.txt", col.names = FALSE, row.names = FALSE, quote = FALSE, sep="\t")

文件输出如下:

#1000   John    C-02
#1001   Jane    Wellington  C-03
#1002   Kate    C-04
#1003   Adam    West    C-05

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

3 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

3 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

3 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

3 月前

Ben · 统计向量中的单词在字符串中出现的频率

3 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

3 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

3 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

3 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

3 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

4 月前