[R] [EXT] Re: adding results to plot
David K Stevens
d@v|d@@teven@ @end|ng |rom u@u@edu
Thu Sep 16 17:57:53 CEST 2021
This is pretty kludgy but ...
res.p <- capture.output(res) # creates a list of what goes to the screen
res.pl <- '' " # initialize res.pl
res.nul <- sapply(res.p,function(x.c) res.pl <<-
paste(res.pl,res.c,sep='\n')) # adds the list items separated by a line
text(x, y, res.pl, pos=4, cex=mycex)
This will replicate the print object for the t.test that goes to the
screen so you can add it to a plot. One note, the output of several
lines will be left justified at the x-location but centered vertically
on the y-location. Experimental with the cex setting to fit it on your
plot. It will also put two blank lines above and one below so you might
strip those out for better positioning
On 9/16/2021 8:59 AM, Bert Gunter wrote:
> I was wrong. text() will attempt to coerce to character. This may be
>  "c(W = 0.992709285275917)" "0.869917232073854"
>  "Shapiro-Wilk normality test" "rnorm(100)"
> plot(0:1, 0:1); text(0,seq(.1,.9,.2), labels = res, pos = 4)
> Bert Gunter
> "The trouble with having an open mind is that people keep coming along
> and sticking things into it."
> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
> On Thu, Sep 16, 2021 at 7:44 AM Bert Gunter <bgunter.4567 using gmail.com> wrote:
>> res is a list of class "htest" . You can only add text strings to a
>> plot via text(). I don't know what ggplot does.
>> Bert Gunter
>> "The trouble with having an open mind is that people keep coming along
>> and sticking things into it."
>> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
>> On Thu, Sep 16, 2021 at 7:22 AM PIKAL Petr <petr.pikal using precheza.cz> wrote:
>>> Dear all
>>> I know I have seen the answer somewhere but I am not able to find it. Please
>>>> res <- shapiro.test(rnorm(100))
>>> Shapiro-Wilk normality test
>>> data: rnorm(100)
>>> W = 0.98861, p-value = 0.5544
>>> I would like to add whole res object to the plot.
>>> I can do it one by one
>>>> text(locator(1), res$method)
>>>> text(locator(1), as.character(res$p.value))
>>> But it is quite inconvenient
>>> I could find some way in ggplot world but not in plain plot world.
>>> Best regards
>>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
> CAUTION: This email originated from outside of USU. If this appears to be a USU employee, beware of impersonators. Do not click links, reply, download images, or open attachments unless you verify the sender’s identity and know the content is safe.
David K Stevens, PhD,PE
Civil and Environmental Engineering
Utah State University
Logan, UT 84322-8200
david.stevens using usu.edu
More information about the R-help