R可视化（一）

1、加载分隔符文件：

data<-read.csv("datafile.csv")

data<-read.csv("datafile.csv",header=FALSE)

手动重命名列：

names(data)<-c("Column1","Column2", "Column3" )

还可以用seq参数来设置分隔符号。如果是空格，使用seq=" "；如果是制表符分隔，使用 \t

data<-read.csv("datafile.csv",seq="\t")

默认情况下，数据集中的字符串（string）会被视为因子（factor）处理。

可以通过data<-read.csv("datafile.csv",stringASFactors=FASLE)来处理

#转换为因子：

data$Sex<-factor(data$Sex)

详见 ?read.table

2.1、绘制散点图：

plot(mtcars$wt,mtcars$mpg)

也可使用ggplot2包中的qplot函数绘制散点图：

> library(ggplot2)

> qplot(mtcars$wt,mtcars$mpg)  

或者写成qplot(wt,mpg,data=mtcars)

2.2 绘制折线图：

> plot(pressure$temperature,pressure$pressure,type="l")

通过points()  lines()分别添加数据点和折线

> points(pressure$temperature,pressure$pressure)

> lines(pressure$temperature,pressure$pressure/2,col="red")

也可使用ggplot2包中的qplot函数绘制：

> qplot(temperature,pressure,data=pressure,geom="line")

> qplot(temperature,pressure,data=pressure,geom=c("line","point"))

2.3 绘制条形图：

> barplot(BOD$demand,names.arg = BOD$Time)

> barplot(BOD$demand)

> barplot(table(mtcars$cyl))

2.4 绘制直方图：

hist(mtcars$mpg,breaks=10)

qplot(mpg,data=mtcars,binwidth=4)

2.5 绘制箱线图：

> plot(ToothGrowth$supp,ToothGrowth$len)

公式法：允许在x轴上使用变量组合

> boxplot(len~ supp+dose,data=ToothGrowth)

使用qplot()，使用interaction()函数将分组变量组合在一起可以绘制基于多分组变量的箱线图：

> qplot(interaction(ToothGrowth$supp,ToothGrowth$dose),ToothGrowth$len,geom="boxplot")

2.6 绘制函数图像：

> curve(x^3-5*x,from = -4,to=4)

> myfun<-function(xvar){1/(1+exp(-xvar+10))}

> curve(myfun(x),from=0,to=20)

> curve(1-myfun(x),from=0,to=20,add = TRUE,col="red")

使用qplot：

> qplot(c(0,20),fun=myfun,stat="function",geom="line")