# INIZIO ESEMPIO ********************************

# la prima riga contiene i nomi delle variabili, il separatore è parametrizzabile 
# la prima colonna contiene la Diagnosi
# la seconda colonna contiene la concentrazione delle IgA in mg/dL
# notare / invece di \ su windows 
mydata <- read.table("c:/R/OutputGrafici/OutputGrafici.csv", header=TRUE, 
   sep=";")

# traccia Boxplot delle IgA per ciascuna diagnosi
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 

# genera un file bmp (Windows bitmap)
bmp("c:/R/OutputGrafici/Filebmp.bmp")
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 
dev.off()

# genera un file jpeg (Joint Photographic Experts Group)
jpeg("c:/R/OutputGrafici/Filejpeg.jpg")
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 
dev.off()

# genera un file pdf (Portable Document Format)
pdf("c:/R/OutputGrafici/Filepdf.pdf")
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 
dev.off()

# genera un file png (Portable Network Graphics)
png("c:/R/OutputGrafici/Filepng.png")
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 
dev.off()

# genera un file ps (postscript)
postscript("c:/R/OutputGrafici/Fileps.ps")
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 
dev.off()

# genera un file wmf (Windows metafile)
win.metafile("c:/R/OutputGrafici/Filewmf.wmf")
boxplot(IgA~Diagnosi, data=mydata, main="IgA nelle malattie croniche del fegato", 
   xlab="Diagnosi clinica", ylab="IgA in mg/dL", notch=FALSE, col="yellow") 
dev.off()

# FINE ESEMPIO ********************************