第六期作业-R002 绘图参数

真·科研狗 2017-09-05 20:18:07 阅读: 1227

x<-read.csv('E:/data1-R6.csv')
plot(x,col='red',xlab='keyangou',ylab='R',type='s',font.axis=2,font.lab=2,cex.lab=2,main="I love keyan",bty="l",ylim=c(0,50))
a=seq(2,50,by=0.5)
b=5*sin(a)+20
lines(a,b,col='green',lwd=2)
c=10:50
d=13*cos(c)-5*cos(2*c)-2*cos(3*c)-cos(6*c)+20
points(c,d,pch=1,col="blue")
legend("topleft", legend = c("point1","line2","point3"),col = c("red","green","blue"),pch = c(-1,-1,1),lty = c(1,1,-1))

e <- seq(-1,1,length = 100)
e1 <- (1-e^2)^(1/2)+(e^2)^(1/3)
e2 <- -(1-e^2)^(1/2)+(e^2)^(1/3)
plot(c(rev(e),e),c(rev(e2),e1),type="l",col="red")

邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01