R小姐:折线图、条形图、直方图、箱图、函数曲线


前几次更新的文章犹如海绵里的水,硬挤方才挤出来一丝水,今天就不一样了,文思如尿崩,一次性学会简单的折线、条形、直方、箱、函数曲线图的画法。

各位请系好您右手边的安全带,抓稳安全扶手,发车了。

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')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第1张图片
image
#生成一个图形向量,用I()函数避免歧义
qplot(x=temperature,y=pressure,data = pressure,geom = c('line','point'),colour=I('blue'))
R小姐:折线图、条形图、直方图、箱图、函数曲线_第2张图片
image
#分步走传数据,绘点图,绘线图。分别添加颜色
ggplot(data = pressure,mapping = aes(x=temperature,y=pressure)) +
  geom_point(colour='red') +
  geom_line(colour='blue')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第3张图片
image

2

条形图

#利用table生成总结数据框,然后生成条形图
barplot(table(mtcars$cyl))
R小姐:折线图、条形图、直方图、箱图、函数曲线_第4张图片
image
#设置箱子的宽度,连续型变量绘图
qplot(x=cyl,data = mtcars,binwidth=1)
R小姐:折线图、条形图、直方图、箱图、函数曲线_第5张图片
image
#将cyl转化为因子,即离散型变量
qplot(x=factor(cyl),data = mtcars)
R小姐:折线图、条形图、直方图、箱图、函数曲线_第6张图片
image
#离散型变量并设置填充色和边框色
ggplot(data = mtcars,mapping = aes(x=factor(cyl))) +
  geom_bar(colour='red',fill='lightblue')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第7张图片
image

3

直方图

#绘制直方图,并将数据分为12份
hist(x=mtcars$mpg,breaks = 10)
R小姐:折线图、条形图、直方图、箱图、函数曲线_第8张图片
image
#设置直方图的宽度和边框颜色
qplot(x=mpg,data = mtcars,binwidth=4,colour=I('white'))
R小姐:折线图、条形图、直方图、箱图、函数曲线_第9张图片
image
#设置直方图的边框、填充色和边框色
ggplot(data = mtcars,mapping = aes(mpg)) +
  geom_histogram(binwidth = 4,colour='red',fill='lightblue')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第10张图片
image

4

箱图

#利用公式绘制箱图
boxplot(len ~ supp + dose,data = ToothGrowth)
R小姐:折线图、条形图、直方图、箱图、函数曲线_第11张图片
image
#利用interaction将两个变量交叉绘制箱图
qplot(x=interaction(supp,dose),y=len,data = ToothGrowth,geom = 'boxplot')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第12张图片
image
#变量交叉,设置填充色和边框色
ggplot(data = ToothGrowth,mapping = aes(x=interaction(supp,dose),y=len)) +
  geom_boxplot(fill='lightblue',colour='red')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第13张图片
image

5

函数曲线


#表达式,取值范围

curve(x^2,from = -4,to = 4,col='red')

#add表示在原图的基础上添加

curve(x^2 + x ,add = TRUE,from = -4,to = 4,col='blue')

R小姐:折线图、条形图、直方图、箱图、函数曲线_第14张图片
image
#用函数的方法运用qplot
f <- function() {
  x <- 0:20
  y <- 1/(1 + exp(-x + 10))
  qplot(x,y,geom = 'line')
}
f()
R小姐:折线图、条形图、直方图、箱图、函数曲线_第15张图片
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')
R小姐:折线图、条形图、直方图、箱图、函数曲线_第16张图片
image

本期内容以代码为主,旨在培养大家自己看懂代码的能力。要多多动手查,拒绝做伸手党。

下期再见。

你可能还想看

  • R小姐:利用ggplot2绘制散点图

  • R小姐:让数据抖动起来

  • R小姐:绘制简单拟合曲线

  • P公子、R小姐实战:爬取言情小说并做词云分析

等你很久啦,长按加入古同社区

R小姐:折线图、条形图、直方图、箱图、函数曲线_第17张图片
image

你可能感兴趣的