我使用 pander
来生成 pandoc 样式表,我经常需要像这个例子一样抑制重复的变量值:
ta <- data.frame(class=c(rep("C1" ,3), rep("C2", 6)),
name=rep(c("L", "V", "C"), each=3), num=rpois(9, 10))
pandoc.table(ta)
输出是
--------------------
class name num
------- ------ -----
C1 L 15
C1 L 11
C1 L 8
C2 V 7
C2 V 7
C2 V 5
C2 C 12
C2 C 9
C2 C 12
--------------------
我愿意
--------------------
class name num
------- ------ -----
C1 L 15
11
8
C2 V 7
7
5
C 12
9
12
--------------------
问题类似这个Removing Locally Repeated Values当我将 dplyr 用于 data.frames 时,使用 mutate 的解决方案应该是值得的,我试过了但没有成功:
mutate(ta, class=ifelse(lag(class,1) == class & !is.na(lag(class,1)), "", class ))
最佳答案
This seems like an open bug that will be corrected.与此同时,这个解决方法似乎可以完成这项工作:
mutate(ta, class=ifelse(levels(class)[lag(class,1)] == class & !is.na(levels(class)[lag(class,1)]), "", class))
class name num
1 1 L 8
2 L 14
3 L 12
4 2 V 11
5 V 7
6 V 15
7 C 16
8 C 8
9 C 9
关于r - 生成没有重复值的 pandoc 表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30926719/