使用R's officer包将依赖于列值的图标添加到powerpoint项目符号中

install.packages("officer")

library(officer)

ppt <- read_pptx()

slide <- add_slide(ppt, layout = "Title and Content")

slide <- ph_with_text(slide, type = "title", str = "图表示例")
slide <- ph_with_text(slide, type = "content", str = "这是一个依赖于列值的图标示例")

data <- data.frame(Category = c("A", "B", "C"), Value = c(10, 20, 30))

library(ggplot2)
plot <- ggplot(data, aes(x = Category, y = Value)) + geom_bar(stat = "identity")

slide <- ph_with_gg(slide, value = plot, location = ph_location_type(type = "body"))

ppt <- add_slide(ppt, slide)

print(ppt, target = "output.pptx")