To my geom\_tile plot I need columns names, here 6, above the first row and below the subtitle
[![enter image description here](https://i.stack.imgur.com/bEmN4.png)](https://i.stack.imgur.com/bEmN4.png)
I tried adding it by 

```
 geom_text(x=10, y=10, label="testTEXT") +

```

but it doesn't show. Perhaps the coordinates are wrong (I tested various value)?

Here the full code:

```
library(tidyverse)
s1 = sample(c("p1","p12","p3","p14","p5","p13"),6)
s2 = sample(c("p1","p12","p3","p14","p5","p13"),6)
s3 = sample(c("p1","p12","p3","p14","p5","p13"),6)
s4 = sample(c("p1","p12","p3","p14","p5","p13"),6)
s5 = sample(c("p1","p12","p3","p14","p5","p13"),6)
s6 = sample(c("p1","p12","p3","p14","p5","p13"),6)
groupsNo = 6
BLUB = c(s1,s2,s3,s4,s5,s6)
df <- cbind.data.frame(items = BLUB, 
                       x = rep((1:groupsNo),each = length(s1)), 
                       y = rep(1:length(s1), groupsNo),
                       color = BLUB)

p1 <- ggplot(df,aes(x = x, y = y,fill=factor(color))) + 
  geom_line(aes(group = items,color=factor(color)), size = 2) + 
  geom_tile(width = 0.6, height = 0.6, color = 'black') + 
  theme_void() + 
  geom_text(aes(label = items), size=5) +
  # geom_text(x=100, y=0, label="testTEXT") +
  theme(legend.position = "none") +
  labs(
    y = "", x = "",
    title = "Plot for random data",
    subtitle = "text",
    caption = "text")
print(p1)

```