Avance del año

library(ggplot2)
library(tidyverse)

df_y<-data.frame(seq(as.Date("2022-01-01"),as.Date("2022-12-31"),by = 1))
colnames(df_y)<-'yr2022'
df_y <-df_y%>% mutate(pasado=ifelse(yr2022<=Sys.Date(),"FALSE","TRUE"))
porcentaje<-df_y %>% 
  group_by(pasado) %>% summarise( count = n()) 
porcentaje <- porcentaje[2,2]/365
  

my_pal<-c("#708090","#B9D3EE")

G1 <-df_y %>% ggplot(aes(x=yr2022, fill=pasado, color=pasado)) + 
  geom_bar() +
  labs(x="",y="")  +
  theme(
        axis.text.y = element_blank()
        )  
G1 + 
  scale_fill_manual(values = my_pal, labels = c(paste(format((1-porcentaje)*100,digits=3 ),"%", sep = ""),paste(format(porcentaje*100,digits=3 ),"%", sep = "")),name = "Porcentaje") +
  scale_color_manual(values = my_pal, labels = c(paste(format((1-porcentaje)*100,digits=3 ),"%", sep = ""),paste(format(porcentaje*100,digits=3 ),"%", sep = "")),name = "Porcentaje") + 
  theme(panel.background = element_blank())