hist(airquality$Wind,xlab="wind")

boxplot(airquality$Wind,xlab="wind",ylab="speed(mph)")

plot(airquality$Wind,airquality$Temp)

with(airquality,plot(Wind,Temp,main="Wind and Temp in NYC"))

title(main="Wind and Temp in NYC")

with(airquality,plot(Wind,Temp,

? ? ? ? ? ? ? ? ? ? ?main="Wind and Temp in NYC",

? ? ? ? ? ? ? ? ? ? ?type = "n"))

with(subset(airquality,Month==9),

? ? ?points(Wind,Temp,col = "red"))

with(subset(airquality,Month==5),

? ? ?points(Wind,Temp,col = "blue"))

with(subset(airquality,Month==8),

? ? ?points(Wind,Temp,col = "black"))

with(subset(airquality,Month %in% c(6,7,8)),

? ? ?points(Wind,Temp,col = "black"))

fit <- lm(Temp ~ Wind,airquality)

abline(fit,lwd=2)

legend("toprint",pch=1,

? ? ? ?col=c("red","blue","black"),

? ? ? ?legend=c("Sep","May","other"))

Error in match.arg(x, c("bottomright", "bottom", "bottomleft", "left", ?:?

? 'arg' should be one of “bottomright”, “bottom”, “bottomleft”, “l(fā)eft”, “topleft”, “top”, “topright”, “right”, “center”