83

How should I change the size of symbols in legends? I checked the document of theme but found no answer.

Here is an example:

library(ggplot2);library(grid)
set.seed(1000)
x <- 1:6
mu <- sin(x)
observed <- mu + rnorm(length(x), 0, 0.5*sd(mu))
data <- data.frame(
  t=rep(x, 2), 
  value=c(mu, observed) - min(mu, observed) + 0.5, 
  class = rep(c("mu", "observed"), each=length(x)))
mu <- data$value[1:length(x)]
observed <- data$value[1:length(x) + length(x)]
mu.min <- mu - 3 * 0.5 * sd(mu)
mu.max <- mu + 3 * 0.5 * sd(mu)
g <- ggplot(data=data)
g <- g + geom_point(aes(x=value, y=t, shape=class, size=24)) + scale_size(guide="none")
g <- g + scale_shape(name="", labels=expression(paste(S[u](t), ", the observation at time ", t), paste(mu[u](t), ", the mean of ", tilde(S)[u](t), "          ")))
stat_function.color <- gray(0.5)
g <- g + geom_segment(aes(y=1:6, yend=1:6, x=mu.min, xend=mu.max, linetype="2", alpha = 1), color=stat_function.color) + scale_alpha(guide="none") + scale_linetype(name= "", labels=expression(paste("probability density function (pdf) of ", tilde(S)[u], " at time ", t)))
for(i in 1:length(x)) {
  g <- g + stat_function(fun=function(x, i) {
    ifelse( x <= mu.max[i] & x >= mu.min[i], dnorm(x, mu[i], sd(mu)) + i, NA)
    }, color=stat_function.color, args=list(i=i))
}
background.color <- gray(0.75)
g <- g + theme(
  axis.text=element_blank(),
  title=element_text(size=rel(1.5)),
  legend.text=element_text(size=rel(1.5)),
  legend.position="top",
  legend.direction="vertical",
#   legend.key.size = unit(2, "cm"),
  panel.background=element_rect(fill=background.color), 
  panel.grid.major=element_line(color=background.color),
  panel.grid.minor=element_line(color=background.color)
  ) + coord_flip()
plot(g)
4

4 に答える 4

94

次を使用する必要があります。

theme(legend.key.size = unit(3,"line"))
于 2017-01-25T03:49:09.673 に答える
91

override.aesこれらの種類の変更は、次の引数を使用して手動で行うことができますguide_legend()。

g <- g + guides(shape = guide_legend(override.aes = list(size = 5)))
print(g)
于 2013-02-25T02:26:15.343 に答える
46

マリウスの答えは、Rバージョン3.2.2の時点では機能しませんでした。guide_legend()同じ引数で呼び出すこともできますが、ラッパー関数ではなくoverride.eas指定する必要があります。colorshape

したがって、Rの新しいバージョンを実行している場合は、代わりにこれを試してください。

g + guides(color = guide_legend(override.aes = list(size=5)))

編集

コメントで@Iboが指摘しているように、これはggplotオブジェクトのカラースケールが原因である可能性があります。オブジェクトにカラースケールが含まれている場合は、代わりggplotにサイズ（size=5）のマッピングをカラーに設定する必要があります。

于 2017-02-04T12:39:47.933 に答える
11

grid凡例の2つのコンポーネントのサイズを個別に変更する場合は注意が必要ですが、パッケージを使用してプロットの個々のコンポーネントを手動で編集することで変更できます。

このSOの答えに基づく例：

set.seed(1)
dat <- data.frame(x = runif(n = 100),
                  x2 = factor(rep(c('first', 'second'), each = 50)))
set.seed(1)
dat$y = 5 + 1.8 * as.numeric(dat$x2) + .3 * dat$x + rnorm(100)

# basic plot
g <- ggplot(data = dat,
       aes(x = x, y = y, color = x2))+
   theme_bw()+
   geom_point()+
   geom_smooth(method = 'lm')

ここに画像の説明を入力してください

# make the size of the points & lines in the legend larger
g + guides(color = guide_legend(override.aes = list(size = 2)))

ここに画像の説明を入力してください

# Make JUST the legend points larger without changing the size of the legend lines:
# To get a list of the names of all the grobs in the ggplot
g
grid::grid.ls(grid::grid.force())

# Set the size of the point in the legend to 2 mm
grid::grid.gedit("key-[-0-9]-1-1", size = unit(4, "mm"))

# save the modified plot to an object
g2 <- grid::grid.grab()
ggsave(g2, filename = 'g2.png')

ここに画像の説明を入力してください

于 2020-05-05T16:52:45.380 に答える