R(week 7)

x <- rnorm(100)
x
hist(x, col = "lightblue")
qqnorm(x)

airquality
?airquality
dim(airquality)
head(airquality)
plot(airquality$Wind, airquality$Ozone)
nrow(airquality)
tail(airquality)
dev.off()
dev.new()

png('airquality_plot.png', width = 6.5, height=5, units='in', res = 600)
plot(airquality$Wind, airquality$Ozone)

#
png('sss.png', width = 500, height = 300)
plot(airquality$Wind, airquality$Ozone)
dev.off()
plot(airquality$Wind, airquality$Ozone, 
     main = "sdfdsf\nhahhaha", xlab="aaa", ylab="bbb")
plot(airquality$Wind, airquality$Ozone, 
     main = "sdfdsf\nhahhaha", xlim=c(0, 30), ylim=c(0,200))

plot(airquality$Wind, airquality$Ozone, 
     main = "sdfdsf\nhahhaha", xlab="aaa", ylab="bbb",
     pch = 8, col = 4, cex = 1.2, 
     type = 'l')

x <- rnorm(100)
opp <- par(mfrow = c(2, 2))
hist(x)
boxplot(x)
qqnorm(x)

dev.off()
dev.new()
mat <- rbind(1, 2:4)
layout(mat)
hist(x)
boxplot(x)

library(ggplot2)
head(mtcars)
tail(mtcars)
view(mtcars)

qplot(x=wt, y=mpg, data = mtcars)+
  ggtitle("sdfsdfsd")+
  theme(plot.title=element_text(hjust=0.5))+
  xlab("xxxxx")+
  ylab("yyyyy")+
  xlim(c(1, 6))+
  xlim(c(0, 8))