仅打印表格的某些单元格

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和eipi10 here中的ggplot2代码进行了适当修改：

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)

我们得到：