#绘制用户自定义的函数
myfun <- function(xvar) {
1/(1+exp(-xvar+10))
}
curve(myfun(x),from = 0,to=20)
#添加直线
curve(1-myfun(x),add=TRUE,col="red")
#ggplot2复现上面相同的结果
ggplot(data.frame(x=c(0,20)),aes=(x=x))+stat_function(fun = myfun,geom="line")
#在每次练习时我们都先将这两个包运行
library(ggplot2)
library(gcookbook)#为了使用数据
#绘制条形图,fill为填充颜色,clour为边框的颜色
ggplot(pg_mean,aes(x=group,y=weight))+geom_bar(stat = "identity")
#Time中=6的时间是没有的,所以将x转为离散型变量
ggplot(BOD,aes(x=factor(Time),y=demand))+geom_bar(stat = "identity",fill="blue",colour="red")
#绘制簇状条形图,这个过程中必须令参数position = "dodge"使得两组条形在水平方向上错开排列
#否则系统会出现堆积条形图
ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(position = "dodge",stat = "identity")
#绘制频数条形图(数据集中每行数据对应一个样本)
ggplot(diamonds,aes(x=cut))+geom_bar(colour="red",fill="blue")
学习笔记来源于《R语言可视化》