Brian - 7 months ago 28

R Question

I have combined two data sets into one graph and I would like to add the corresponding

`pch`

Now, I know that solutions using

`text()`

`xlab`

`ylab`

`pch=16`

thinkoholic.com's reproducible example,

`par(mar=c(5,5,2,5))`

# create data and plot circles

x <- seq(0,5,0.5)

y <- seq(0,5,0.5)

plot(x,y, xlab="", ylab="")

#create random data and add bullets (pch=19)

x <- rnorm(20,2.5)

y <- rnorm(20,2.5)

points(x,y, pch=19)

#add y axis on right side

axis (side = 4)

#create text with symbols

text(-1,2.5,"\\#H0850 y1 axis text", vfont=c("sans serif","plain"), cex=1.25, adj=0.5, srt=90, xpd=TRUE)

text(6,2.5,"\\#H0902 y2 axis text", vfont=c("sans serif","plain"), cex=1.25, adj=0.5, srt=90, xpd=TRUE)

text(2.5,-1,"x axis text", vfont=c("sans serif","plain"), cex=1.25, adj=0.5, srt=0, xpd=TRUE)

Answer

If you insist on doing this:

```
par(mar=c(5,5,2,5), xpd=TRUE)
x <- seq(0,5,0.5)
y <- seq(0,5,0.5)
plot(x,y, xlab="", ylab="")
text(-1,2.5,"y axis text", cex=1.25, adj=0, srt=90)
points(-1,2.4)
```