搜索
查看: 2203|回复: 0

R Lattie包

[复制链接]

64

主题

138

帖子

681

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
681
发表于 2017-7-17 10:01:58 | 显示全部楼层 |阅读模式
---
graph_typedescriptionformula examples
barchartbar chartx~A or A~x
bwplotboxplotx~A or A~x
cloud3D scatterplotz~x*y|A
contourplot3D contour plotz~x*y
densityplotkernal density plot~x|A*B
dotplotdotplot~x|A
histogramhistogram~x
levelplot3D level plotz~y*x
parallelparallel coordinates plotdata frame
splomscatterplot matrixdata frame
stripplotstrip plotsA~x or x~A
xyplotscatterploty~x|A
wireframe3D wireframe graphz~y*x

## R Lattice

其中从下面列出了graph_type。 公式指定要显示的变量和任何条件变量。 例如〜x | A表示对于因子A的每个级别显示数字变量x。y〜x | A * B表示对于因素A和B级别的每个组合,分别显示数字变量y和x之间的关系。 〜x表示单独显示数字变量x。

```{r  }
graph_type(formula, data=)
```

[AppleScript] 纯文本查看 复制代码
```{r , echo=FALSE}
# Lattice Examples 
library(lattice) 
attach(mtcars)
```


for example:

[AppleScript] 纯文本查看 复制代码
```{r , echo=FALSE}
# Lattice Examples 
library(lattice) 
attach(mtcars)
```


# 创建值标签
[AppleScript] 纯文本查看 复制代码
```{r , echo=FALSE}
gear.f<-factor(gear,levels=c(3,4,5),
  	labels=c("3gears","4gears","5gears")) 
cyl.f <-factor(cyl,levels=c(4,6,8),
   labels=c("4cyl","6cyl","8cyl")) 
```

#核密度图
[AppleScript] 纯文本查看 复制代码
```{r , echo=FALSE}
densityplot(~mpg, 
  	main="Density Plot", 
  	xlab="Miles per Gallon")
```

# 核密度图by因子水平
[AppleScript] 纯文本查看 复制代码
```{r , echo=FALSE}
densityplot(~mpg|cyl.f, 
  	main="Density Plot by Number of Cylinders",
   xlab="Miles per Gallon")
```

# kernel density plots by factor level (交替布局)
[AppleScript] 纯文本查看 复制代码
```{r , echo=FALSE}
densityplot(~mpg|cyl.f, 
  	main="Density Plot by Numer of Cylinders",
   xlab="Miles per Gallon", 
   layout=c(1,3))#跟上面不同的地方
```

[AppleScript] 纯文本查看 复制代码
# 每两个因素组合的散点图
[mw_shl_code=applescript,true]```{r , echo=FALSE}
xyplot(mpg~wt|cyl.f*gear.f, 
  main="Scatterplots by Cylinders and Gears", 
   ylab="Miles per Gallon", xlab="Car Weight")
```

# 3d 散点图
```{r , echo=FALSE}
cloud(mpg~wt*qsec|cyl.f,
          main="3D Scatterplot by Cylinders") #用clound
```
# 每两个因子组合的点图
```{r , echo=FALSE}
dotplot(cyl.f~mpg|gear.f,
          main="Dotplot Plot by Number of Gears and Cylinders",
   xlab="Miles Per Gallon")
```

# 散点图矩阵
```{r , echo=FALSE}
splom(mtcars[c(1,3,4,5,6)],
          main="MTCARS Data")
```

#自定义格子图(点图和线图都在图上)
```{r , echo=FALSE}
# Customized Lattice Example
library(lattice)
panel.smoother <- function(x, y) {
  panel.xyplot(x, y) #点图
  panel.loess(x, y)  # 平滑图
}
attach(mtcars)
#hp <- cut(hp,3) # divide horse power into three bands ,已经是cut好的了,可以查询cut看看
xyplot(mpg~wt|hp, scales=list(cex=.8, col="red"),
          panel=panel.smoother,
   xlab="Weight", ylab="Miles per Gallon",
   main="MGP vs Weight by Horse Power")
```[/mw_shl_code]




上一篇:转录组作业(一):来自零基础的小白
下一篇:PANDA姐的转录组入门(2):读文章拿到测序数据
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-11-21 02:12 , Processed in 0.026869 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.