在每组数据后插入一个空白行

Question

这个问题已经被问到了excel。 How to automatically insert a blank row after a group of data

我想知道R中是否有可以做同样事情的函数。

示例：

group <- c("a","b","b","c","c","c","d","d","d","d")
xvalue <- c(16:25)
yvalue <- c(1:10)
df <- data.frame(cbind(group,xvalue,yvalue))
   group xvalue yvalue
1      a     16      1
2      b     17      2
3      b     18      3
4      c     19      4
5      c     20      5
6      c     21      6
7      d     22      7
8      d     23      8
9      d     24      9
10     d     25     10

我想在每个组之后有一个空白行，以便我可以手动检查条目

   group xvalue yvalue
1      a     16      1
2
3      b     17      2
4      b     18      3
5
6      c     19      4
7      c     20      5
8      c     21      6
9
10     d     22      7
11     d     23      8
12     d     24      9
12     d     25     10

谢谢

Answer 1

首先将所有列转换为字符向量：

df_new <- as.data.frame(lapply(df, as.character), stringsAsFactors = FALSE)

然后你可以创建你正在寻找的输出：

head(do.call(rbind, by(df_new, df$group, rbind, "")), -1 )

#      group xvalue yvalue
# a.1      a     16      1
# a.2                     
# b.2      b     17      2
# b.3      b     18      3
# b.31                    
# c.4      c     19      4
# c.5      c     20      5
# c.6      c     21      6
# c.41                    
# d.7      d     22      7
# d.8      d     23      8
# d.9      d     24      9
# d.10     d     25     10

Answer 2

Sven 已经准确回答了您的要求，但我认为您想要做的通常是个坏主意。

如果您只希望实现视觉分离，我建议您只使用split：

split(df, df$group)
# $a
#   group xvalue yvalue
# 1     a     16      1
#
# $b
#   group xvalue yvalue
# 2     b     17      2
# 3     b     18      3
#
# $c
#   group xvalue yvalue
# 4     c     19      4
# 5     c     20      5
# 6     c     21      6
#
# $d
#    group xvalue yvalue
# 7      d     22      7
# 8      d     23      8
# 9      d     24      9
# 10     d     25     10

这具有以下优点：(1) 视觉分离，(2) 易于索引，(3) 无需转换数据，以及 (4) 允许您在数据的不同子集上运行相同的函数。