在ggplot图例项目之间添加更多空间

Question

我有这样的数据

plot.d <- data.frame(vars = c(11:20),
                       time = c(1:5,1:5),
                       method = c(rep("aaaa", 5), rep("bbbb", 5)))

现在我想创建一个点图，图例应该是1列，但是要增加空间。

根据手册，legend.spacing.y应该可以解决问题。但是，使用以下代码：

ggplot(plot.d, aes(y = vars, x = time)) +
  geom_point(aes(shape= method, color = method, size = method)) +
  scale_shape_manual(values=c(18,15), guide=guide_legend(nrow=2)) +
  scale_color_manual(values=c('grey60','grey50')) +
  scale_size_manual(values=c(3, 2)) +
  theme(legend.title = element_blank(),
    legend.spacing.x = unit(0.15, 'cm'),
    legend.spacing.y = unit(1.4, 'cm'),
    legend.text=element_text(size=12),
    legend.box.background = element_rect(colour = "black")
  )

我只有这个图：

图例周围的框增加了，但两个图例项之间的行距保持不变。

这是怎么了？

Answer 1

如果我的目标很好，则需要修改function firefog_tag_cloud() { $tags = get_terms( 'product_tag' ); $args = array( 'smallest' => 10, 'largest' => 22, 'unit' => 'px', 'number' => 10, 'format' => 'flat', 'separator' => " ", 'orderby' => 'count', 'order' => 'DESC', 'show_count' => 1, 'echo' => false ); $tag_string = wp_generate_tag_cloud( $tags, $args ); return $tag_string; } add_action( 'woocommerce_after_shop_loop_item_title', 'firefog_tag_cloud', 2 ); add_shortcode('producttags', 'firefog_tag_cloud'); 。随机选择的示例：

legend.key.*

结果：