前几次更新的文章犹如海绵里的水，硬挤方才挤出来一丝水，今天就不一样了，文思如尿崩，一次性学会简单的折线、条形、直方、箱、函数曲线图的画法。
各位请系好您右手边的安全带，抓稳安全扶手，发车了。
1
折线图
library(ggplot2)
library(gcookbook)
head(pressure)
#绘制第一条曲线
plot(pressure$temperature,pressure$pressure,type = 'l')
#将数据点添加至曲线，pch表示点的形状
points(pressure$temperature,pressure$pressure,pch=9)
#绘制第二条曲线压力减半，颜色为红色
lines(pressure$temperature,pressure$pressure/2,col='red')
#添加第二条曲线的数据点，颜色为红色
points(pressure$temperature,pressure$pressure/2,col='red')
image
#生成一个图形向量，用I()函数避免歧义
qplot(x=temperature,y=pressure,data = pressure,geom = c('line','point'),colour=I('blue'))
image
#分步走传数据，绘点图，绘线图。分别添加颜色
ggplot(data = pressure,mapping = aes(x=temperature,y=pressure)) +
geom_point(colour='red') +
geom_line(colour='blue')
image
2
条形图
#利用table生成总结数据框，然后生成条形图
barplot(table(mtcars$cyl))
image
#设置箱子的宽度，连续型变量绘图
qplot(x=cyl,data = mtcars,binwidth=1)
image
#将cyl转化为因子，即离散型变量
qplot(x=factor(cyl),data = mtcars)
image
#离散型变量并设置填充色和边框色
ggplot(data = mtcars,mapping = aes(x=factor(cyl))) +
geom_bar(colour='red',fill='lightblue')
image
3
直方图
#绘制直方图，并将数据分为12份
hist(x=mtcars$mpg,breaks = 10)
image
#设置直方图的宽度和边框颜色
qplot(x=mpg,data = mtcars,binwidth=4,colour=I('white'))
image
#设置直方图的边框、填充色和边框色
ggplot(data = mtcars,mapping = aes(mpg)) +
geom_histogram(binwidth = 4,colour='red',fill='lightblue')
image
4
箱图
#利用公式绘制箱图
boxplot(len ~ supp + dose,data = ToothGrowth)
image
#利用interaction将两个变量交叉绘制箱图
qplot(x=interaction(supp,dose),y=len,data = ToothGrowth,geom = 'boxplot')
image
#变量交叉，设置填充色和边框色
ggplot(data = ToothGrowth,mapping = aes(x=interaction(supp,dose),y=len)) +
geom_boxplot(fill='lightblue',colour='red')
image
5
函数曲线
#表达式，取值范围
curve(x^2,from = -4,to = 4,col='red')
#add表示在原图的基础上添加
curve(x^2 + x ,add = TRUE,from = -4,to = 4,col='blue')
image
#用函数的方法运用qplot
f <- function() {
x <- 0:20
y <- 1/(1 + exp(-x + 10))
qplot(x,y,geom = 'line')
}
f()
image
#自建一个函数方程
myfun <- function(xval){
1/(1 + exp(-xval + 10))
}
#ggplot要求数据是数据框格式
ggplot(data.frame(x=c(0:20)),aes(x=x)) +
stat_function(fun = myfun,geom = 'line',colour='red')
image
本期内容以代码为主，旨在培养大家自己看懂代码的能力。要多多动手查，拒绝做伸手党。
下期再见。
你可能还想看
等你很久啦，长按加入古同社区
image
