Add a perpendicular character to the plot

Question

It is known that we will use two dashed lines to express two lines perpendicularly (for example, an image).

Is there any argument for expressing this character, such as symbol="perpendicular"?

While I draw this character manually, as the code below.

plot(rnorm(10),type="n",xlim=c(-1,1),ylim=c(-1,1))
abline(h=0,v=0)
lines(c(0,0.1),c(0.1,0.1),lty=2)
lines(c(0.1,0.1),c(0,0.1),lty=2)

Answer 1

Custom function:

#Cutom function
myfunction <- function(x, y){
  for(i in seq_along(x)){
    lines(c(x[i], x[i]), c(0,y[i]), lty = 2)
    lines(c(0, x[i]), c(y[i], y[i]), lty = 2)
    }
  }


plot(rnorm(10), type="n", xlim = c(-1,1), ylim = c(-1,1))
abline(h = 0, v = 0)

myfunction(x = c(0.1,  0.5, -0.3, -0.9),
           y = c(0.5, -0.3, -0.9,  0.7))

Answer 2

-, zx8754 . . y. , , . BTW, . :

# Make an axuliarry  line,perpendicular, from A to line OC
plot(rnorm(1),xlim=c(-7,7),ylim=c(-3,3),type="n",las=1,axes=F,xlab="",ylab="")
abline(0,-7/15,col="red",lwd=3) 
arrows(0,0,-15/4,-1/4,lwd=2,col="red")
arrows(0,0,18,0,col="gray");arrows(0,0,-9,0,col="gray")
arrows(0,0,0,10,col="gray");arrows(0,0,0,-9,col="gray")
lines(c(-15/4,-218*15/1096),c(-1/4,218*7/1096),col="red",lty=3,lwd=3)
text(-15/4,-1/4,"A",cex=2)
text(-218*15/1096,218*7/1096,"C",cex=2)
text(0,0,"O",cex=2)
#make an perpendicilar symbol to emphasis that it is perpendicular
perpendicular(-218*15/1096,218*7/1096,-15/4,-1/4,0,0,0.3)


# Given any three points,connected with two lines, perpendicualr function can draw an shape in the oppisite direction.
# Note: When two lines are perpendicular,the output will be an perpendicular symbol!
# Definition of notation:  
# (x,y) is the turning points of the shape.
# (x1,y1) and (x2,y2) are the other two points.
# k is the length, depending on how large shape you want. 

perpendicular<-function(x,y,x1,y1,x2,y2,k){ 
        #points(x,y,col="red",pch=16);points(x1,y1,pch=16);points(x2,y2,pch=16)
            m1<-c(x1-x,y1-y);m2<-c(x2-x,y2-y)   #two vector of the line 
            m1<-m1/sqrt(sum(m1^2));m2<-m2/sqrt(sum(m2^2))   #standardlized the vector
            #construct the shape I want
            xx1<-c(x,y)+k*m1
            xx2<-c(x,y)+k*m2
            xx3<-c(x,y)+k*(m1+m2)
            lines(c(xx1[1],xx3[1]),c(xx1[2],xx3[2]),lty=2)
            lines(c(xx2[1],xx3[1]),c(xx2[2],xx3[2]),lty=2)
            }