R语言作业，求问代码怎么写

Python013

R语言作业，求问代码怎么写,第1张

R语言作业，求问代码怎么写

1)

set.seed(1)

n = 5000

gender = sample(c("f","m"),size = n, TRUE)

dechot = function(gender, type){

n = length(gender)

list = c(NA,n)

for (i in 1:n){

list[i] = switch(gender[i], "f"=type[1], "m"=type[2])

}

return(list)

}

type = c(0,1)

dechot(gender, type)

2)

set.seed(1)

n = 100000

A = floor(runif(n,0,n))

search = function(vector){

n = length(vector)

two = three = number = NA

for (i in 1:n){

if (vector[i]%%2 == 0)

two = rbind(two,vector[i])

if(vector[i]%%3 == 0)

three = rbind(three,vector[i])

}

two.new = two[-1]

three.new = three[-1]

n.two = length(two.new)

n.three = length(three.new)

n.six = length(two.new[two.new%%6 == 0])

number = n.two +n.three-n.six

return(list(c(two.new=two.new, three.new=three.new, number = number)))

}

result = search(A)

result$two.new

result$three.new

result$number

安装完毕R语言，新建属于自己的R变成文件夹，然后 File ->Change Dir..,设置成自己的工作文件，自己工作空间将都会产生在这个文件夹下。2 /5 然后Files - >New Script，打开新的脚本编辑，在这里键入自己代码，编辑。在...

（供自己记录）

adj位置调整

ask询问

bg背景

bty图形边框风格，o四边都有边框，l左边和下边，7右边和上边，c上边、左边和下边，

cex设置点和字符的大小，axis坐标轴上标签字的大小，lab坐标轴上命名的大小，main标题的大小，sub副标题的大小，col颜色。

family字体的风格，

fg前景颜色

font图片字体的风格，字体，粗体，斜体

las坐标轴的运行关系，坐标轴上的字和坐标轴的关系，字会转

lend线的两端的样式

lty线的形式,直线、虚线

lwd线的粗细

Mai、mar、mex画布的大小

Mfcol、mfrow是来切分画布的，放几个fig在画布中，两个功能一样

pch是用来定义点的形状的，有25个形状

srt用来定义图中的文字的角度

Txk坐标轴上的刻度的大小，刻度的字体大小

Xaxt/yaxt不想要坐标轴的标签

Xlog/ylog是x轴和y轴设置为log值

Xpd把绘图区设置为整个画布

Fig表示图形的四个角的位置

New是在图中生成图