#!/usr/bin/env Rscript library(ggplot2) setwd("/var/www/files/public/arfigyelo") df <- readRDS(url("https://files.nagbalae.hu/public/arfigyelo/arfigyelo_arak.Rds")) kvantilisek <- c(0.15,0.5,0.85) aggr_df <- df |> aggregate(minUnitPrice ~ categoryPath + date, FUN = function(x){c(mean(x),quantile(x,kvantilisek))}) |> reshape(idvar = "date", timevar = "categoryPath", direction="wide") aggr_df$date <- aggr_df$date|> as.Date() print(unique(aggr_df$date)) colnames(aggr_df) <- colnames(aggr_df) |> gsub("minUnitPrice.","",x=_) remove(df) p <- ggplot(aggr_df[aggr_df$date > as.Date("2024-09-12"),],aes(date))+ # ggplot(aggr_df,aes(date))+ geom_ribbon(aes(ymin = `tartos_elelmiszer_ital/liszt_cukor_olaj/kristalycukor`[,2], ymax = `tartos_elelmiszer_ital/liszt_cukor_olaj/kristalycukor`[,4], fill = "Kristálycukor"), alpha = 0.2)+ # geom_line(aes(y=`hus_felvagott/szarnyas/csirkemell`[,1], col = "Csirkemell"))+ geom_line(aes(y=`tartos_elelmiszer_ital/liszt_cukor_olaj/kristalycukor`[,3], col = "Kristálycukor"))+ geom_ribbon(aes(ymin = `tejtermek_sajt_tojas/tej/esl_28`[,2], ymax = `tejtermek_sajt_tojas/tej/esl_28`[,4], fill = "Tej esl 2.8%"), alpha = 0.2)+ # geom_line(aes(y=`tejtermek_sajt_tojas/tej/esl_28`[,1], col = "Tej, esl 2.8%"))+ geom_line(aes(y=`tejtermek_sajt_tojas/tej/esl_28`[,3], col = "Tej, esl 2.8%"))+ geom_ribbon(aes(ymin = `tartos_elelmiszer_ital/liszt_cukor_olaj/etolaj`[,2], ymax = `tartos_elelmiszer_ital/liszt_cukor_olaj/etolaj`[,4], fill = "Étolaj"), alpha = 0.2)+ # geom_line(aes(y=`tartos_elelmiszer_ital/liszt_cukor_olaj/etolaj`[,1], col = "Étolaj"))+ geom_line(aes(y=`tartos_elelmiszer_ital/liszt_cukor_olaj/etolaj`[,3], col = "Étolaj"))+ geom_ribbon(aes(ymin = `tartos_elelmiszer_ital/liszt_cukor_olaj/finomliszt`[,2], ymax = `tartos_elelmiszer_ital/liszt_cukor_olaj/finomliszt`[,4], fill = "Finomliszt"), alpha = 0.2)+ # geom_line(aes(y=`tartos_elelmiszer_ital/liszt_cukor_olaj/finomliszt`[,1], col = "Finomliszt"))+ geom_line(aes(y=`tartos_elelmiszer_ital/liszt_cukor_olaj/finomliszt`[,3], col = "Finomliszt"))+ scale_color_manual(values = c("red","blue","green","yellow4","orange"))+ scale_fill_manual(values = c("red","blue","green","yellow4","orange"))+ guides(fill = "none")+ labs(y="Ár (Ft, medián)",x="", title = "Alapvető alapanyagok árai", subtitle = paste0("Medián, 15. és 85. percentilisek\n","2024-09-12"," és ", aggr_df[nrow(aggr_df),]$date, " között, napi gyakoriság"), col ="") png(filename = "alapveto.png", width = 800) p dev.off() p <- ggplot(aggr_df[aggr_df$date > as.Date("2024-09-12"),],aes(date))+ geom_ribbon(aes(ymin = `hus_felvagott/szarnyas/csirkemell`[,2], ymax = `hus_felvagott/szarnyas/csirkemell`[,4], fill = "Csirkemell"), alpha = 0.2)+ geom_line(aes(y=`hus_felvagott/szarnyas/csirkemell`[,3], col = "Csirkemell"))+ geom_ribbon(aes(ymin = `hus_felvagott/sertes/sertes_karaj`[,2], ymax = `hus_felvagott/sertes/sertes_karaj`[,4], fill = "Sertés karaj"), alpha = 0.3)+ geom_line(aes(y=`hus_felvagott/sertes/sertes_karaj`[,3], col = "Sertés karaj"))+ geom_ribbon(aes(ymin = `hus_felvagott/szarnyas/pulykamell`[,2], ymax = `hus_felvagott/szarnyas/pulykamell`[,4], fill = "Pulykamell"), alpha = 0.3)+ geom_line(aes(y=`hus_felvagott/szarnyas/pulykamell`[,3], col = "Pulykamell"))+ scale_color_manual(values = c("red","blue","green4","yellow4","orange"))+ scale_fill_manual(values = c("red","blue","green","yellow4","orange"))+ guides(fill = "none")+ labs(y="Ár (Ft, medián)",x="", title = "Húsok árai", subtitle = paste0("Medián, 15. és 85. percentilisek\n","2024-09-12"," és ", aggr_df[nrow(aggr_df),]$date, " között, napi gyakoriság"), col = "") png(filename = "husok.png", width = 800) # dev.print(file="husok.png", device=png, width=800) p dev.off() fileConn<-file("output.html") writeLines(c("

Árfigyelő árak

Naponta frissül, legutóbbi generálás: ", format(Sys.time(), "%Y-%m-%d, %H:%M:%S"), "

Alapvető élelmiszerek

$\"Élelmiszer$

Húsok

$\"Hús$ "), fileConn) close(fileConn) # id_df <- df[match("2024-09-12",df):nrow(df),] |> aggregate(minUnitPrice ~ id + date, "mean", na.rm=T) |> # reshape(idvar = "date", timevar = "categoryPath", direction="wide",) # object.size(aggr_df) |> format(units = "MiB") # object.size(df) |> format(units = "MiB")