wykresik

mail@pastecode.io avatar
unknown
r
3 years ago
899 B
1
Indexable
Never
library(readr)
library(stringr)
#install.packages("zoo")
library(zoo)
library(ggplot2)
#install.packages("scales")
library(scales)
wyniki_odplyw_wody <- read_csv("wyniki_odplyw_wody.csv", 
                               col_types = cols(Month = col_character()))
str(wyniki_odplyw_wody)
names(wyniki_odplyw_wody)[2] = "wartosc"
wyniki_odplyw_wody$date = str_replace_all(wyniki_odplyw_wody$Month, pattern = "\\\\", replacement = "-")
wyniki_odplyw_wody$date = as.yearmon(wyniki_odplyw_wody$date)
wyniki_odplyw_wody$miesiac = as.character(wyniki_odplyw_wody$date)
wyniki_odplyw_wody
wyniki_odplyw_wody$num <- as.numeric(wyniki_odplyw_wody$date)

ggplot(wyniki_odplyw_wody, aes(x = date, y = wartosc)) + 
  geom_col(fill = "red") +
  xlab("Data") + ylab("Wartość") + 
  scale_y_continuous(name = "Wartość", sec.axis = sec_axis(~., name = ""))