Создать тепловую карту и графическое представление вместе

Question

Я пытаюсь создать визуальное представление моих данных. У меня есть для каждого показателя и каждой страны первая и последняя доступная дата наблюдения. Я хотел бы визуализировать информацию с помощью диаграммы рассеяния с переменной y и значениями x, помеченными для каждой страны. Выше я создаю и тепловую карту, которая показывает, если данные не доступны до определенной даты (для минимального наблюдения, т.е. 1980), но это должно быть автоматическим. Любая идея? Ниже приведены некоторые коды.

rm(list=ls())

# my packages
install.packages("reshape2")
library(reshape2)


if (!require('gridExtra')) {install.packages('gridExtra'); library('gridExtra')}
if (!require('grid')) {install.packages('grid'); library('grid')}
if (!require('gtable')) {install.packages('gtable'); library('gtable')}
if (!require('ggplot2')) {install.packages('ggplot2'); library('ggplot2')}
if (!require('scales')) {install.packages('scales'); library('scales')}
if (!require('zoo')) {install.packages('zoo'); library('zoo')}
if (!require('ggplot')) {install.packages('ggplot'); library('ggplot')}


# my data
country <- c("AT","CY","DE","FR","ES","IE","MT")
gdp_min <- c("2001 Q1","1980 Q1","1999 Q2","2003 Q1","2007 Q1","1991 Q1","1980 Q4")
gdp_max <- c("2018 Q1","2019 Q1","2018 Q2","2019 Q2","2019 Q1","2018 Q3","2019 Q1")
cpi_min <- c("2002 Q1","1990 Q1","1999 Q4","2004 Q1","2008 Q1","1992 Q1","1981 Q3")
cpi_max <- c("2017 Q1","2019 Q3","2018 Q4","2019 Q3","2019 Q2","2017 Q3","2019 Q1")
df <- data.frame(country, gdp_min,gdp_max,cpi_min,cpi_max)
df
View(df)

df_m <- melt(df, id = "country")
df_m$value <- as.yearqtr(df_m$value)
df_m


p <- ggplot(df_m, aes(value, variable, label = country)) + # x and y axes => Var1 and Var2
  geom_dotplot() +
  geom_label()

p + geom_text()

grid.table(df)