R語言給曲線添加标注和點注

    在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)


           

    效果如下：

圖(1) 給抛物線加标注和點注

參考文獻：

1. 公式樣式表expression
2. 點樣式pch