英文:
Using ggimage to add images to labels in R
问题
以下是您要翻译的内容：
有没有办法在饼图中使用geom_image来替换文本标签为图像？
我尝试使用下面的代码。
但是，图像的位置与标签不同。 （我包括了标签以显示图像应放置的位置，但我想要删除文本标签并将其替换为图像）
library(tidyverse)library(ggplot2)library(ggimage)# 示例数据labels <- c("Category 1", "Category 2")values <- c(20, 80)# 创建数据框df <- data.frame(labels, values)df$image <- 'https://www.r-project.org/logo/Rlogo.png'# 创建饼图ggplot(df, aes(x = "", y = values, fill = labels)) +geom_bar(stat = "identity", width = 1) +coord_polar("y", start = 0) +theme_void() +geom_text(aes(y = values, label = labels), color = "white", size = 5,position = position_stack(vjust = 0.5)) +theme(legend.position = "none") +geom_image(aes(image = image)) +scale_fill_brewer(palette = "Set1")
image
我看到其他人使用ggtext和其他包类似的方法，但想知道ggimage是否具备这个功能。
英文:
Is there a way to use geom_image to replace text labels to images in a pie chart?
I tried using the code below.
However, the images aren't in the same position as the labels. (I included the labels to show where the images should go but I want to remove the text labels and replace them with the images)
library(tidyverse)library(ggplot2)library(ggimage)# Sample datalabels <- c("Category 1", "Category 2")values <- c(20, 80)# Create a data framedf <- data.frame(labels, values)df$image <- 'https://www.r-project.org/logo/Rlogo.png'# Create the pie chartggplot(df, aes(x = "", y = values, fill = labels)) +geom_bar(stat = "identity", width = 1) +coord_polar("y", start = 0) +theme_void() +geom_text(aes(y = values, label = labels), color = "white", size=5,position = position_stack(vjust = 0.5)) +theme(legend.position = "none") +geom_image(aes(image=image)) +scale_fill_brewer(palette="Set1")
image
I have seen others do something similar using ggtext and other packages but was wondering if ggimage has the capacity to do this.
答案1
得分: 0
这是代码部分，不需要翻译。
英文:
It always a matter of the position (or the grouping). (; To place the images at the same position as the labels you have to use the same position= for geom_image as for geom_text:
library(tidyverse)library(ggplot2)library(ggimage)# Sample datalabels <- c("Category 1", "Category 2")values <- c(20, 80)# Create a data framedf <- data.frame(labels, values)df$image <- "https://www.r-project.org/logo/Rlogo.png"# Create the pie chartggplot(df, aes(x = "", y = values, fill = labels)) +geom_bar(stat = "identity", width = 1) +coord_polar("y", start = 0) +theme_void() +geom_text(aes(y = values, label = labels),color = "white", size = 5,position = position_stack(vjust = 0.5)) +theme(legend.position = "none") +geom_image(aes(image = image), position = position_stack(vjust = 0.5)) +scale_fill_brewer(palette = "Set1")
<!-- -->
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论