ggplot2可视化篇(更新中…)

ggplot2可视化篇(更新中…)

安装ggplot2包
install.packages(“ggplot2”)
查看ggplot2包的使用方法
?ggplot2
查看自带数据diamonds
?diamonds
head(diamonds)
tail(diamonds)
dim(diamonds)
在学习ggplot2前先了解一下qplot,其实在R中,可以直接用plot来绘制图形
主要分3步走,第一步:plot;第二步:qplot;第三步:ggplot

第一章:plot

图形参数汇总

#type
"p" 绘散点图
"l" 绘实线
"b" 所有点被实线连接
"o" 实线通过的所有点
"h" 绘出点到x轴的竖线
"s" 绘出阶梯形曲线
"S" 同上
"n" 不绘任何点或者曲线
#符号和线条
pch:指定绘制点时使用的符号
cex:指定符号大小
lty:线条类型
lwd:线条宽度
#颜色
col:指定颜色
col.axis:坐标轴刻度文字颜色
col.lab:坐标轴标签颜色
col.main:标题颜色
col.sub:副标题颜色
bg:背景色
fg:前景色
#文本属性
cex:缩放倍数
cex.axis:坐标轴刻度文字的缩放倍数
cex.lab:坐标轴标签
cex.main:标题
cex.sub:副标题

font表示字体样式
有1:常规
2:粗体
3:斜体
4:粗斜体
5:符号字体
有以下类型
font,font.axis,font.lab,font.main,font.sub

attach(mtcars )
dim(mtcars)
[1] 32 11
head(mtcars)
mpg cyl disp hp drat wt qsec vs am gear carb
Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
Valiant 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1

plot(wt,carb)
plot(wt,carb,col=”red”)

   增加横纵坐标
plot(wt,carb,col="blue",xlab="演示的横坐标标签",ylab="演示的纵坐标标签")

>plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”)

#指定点的类型

plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,lty=8)
plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=8)
plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=9)
plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=10)
plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=20)

#lwd:指定大小,感觉用cex更好

plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=20,lwd=2)


plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=20,lwd=10)


plot(wt,carb,col=”red”,xlab=”演示的横坐标标签”,ylab=”演示的纵坐标标签”,main=”test_mian”,pch=20,lwd=20)

plot(wt,col=”blue”,xlab=”x”,ylab =”y”,main=”test”,sub=”test2″,col.main=”red”,pch=15,cex=2,xlim=c(0,50),ylim=c(0,5))

#将每个点连接起来

plot(wt,col=”red”,bg=”blue”,xlab=”test_location_x”,ylab=”test_location_y”,main=”test”,pch=20,cex=1,type=”b”)

#更改标题的颜色

plot(wt,col=”red”,bg=”blue”,xlab=”test_location_x”,ylab=”test_location_y”,main=”test”,pch=20,cex=1,type=”b”,col.main=”blue”)

#更改坐标范围

plot(wt,col=”blue”,xlab=”x”,ylab =”y”,main=”test”,col.main=”red”,pch=15,cex=2,xlim=c(0,50),ylim=c(0,5))

plot(wt,col=”black”,xlab=”who”,xlim=c(1,100),ylab=”whowho”,ylim=c(1,20),main=”test1″,sub=”test2″,cex=5,type=”b”,col.lab=”blue”)

plot(dose,druga,
     type="b",
     col="red",
     lty=8,
     pch=2,
     lwd=2,
     main="666",font.main=3,cex.main=2,col.main="red",
    sub="789",font.sub=2,cex.main=5,col.sub="blue",
    xlab="横坐标",col.axis="purple",
    ylab="纵坐标"
    )

第二章:qplot

其实qplot就是plot的升级版本

首先加载包library(ggplot2),因为我们用的示例数据都是来自ggplot2的,diamonds

qplot(x=?,y=?,data=?)基本类型

qplot(carat,price,data=diamonds)

qplot(x=carat,y=price,data=diamonds)#这样就较为容易理解

qplot(carat,price,data=diamonds,col=”blue”)#更改颜色

看到这里是不是发现和plot很多都是类似的呢?

qplot(carat,data=diamonds,geom=”boxplot”)
qplot(carat,data=diamonds,geom=”boxplot”,fill=”blue”)
qplot(carat,data=diamonds,geom=”boxplot”,fill=”blue”,col=”red”)
qplot(carat,data=diamonds,geom=”boxplot”,fill=”blue”,col=”red”,main=”whoknow?”)

qplot(carat,price,data=diamonds,geom=”point”,fill=”blue”,col=”red”,main=”whoknow?”,alpha=I(1/10))

qplot(carat,price,data=diamonds,geom=”point”,fill=”blue”,col=”red”,main=”whoknow?”,alpha=I(1/2))

qplot(carat,price,data=diamonds,geom=”point”,fill=”blue”,col=”red”,main=”whoknow?”,shape=cut)

qplot(x=carat,y=price,data=diamonds,geom=”point”,col=”red”,facets = color~.)
qplot(x=carat,y=price,data=diamonds,geom=”point”,col=”red”,facets = .~color)

qplot(price,data=diamonds,geom=”density”,col=”red”,facets = .~color)
qplot(price,data=diamonds,geom=”density”,col=”red”,facets = color~.)

现在开始用自己的数据实战,我有一堆苹果,有很多颜色(applecolor),重量(
appleheight ),宽度( appleweight ),价格(applermb)均不一。具体数据点击下面下载按钮

setwd(“C:/Users/Administrator/Desktop/”)
getwd()
[1] “C:/Users/Administrator/Desktop”
data<-read.table(“ggplot2_test.txt”,header = T,sep=”\t”,row.names = 1)

qplot(x=appleheight,y=appleweight,data=data,col=”red”,geom=”point”)
qplot(x=appleheight,data=data,col=”red”,geom=”boxplot”)
qplot(x=appleheight,data=data,col=”red”,geom=”boxplot”,fill=applecolor)

以后将会持续性输出,搬砖。加油!!!本人正在学习中,如若有错欢迎指出:smyang2018@163.com或加群探讨:644542193

欢迎关注微信公众号:蚂蚁生信

smyang2018

跳至工具栏