added materials

parteII/Esercizio7.Rmd

+---
+title: "Esercizio7"
+author: "Elisabetta Ronchieri"
+date: "28 November 2016"
+output:
+  html_document: default
+  pdf_document: default
+  word_document: default
+---
+
+# Leggere il file csv avente ; come carattere separatore.
+
+```{r}
+df<-read.csv("aapl_prezzi.csv",sep=";",as.is=T)
+str(df)
+df
+```
+
+# Convertire il componente **Date** del data frame **df** da carattere a Date.
+
+```{r}
+df$Date<-as.Date(df$Date,"%b %d, %Y")
+str(df)
+df
+```
+\newpage
+
+# Graficare i dati.
+
+Argomento _xaxt="n"_ rimuove l'asse x.
+
+```{r}
+plot(Open~Date,data=df,xaxt="n",type='l',col='red',ylab="",xlab="")
+```
+
+\newpage
+Argomento:
+
+* _srt=90_ ruota le etichette degli assi di 90 gradi;
+* _xpd=TRUE_ specifica dove un oggetto puo' essere visualizzato;
+* _cex=.7_ indica di quanto il testo deve essere scalato rispetto al valore di default.
+
+```{r}
+plot(Open~Date,data=df,xaxt="n",type='l',col='red',ylab="",xlab="")
+text(x=df$Date,par('usr')[3]-1.2,labels=paste(df$Date,' '),srt=90,pos=1,xpd=TRUE,cex=.7)
+```
+
+\newpage
+
+```{r}
+plot(Open~Date,data=df,xaxt="n",type='l',col='red',ylab="",xlab="")
+text(x=df$Date,par('usr')[3]-1.2,labels=paste(df$Date,' '),srt=90,pos=1,xpd=TRUE,cex=.7)
+lines(Close~Date,data=df,type='l',col='blue')
+lines(High~Date,data=df,type='l',col='green')
+lines(Low~Date,data=df,type='l',col='black')
+```
+
+\newpage
+
+_bottomleft_ e' un termine chiave che permette di visualizzare la legenda in basso a sinistra. 
+
+```{r}
+plot(Open~Date,data=df,xaxt="n",type='l',col='red',ylab="",xlab="")
+text(x=df$Date,par('usr')[3]-1.2,labels=paste(df$Date,' '),srt=90,pos=1,xpd=TRUE,cex=.7)
+lines(Close~Date,data=df,type='l',col='blue')
+lines(High~Date,data=df,type='l',col='green')
+lines(Low~Date,data=df,type='l',col='black')
+legend("bottomleft",c("Open","Close","High","Low"),col=c("red","blue","green","black"),lwd=1)
+```
+
+Modificare il grafico finale utilizzando gli altri [termini chiave](http://www.sthda.com/sthda/RDoc/figure/graphs/add-legend-to-plot-legend-positions.png) che indicano la posizione della legenda sul grafico. 
\ No newline at end of file

parteII/aapl_prezzi.R

+# determinare l'errore
+
+caricare il file
+aapl <- read.csv(file='aapl_prezzi.csv', header=TRUE, stringsAsFactor=FALSE)
+
+invertire i dati sulle righe
+aapl <- aapl[rev(rownames(aapl)),]
+
+estrarre il prezzo di chiusura
+aapl_close <- aapl[, 'Close']
+
+determinare informazioni statistiche in formato tabellare
+summary(aapl_close)
+
+scrivere il file modificato
+write(aapl, file='aapl_prezzi_riordinato.csv')
+
+# riaprire il file 
+# modificare i dati nella colonna Open di un valore pari a 100 x Numero di riga
+# effettuarne il plot riportando sull'asse dell'ascissa il campo date
\ No newline at end of file

parteII/aapl_prezzi.csv

+Date;Open;High;Low;Close;Volume
+"Apr 10, 2014";530.68;532.24;523.17;523.48;8530600
+"Apr 9, 2014";522.64;530.49;522.02;530.32;7337800
+"Apr 8, 2014";525.19;526.12;518.7;523.44;10309400
+"Apr 7, 2014";528.02;530.9;521.89;523.47;9830400
+"Apr 4, 2014";539.81;540;530.58;531.83;5798000
+"Apr 3, 2014";541.39;542.5;537.64;538.79;6443600
+"Apr 2, 2014";542.38;543.48;540.26;542.55;7170000
+"Apr 1, 2014";537.76;541.87;536.77;541.65;6023000
+"Mar 31, 2014";539.23;540.81;535.93;536.74;8697000