setwd("C:/Users/ana-maria.silivestru/Desktop")
library(ggplot2)
date<-read.csv("date.csv")
View(date)
attach(date)
fix(date)
An<-as.Date(date$An, "%Y")
#Evolutia PIB
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=PIB, group=1)) + geom_line() + geom_point()  + scale_x_date(breaks = "5 years")
#Evolutia PIB Per Capita
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=PIBpercapita, group=1)) + geom_line() + geom_point()
#Evolutia Investitiilor
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=Investitiile, group=1)) + geom_line() + geom_point()
#Evolutia IPC
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=IPC, group=1)) + geom_line() + geom_point()
#Evolutia Inflatiei
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=RI, group=1)) + geom_line() + geom_point()
#Evolutia Importurilor
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=Importuri, group=1)) + geom_line() + geom_point()
#Evolutia Exporturilor
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=Exporturi, group=1)) + geom_line() + geom_point()
#Evolutia Somajului
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=Ratasomajului, group=1)) + geom_line() + geom_point()
#Evolutia numarului populatiei
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=Populatia, group=1)) + geom_line() + geom_point()
#Evolutia finantelor publice
date1<- date
date1$An<- factor(date1$An)
ggplot(date1, aes(x=An, y=Finantepublice, group=1)) + geom_line() + geom_point()