wykresik
unknown
r
4 years ago
899 B
3
Indexable
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 = ""))
Editor is loading...