I'd propose:

plot.new()
ltext <- "text"
lobj <- legend("bottom", "", text.width=strwidth(ltext), fill = "gray", cex = 2)
text(lobj$text, ltext)

Best,
Uwe Ligges


On 09.10.2022 16:54, Jinsong Zhao wrote:
Hi there,

in the following code, I'd like to enlarge the filled box but not the legend text.

plot.new()

legend("topleft", "text", fill = "gray") # filled box is too small

legend("top", "text", fill = "gray", cex = 2) # filled box is ok but text is too large

# I can use point to mimic filled box, but can not fill it with pattern

legend("left", "text", pch = 22, pt.bg = "gray", pt.cex =3)

I'd like to get filled box enlarged but with text not to be changed. Is it possible?

Thanks in advance!

Best,

Jinsong

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to