我正在使用Latex和R并使用以下代码。
<<echo=FALSE>>=
infile<-read.table("test.txt",sep="\t")
Col3 <- unique(infile[,3])
LCol3 <- length(Col3)
for (i in 1:LCol3) {
print(paste("Column", Col3[i]))
print(infile[infile[,3]==Col3[i],-3])
}
@
我得到以下输出。
1] "Column C"
V1 V2 V4
1 A B D
2 X T K
[1] "Column Z"
V1 V2 V4
3 Z U M
4 E V R
5 Z U M
[1] "Column P"
V1 V2 V4
6 E V R
我想避免编号和列名。我想要我的输出如下。
"Column C"
A B D
X T K
"Column Z"
Z U M
E V R
Z U M
"Column P"
E V R
我该怎么办?
答案 0 :(得分:2)
一般来说,print
是您尝试做的错误工具。您应该使用cat
代替。由于您的示例不可重现,这是一个非常简单的示例,说明了一些类似的用法:
d <- data.frame(V1 = LETTERS[1:5],V2 = letters[1:5], V3 = 1:5)
for (i in 1:5){
cat("Row",i,"\n")
cat(unlist(d[i,]),"\n\n")
}
Row 1
A a 1
Row 2
B b 2
Row 3
C c 3
Row 4
D d 4
Row 5
E e 5
请注意,需要取消列出数据框行,以便cat
能够合理地将各个元素粘贴在一起。