Печать только некоторых ячеек таблицы

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) 

мы получаем: