Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Looking at <code>page(twoord.plot)</code> we see that in <code>twoord.plot</code> when <code>plot</code> is called, argument <code>axes</code> is -already- set to <code>FALSE</code> and axes are built by calling <code>axis</code>. So, <code>xaxt</code> won't have any effect.</p> <p>The thing is, though, that in the code is written: <code>axis(1, ... **cex** = axilsab.cex</code>. But setting <code>cex</code> in <code>axis</code> won't have the desired effect; <code>cex.axis</code> should be used instead. For axes 2 and 4, though, <code>axilslab.cex</code> argument is used by calling <code>mtext</code>. E.g. <code>mtext(axat, 2... cex = axislab.cex</code>; here <code>cex</code> (inside <code>mtext</code>) has the desired effect.</p> <p>Concluding, you can write a function <code>twoord.plot2</code> where you change the <code>cex</code> argument to <code>cex.axis</code> when calling <code>axis(1...</code>. And then run your code by calling <code>twoord.plot2</code>. I.e. <code>axis(1,... **cex.axis** = axislab.cex)</code>.</p> <p><strong>EDIT</strong></p> <p>I will add a <code>x_axislab.cex</code> argument in the original <code>twoord.plot</code> in order to change <strong>only</strong> the size of x-axis' tickmarks:</p> <p>Copy-paste everything from <code>page(twoord.plot)</code> in a text editor and name it <code>twoord.plot2</code>. Then add an extra argument and change the body of the function:</p> <pre><code>twoord.plot2 &lt;- #function (lx, ly, rx, ry, data = NULL, xlim = NULL, lylim = NULL, #rylim = NULL, mar = c(5, 4, 4, 4), lcol = 1, rcol = 2, xlab = "", #ylab = "", rylab = "", lpch = 1, rpch = 2, type = "b", xtickpos = NULL, #xticklab = NULL, halfwidth = 0.4, axislab.cex = 1, **x_axislab.cex = 1**, # do.first = NULL, # ...) #add argument `x_axislab.cex = 1` in the arguments of the original `twoord.plot` #{ # if (!is.null(data)) { # ly &lt;- unlist(data[ly]) #...everything else... #if (is.null(xticklab)) axis(1, **cex.axis = x_axislab.cex**) #change here. it was **cex = axislab.cex** # else { #if (is.null(xtickpos)) #xtickpos &lt;- 1:length(xticklab) # if (is.null(xticklab)) # xticklab &lt;- xtickpos axis(1, at = xtickpos, labels = xticklab, **cex.axis = x_axislab.cex**) #change here. it was **cex = axislab.cex** #.....everything else... </code></pre> <p>Then copy-paste your function in <code>R</code> and run something like:</p> <pre><code>twoord.plot2(...other arguments..., x_axislab.cex = 0.8) </code></pre> <p>to plot your data and change the size of x-axis' tickmarks.</p>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload