how to enlarge the legend

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