r - ggplotに追加されたR2およびRMSEテーブルをフォーマットするには?

Question

R2 と RMSE を facetted に追加しようとしていggplotます。そのために次のコードを使用しています

library(caret)
library(tidyverse)
library(ggpmisc)

summ <- iris %>% 
  group_by(Species) %>% 
  summarise(Rsq = R2(Sepal.Length, Petal.Length),
            RMSE = RMSE(Sepal.Length, Petal.Length)) %>% 
  mutate_if(is.numeric, round, digits=2) 

my.formula <- y ~ x

p <- ggplot(data=iris, aes(x = Sepal.Length, y = Petal.Length)) +
  geom_point(color="blue",alpha = 1/3) + 
  facet_wrap(Species ~ ., scales="free") +
  geom_smooth(method=lm, fill="black", formula = my.formula) +
  xlab("Sepal Length") +
  ylab("Petal Length") + theme_bw() +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) 

p + geom_table_npc(data = summ,label = split(summ, summ$Species),
                   npcx = 0.00, npcy = 1, hjust = 0, vjust = 1, size=3,
                   table.theme = ttheme_gtlight)

これにより、次のプロットが得られます

プロットからわかるように、の種の列geom_table_npcは不要です。次のようにプロットを取得するにはどうすればよいですか