是否可以将 R 数据框导出到 CSV，组之间有空白行？

Question

我有一个要导出为 CSV 的数据框，但我想在每个组之后插入一行，以便在打印出来时更易于阅读。

我知道这可以在导出后在 Excel 中完成 (How to automatically insert a blank row after a group of data)，并且我发现至少有两种方法可以在组 (Insert a blank row after each group of data) 之后插入空白，但它们要么 (1) 更改组的值并在空白行中插入一些虚拟值以使其工作，或者 (2) 不容易导出到 csv。作为出口的一部分，有没有办法做到这一点。例如，作为 write.csv 的一部分？

df <- tibble(
  x = c("a","a","a","b","c","c","c"),
  y = c(1,2,1,4,1,3,2)
)

理想情况下，这在 csv 中应该是这样的：

a 1
a 2
a 1

b 4

c 1
c 3
c 2

Answer 1

一个选项是在write.csv 之前创建一个空白行（带有add_row）

library(tidyverse)
df %>%
    group_split(x) %>% 
    map_df(~ .x %>% 
               add_row(x = '', y = ''))