#Presentasjon med figurer library(datasets) #En datasett med EU aksjepriser head(EuStockMarkets) aksjeindex = data.frame(EuStockMarkets) head(aksjeindex) #med vanlig base plot plot(aksjeindex$DAX, type="l", ylab="Aksjeindeks") lines(aksjeindex$SMI, type="l") #farge plot(aksjeindex$DAX, type="l", ylab="Aksjeindeks",ylim = c(1000, 8500), col="blue") lines(aksjeindex$SMI, type="l", col="red") text(x=c(1000, 1500), y=c(5000, 2000), labels=c("SMI", "DAX")) #Transformasjon #log-skala log_aksjeindex = log(aksjeindex) plot(log_aksjeindex$DAX, type="l", ylab="log Aksjeindeks", col="blue", ylim= c(7,9)) lines(log_aksjeindex$SMI, type="l", col="red") #text(x=c(1000, 1500), y=c(5000, 2000), labels=c("SMI", "DAX")) #endringer, og prosent endringer diff_aksjeindex = data.frame(diff(aksjeindex$DAX)) colnames(diff_aksjeindex) = "DAX" diff_aksjeindex["SMI"] = diff(aksjeindex$SMI) plot(diff_aksjeindex$DAX, type="l", ylab="diff Aksjeindeks", col="blue") lines(diff_aksjeindex$SMI, type="l", col="red") #text(x=c(1000, 1500), y=c(5000, 2000), labels=c("SMI", "DAX")) #prosent endringer pros_diff = data.frame(diff_aksjeindex["SMI"]/aksjeindex[1:1859, "SMI"]*100) colnames(pros_diff) = "SMI" pros_diff["DAX"] = diff_aksjeindex["DAX"]/aksjeindex[1:1859, "DAX"]*100 plot(pros_diff$DAX, type="l", ylab="% diff Aksjeindeks", col="blue") lines(pros_diff$SMI, type="l", col="red") #Ikke bare linje-grapher. plot(x=pros_diff$DAX, y=pros_diff$SMI, xlab="DAX", ylab="SIM") plot(x=pros_diff$DAX, y=pros_diff$SMI, xlab="DAX", ylab="SIM") #med ggplot2 library(ggplot2) library(reshape2) aksjeindex["index"] = 1:1860 lang_aksje = melt(aksjeindex, id.vars = "index") ggplot(lang_aksje, aes(x= index, y=value, col=variable)) + geom_line()