kann jemandem mir sagen, was nicht geht , ich hänge schon seit gestern und schon alles gegooglet alles ausprobiert geht nicht .
ich bekomme den folgende Fehler.
Code: Alles auswählen
Fehler in eval(ei, envir) : Objekt 'NEI' nicht gefunden
könnt ihr selbst ausführen, den link finden Sie.
Code: Alles auswählen
download.file(url = "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2FNEI_data.zip"
, destfile = paste(path, "dataFiles.zip", sep = "/"))
unzip(zipfile = "dataFiles.zip")
baltiNEI <- NEI[fips=="24510",]
png(filename='plot.png')
ggplot(baltiNEI,aes(factor(year),Emissions,fill=type)) +
geom_bar(stat="identity") +
facet_grid(.~type,scales = 'free',space='free') +
labs(x="year", y=expression('Total PM'[2.5]*' Emission (Tons)')) +
labs(title=expression('PM'[2.5]*' Emissions, Baltimore City 1999-2008 by Source Type')
dev.off()