仅打印表格中的某些单元格

Question

我想打印一张图或一张表格（我不知道），如下图所示。 我应该使用什么方法？做一张桌子并打印或做一个情节效率更高？

预先感谢您。

Answer 1

这产生在空单元与所指示号码和NA的数据帧：

Lines <- "2 3 NA 
1 NA NA 
NA 4 NA 
NA NA 5 
6 NA NA" 

DF <- read.table(text = Lines) 
DF 

，并提供：

> DF 
    V1 V2 V3 
1 2 3 NA 
2 1 NA NA 
3 NA 4 NA 
4 NA NA 5 
5 6 NA NA 

使用上面DF并从GGPLOT2代码eipi10 here经过适当修改：

library(ggplot2) 

nr <- nrow(DF) 
nc <- ncol(DF) 
rownames(DF) <- 1:nr 
colnames(DF) <- 1:nc 

long <- as.data.frame.table(as.matrix(DF[nr:1,])) 

ggplot(long, aes(Var2, Var1)) + 
    geom_tile(colour="white", fill="grey", lwd=2) + 
    geom_text(label = sub("NA","", long$Freq)) + 
    theme(panel.background=element_blank(), 
     axis.text=element_blank(), 
     axis.ticks=element_blank(), 
     axis.title=element_blank()) + 
    guides(fill=FALSE) 

我们得到：