R 使用ggplot2重现棒棒糖图表

发布于06月24日

I want to create a lollipop graph something like given below:

So for I got the following:

使用以下代码

# Library
library(tidyverse)
 
# Create data
df1 <- 
  data.frame(
    x = c(2014, 2014, 2017, 2017, 2021, 2021)
  , y = c(1, -1, 1, -1, 1, -1)
  )


df1

# plot
ggplot(data = df1, aes(x = x, y = y)) +
  geom_segment(aes(x = x, xend = x, y = 0, yend = y)) +
  geom_segment(aes(x = 2014, xend = 2021, y = 0, yend = 0)) +
  geom_point(
      size   = 5
    , color  = "red"
    , fill   = alpha("orange", 0.3)
    , alpha  = 0.7
    , shape  = 21
    , stroke = 2
    ) +
  theme_void()

推荐答案

这里有一种可能的方法，可以根据特定的要求进行调整.

您可能需要调整参数以适应您的数据和图形设备.

在调用ggplot和数据框内完成的工作平衡是相当随意的；可以在数据框中设置图表各种元素的y和x坐标的设置.

library(ggplot2)
library(dplyr)
library(ggforce)
library(ggtext)

# Assumed data
df2 <- 
  data.frame(
    start = c(2014, 2017, 2018, 2021),
    qual = c("BSc", "MRes", "Phd", "DS" ),
    loc = paste("Uni", LETTERS[1:4])) |> 
  mutate(qual = factor(qual, levels = qual, ordered = TRUE),
         lab = paste0("**", qual, "**<br>", loc),
         dur = paste0(start, "\n-\n", lead(start)),
         dur = stringr::str_replace(dur, "NA", "now"))


ggplot(data = df2) +
  geom_segment(aes(x = -Inf, xend = Inf, y = 0, yend = 0)) +
  geom_segment(aes(x = qual, xend = qual, y = 0, yend = rep(c(0.75, -0.75), 2))) +
  geom_point(aes(x = qual, y = 0), size = 3)+
  geom_circle(aes(x0 = 1:4, y0 = rep(c(1, -1), 2), r = 0.35),
              fill = "aquamarine4",
              colour = NA)+
  geom_richtext(aes(x = qual, y = rep(c(-0.5, 0.5), 2), label = lab),
            size = 6,
            family = "serif",
            colour = "aquamarine4",
            label.colour = NA)+
  geom_text(aes(x = qual, y = rep(c(1, -1), 2), label = dur),
            colour = "white",
            size = 6,
            family = "serif") +
  ylim(-1.5, 1.5) +
  theme_void() +
  coord_fixed()