欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

R语言给曲线添加标注和点注

程序员文章站 2022-06-16 09:41:16
    在R语言中,可以使用text(x,y,“标注名称”)来给曲线加标注text,使用point(x,y,col,cex,pch)来给曲线加点注pch。    下面介绍,在抛物线上加标注和点注。//biaoZhu.R## 画3条曲线x <- seq(-10,70,0.01)y1 <- 1*x^2-50*x+600y2 <- 1*x^2-40*x+600y3 <- 1*x^2-30*x+600## 定义一个二次曲线f3 <- function(x,a,b,c...

    在R语言中,可以使用text(x,y,“标注名称”)来给曲线加标注text,使用point(x,y,col,cex,pch)来给曲线加点注pch。
    下面介绍,在抛物线上,添加标注和点注。
    //biaoZhu.R

## 画3条曲线
x <- seq(-10,70,0.01)
y1 <- 1*x^2-50*x+600
y2 <- 1*x^2-40*x+600
y3 <- 1*x^2-30*x+600

## 定义一个二次曲线
f3 <- function(x,a,b,c) a*x^2+b*x+c
## "black" "red" "green3" "blue" "cyan" "magenta" "yellow" "gray"  

plot(y1 ~ x, type = "l",bty="l" ,col="red",xlab = "x", ylab = "y")
lines(y2 ~x, col = 'green')
lines(y3 ~x, col = 'blue')
axis(1,seq(-10,70,10))
axis(2,c(-100,200))
grid()

## 添加标题
title("抛物线")

## 添加标注
tt <- expression(y == ax^2+bx+c)
text(28,1940,tt)


## 显示截距 f(0)
text(6,610,"f(0)")
points(0, 600,col='black',cex = 1.5,pch=16)

pX1 <- seq(10,30,10)

## 在曲线1上选取3个点
pY1 <- f3(pX1,1,-50,600)
points(pX1, pY1,col='red',cex = 1.5,pch=18)

## 在曲线2上选取3个点
pY2 <- f3(pX1,1,-40,600)
points(pX1, pY2,col='green',cex = 1.5,pch=18)

## 在曲线3上选取3个点
pY3 <- f3(pX1,1,-30,600)
points(pX1, pY3,col='blue',cex = 1.5,pch=18)


    效果如下:

R语言给曲线添加标注和点注
图(1) 给抛物线加标注和点注

参考文献:

  1. 公式样式表expression
  2. 点样式pch

本文地址:https://blog.csdn.net/sanqima/article/details/114264229