R version 3.5.2 (2018-12-20) -- "Eggshell Igloo"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R jest oprogramowaniem darmowym i dostarczany jest BEZ JAKIEJKOLWIEK GWARANCJI.
Możesz go rozpowszechniać pod pewnymi warunkami.
Wpisz 'license()' lub 'licence()' aby uzyskać szczegóły dystrybucji.

R jest projektem kolaboracyjnym z wieloma uczestnikami.
Wpisz 'contributors()' aby uzyskać więcej informacji oraz
'citation()' aby dowiedzieć się jak cytować R lub pakiety R w publikacjach.

Wpisz 'demo()' aby zobaczyć demo, 'help()' aby uzyskać pomoc on-line, lub
'help.start()' aby uzyskać pomoc w przeglądarce HTML.
Wpisz 'q()' aby wyjść z R.

[Poprzednio zapisany obszar roboczy został przywrócony]

> require(ggplot2)
Ładowanie wymaganego pakietu: ggplot2
> require(dplyr)
Ładowanie wymaganego pakietu: dplyr

Dołączanie pakietu: ‘dplyr’

Następujące obiekty zostały zakryte z ‘package:stats’:

    filter, lag

Następujące obiekty zostały zakryte z ‘package:base’:

    intersect, setdiff, setequal, union

> 
> 
> dist.25 <- 250000
> dist.2019 <- 242355
> 
> ###
> today <- Sys.Date()
> ##tt<- format(today, "%d/%b/%Y")
> tt<- format(today, "%Y")
> ##
> 
> ax.ticks <- as.factor(c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"))
> 
> d <- read.csv("opus_yr.csv", sep = ';', dec = ",",  header=F, na.string="NA");
> names(d) <- c("dd", "mm", "yyyy", "dist")
> 
> dist.yr <- sum(d$dist)
> pt <- dist.2019 + dist.yr
> 
> dm <- d %>% mutate(cat = factor(mm)) %>%
+   group_by (cat) %>%
+   summarise( tdist = sum(dist, na.rm=TRUE) ) %>%
+   as.data.frame
> 
> str(dm)
'data.frame':	1 obs. of  2 variables:
 $ cat  : Factor w/ 1 level "1": 1
 $ tdist: int 495
> 
> ###
> yyyy.first <- first(dm$cat)
> yyyy.last <- last(dm$cat)
> 
> time.period <- sprintf ("months: %s--%s", yyyy.first, yyyy.last)
> 
> time.period
[1] "months: 1--1"
> 
> p.m <- ggplot(dm, aes(x = cat, y = tdist )) +
+     ggtitle(sprintf ("Personal cycling stats: distance covered in %s (%s)", tt, time.period),
+           subtitle=sprintf("Personal total: %i kms", pt)) +
+     xlab("month") + ylab("ths km") +
+     geom_bar(position = 'dodge', stat = 'identity', fill = "steelblue") +
+     scale_x_discrete(breaks=ax.ticks,  labels=c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")) +
+     xlim("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12") +
+     geom_text(data=dm, aes(label=sprintf("%.2f", tdist), y= tdist), vjust=1.5, color="darkblue", size=3 )
Scale for 'x' is already present. Adding another scale for 'x', which will
replace the existing scale.
> 
> p.m
> 
> ggsave(p.m, file="opus_yr.png", width=9)
Saving 9 x 7 in image
> 
> proc.time()
użytkownik     system   upłynęło 
     2.603      0.072      2.692