library(officer)
dat <- data.frame(
axis = c("Sales", "Marketing", "Dev", "Support", "HR"),
s1 = c(4, 3, 5, 2, 4),
s2 = c(3, 5, 2, 4, 3)
)
dat_long <- data.frame(
axis = rep(dat$axis, 2),
value = c(dat$s1, dat$s2),
group = rep(c("Team A", "Team B"), each = 5)
)
radar <- ms_radarchart(
data = dat_long, x = "axis",
y = "value", group = "group"
)
radar
Run the code above in your browser using DataLab