如何（自动）使用ggplot2和treemapify向treemap添加自定义图标？

huangapple
go评论86阅读模式
英文:

How to (automatically) add custom icon to a treemap using ggplot2 and treemapify?

问题

以下是代码的翻译部分：

  1. 我正在尝试通过矩形树图的方式来展示土地覆盖数据。我成功创建了一个简单的矩形树图，并“获取”了一些图标。不幸的是，我难以将这些图标包含到矩形树图中，这将有助于展示土地覆盖的类型。
  3. 这是一个示例代码：
  5.     # 创建数据框
  6.     df <- data.frame(category = c("森林", "绿地", "农田"),
  7.                      面积 = c(20, 10, 70)
  8.     )
  9.     df$标签 = paste0(df$area, "%")
  10.     
  11.     # 加载图标
  12.     library(magick)
  13.     icon_crops2 <- image_read("https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/Agriculture_-_The_Noun_Project.svg/512px-Agriculture_-_The_Noun_Project.svg.png")
  14.     icon_forest2 <- image_read("https://upload.wikimedia.org/wikipedia/commons/thumb/d/da/BSicon_FOREST.svg/500px-BSicon_FOREST.svg.png")
  15.     icon_greenland2 <- image_read("https://upload.wikimedia.org/wikipedia/commons/thumb/2/2b/Wikidata_Morse_code_logo_grassroots.svg/600px-Wikidata_Morse_code_logo_grassroots.svg.png")
  16.     
  17.     # 将图标添加到数据框
  18.     df$icons = c(icon_crops2, icon_forest2, icon_greenland2)
  19.     print(df$icons)
  20.     
  21.     # 绘制不带图标的矩形树图
  22.     library(ggplot2)
  23.     library(treemapify)
  24.     
  25.     ggplot(df, aes(area = area, 
  26.                          fill = category, 
  27.                          label = paste(category,label,sep="\n"),
  28.                          subgroup = category)) +
  29.       geom_treemap() +
  30.       geom_treemap_text(colour = "black", place = "center") +
  31.       theme(legend.position = "none")

希望这对你有所帮助。

英文:

I'm trying to illustrate land cover data by the means of a treemap. I managed to create a simple treemap and to "grab" some icons. Unfortunately, I struggle to include these icons into the treemap which would help to illustrate the type of land cover.

This is an example code:

  1. # create dataframe
  2. df &lt;- data.frame(category = c(&quot;forest&quot;, &quot;greenland&quot;, &quot;crops&quot;),
  3.                  area = c(20, 10, 70)
  4. )
  5. df$label = paste0(df$area,&quot;%&quot;)
  7. # load icons
  8. library(magick)
  9. icon_crops2 &lt;- image_read(&quot;https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/Agriculture_-_The_Noun_Project.svg/512px-Agriculture_-_The_Noun_Project.svg.png&quot;)
  10. icon_forest2 &lt;- image_read(&quot;https://upload.wikimedia.org/wikipedia/commons/thumb/d/da/BSicon_FOREST.svg/500px-BSicon_FOREST.svg.png&quot;)
  11. icon_greenland2 &lt;- image_read(&quot;https://upload.wikimedia.org/wikipedia/commons/thumb/2/2b/Wikidata_Morse_code_logo_grassroots.svg/600px-Wikidata_Morse_code_logo_grassroots.svg.png&quot;)
  13. # add icons to dataframe
  14. df$icons = c(icon_crops2, icon_forest2, icon_greenland2)
  15. print(df$icons)
  17. # plot treemap without icons
  18. library(ggplot2)
  19. library(treemapify)
  21. ggplot(df, aes(area = area, 
  22.                      fill = category, 
  23.                      label = paste(category,label,sep=&quot;\n&quot;),
  24.                      subgroup = category)) +
  25.   geom_treemap() +
  26.   geom_treemap_text(colour = &quot;black&quot;, place = &quot;center&quot;) +
  27.   theme(legend.position = &quot;none&quot;)

This results in the following image:
如何（自动）使用ggplot2和treemapify向treemap添加自定义图标？

Yet, I would like to have something like this (created with GIMP):
如何（自动）使用ggplot2和treemapify向treemap添加自定义图标？

Although I could insert the icons manually, e.g. by using GIMP, I'm looking for an automatic way.

Anyone has an idea how to do this?

答案1

得分: 2

以下是翻译好的代码部分：

  1. # 创建数据框
  2. df <- data.frame(
  3.   category = c("forest", "greenland", "crops"),
  4.   area = c(20, 10, 70)
  5. )
  6. df$label <- paste0(df$area, "%")
  8. # 绘制不带图标的树状图
  9. library(ggplot2)
  10. library(treemapify)
  11. library(ggimage)
  13. dat_image <- treemapify(df,
  14.   area = "area",
  15.   layout = "squarified",
  16.   start = "bottomleft"
  17. ) %>%
  18.   transform(x = .5 * (xmin + xmax), y = .5 * (ymin + ymax))
  20. dat_image$icons <- c(
  21.   "https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/Agriculture_-_The_Noun_Project.svg/512px-Agriculture_-_The_Noun_Project.svg.png",
  22.   "https://upload.wikimedia.org/wikipedia/commons/thumb/d/da/BSicon_FOREST.svg/500px-BSicon_FOREST.svg.png",
  23.   "https://upload.wikimedia.org/wikipedia/commons/thumb/2/2b/Wikidata_Morse_code_logo_grassroots.svg/600px-Wikidata_Morse_code_logo_grassroots.svg.png"
  24. )
  26. ggplot(df, aes(
  27.   area = area,
  28.   fill = category,
  29.   label = label,
  30.   subgroup = category
  31. )) +
  32.   geom_treemap() +
  33.   geom_treemap_text(colour = "black", place = "center") +
  34.   scale_x_continuous(limits = c(0, 1), expand = c(0, 0)) +
  35.   scale_y_continuous(limits = c(0, 1), expand = c(0, 0)) +
  36.   geom_image(data = dat_image, aes(x = x, y = y, image = icons), inherit.aes = FALSE, nudge_y = .1, size = .1) +
  37.   theme(
  38.     legend.position = "none",
  39.     axis.line = element_blank(),
  40.     axis.text = element_blank(),
  41.     axis.title = element_blank(),
  42.     axis.ticks = element_blank()
  43.   )

上面的代码是使用ggimage::geom_image以及treemapify::treemapify()创建包含矩形坐标的数据集，并将图像放置在正确的矩形中的示例代码。如果您需要更多帮助或有其他问题，请随时提出。

英文:

One option would be to use ggimage::geom_image. To place the images we could use treemapify::treemapify() to create a dataset with the coordinates of the rectangles which could then be passed to geom_image to place the images in the right rectangles:

  1. # create dataframe
  2. df &lt;- data.frame(
  3.   category = c(&quot;forest&quot;, &quot;greenland&quot;, &quot;crops&quot;),
  4.   area = c(20, 10, 70)
  5. )
  6. df$label &lt;- paste0(df$area, &quot;%&quot;)
  8. # plot treemap without icons
  9. library(ggplot2)
  10. library(treemapify)
  11. library(ggimage)
  13. dat_image &lt;- treemapify(df,
  14.   area = &quot;area&quot;,
  15.   layout = &quot;squarified&quot;,
  16.   start = &quot;bottomleft&quot;
  17. ) |&gt;
  18.   transform(x = .5 * (xmin + xmax), y = .5 * (ymin + ymax))
  20. dat_image$icons &lt;- c(
  21.   &quot;https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/Agriculture_-_The_Noun_Project.svg/512px-Agriculture_-_The_Noun_Project.svg.png&quot;,
  22.   &quot;https://upload.wikimedia.org/wikipedia/commons/thumb/d/da/BSicon_FOREST.svg/500px-BSicon_FOREST.svg.png&quot;,
  23.   &quot;https://upload.wikimedia.org/wikipedia/commons/thumb/2/2b/Wikidata_Morse_code_logo_grassroots.svg/600px-Wikidata_Morse_code_logo_grassroots.svg.png&quot;
  24. )
  26. ggplot(df, aes(
  27.   area = area,
  28.   fill = category,
  29.   label = label,
  30.   subgroup = category
  31. )) +
  32.   geom_treemap() +
  33.   geom_treemap_text(colour = &quot;black&quot;, place = &quot;center&quot;) +
  34.   scale_x_continuous(limits = c(0, 1), expand = c(0, 0)) +
  35.   scale_y_continuous(limits = c(0, 1), expand = c(0, 0)) +
  36.   geom_image(data = dat_image, aes(x = x, y = y, image = icons), inherit.aes = FALSE, nudge_y = .1, size = .1) +
  37.   theme(
  38.     legend.position = &quot;none&quot;,
  39.     axis.line = element_blank(),
  40.     axis.text = element_blank(),
  41.     axis.title = element_blank(),
  42.     axis.ticks = element_blank()
  43.   )

如何（自动）使用ggplot2和treemapify向treemap添加自定义图标？<!-- -->

huangapple
  • 本文由 发表于 2023年3月7日 00:40:05
  • 转载请务必保留本文链接：https://go.coder-hub.com/75653485.html
  • ggplot2
  • icons
  • image
  • r
  • treemap
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定