R: ggplot2 - вручную установить форму точки, тип линии и цвет в соответствии с меткой - PullRequest
Новая
       24

R: ggplot2 - вручную установить форму точки, тип линии и цвет в соответствии с меткой

1 голос
/ 30 октября 2019

Я пытаюсь создать график с заданными вручную цветами и заданными вручную формами как для точек, так и для линий. Фрейм данных, с которым я работаю, имеет следующий формат: 

"n" "times"     "algorithms"    "shapes"    "linetypes"     "colours"
1   0.000271833 "algo1"         "x"         "solid"         "blue"
11  0.000612195 "algo1"         "x"         "solid"         "blue"
1   0.000267802 "algo2"         "x"         "solid"         "red"
11  0.000644297 "algo2"         "x"         "solid"         "red"
1   0.000280468 "algo3"         "x"         "solid"         "green"
11  0.000816817 "algo3"         "x"         "solid"         "green"
1   0.000452015 "algo4"         "x"         "solid"         "black"
11  0.00271677  "algo4"         "x"         "solid"         "black"
1   0.000271255 "algo5"         "o"         "dashed"        "blue"
11  0.000622194 "algo5"         "o"         "dashed"        "blue"
1   0.000271107 "algo6"         "o"         "dashed"        "red"
11  0.000701686 "algo6"         "o"         "dashed"        "red"
1   0.000267631 "algo7"         "o"         "dashed"        "green"
11  0.000723341 "algo7"         "o"         "dashed"        "green"
1   0.000451016 "algo8"         "o"         "dashed"        "black"
11  0.00124079  "algo8"         "o"         "dashed"        "black"

Этот фрейм данных содержит время выполнения для 8 различных алгоритмов. Я хотел бы добиться следующего: я хотел бы построить точки с крестиками для алгоритмов от alg1 до alg4 и с точками (заполненными, если возможно) для алгоритмов alg5 до alg8. Аналогичным образом я хочу, чтобы линии соединяли точки, чтобы нарисованные линии отображали рост времени выполнения каждого алгоритма, и я хочу, чтобы некоторые линии были сплошными, а другие - пунктирными. Я также хочу использовать определенные цвета для каждого алгоритма, как указано в столбце «цвета».

Теперь мне удалось добиться некоторого прогресса: 

g <- ggplot(df, aes(x=n, y=times, group=algorithms, linetype=linetypes, pch=shapes, colour=colours)) +
    geom_line() +
    geom_point() +
    theme(legend.position="bottom") +
    xlab("n") +
    ylab(paste0("Execution time (ms)")) +
    ggtitle("asdf")

Но это даетя самая неприятная легенда: enter image description here

Я хотел бы иметь легенду с названиями алгоритмов рядом с изображением соответствующих им типов линий и точек и, очевидно, цвета.

Я осмотрел этот сайт и другие, но безрезультатно. Это действительно было трудно, так как большинство людей не выходят за пределы ручной настройки цвета, формы точек и типов линий. Мне нужно только знать, как сделать этот дополнительный шаг. Я уверен, что это довольно легко сделать, но я в полном недоумении.

Спасибо вам всем.

1 Ответ

3 голосов
/ 30 октября 2019

Вы можете указать цвет / тип линий / шкалы формы вручную. 


library("tidyverse")

df <- tibble::tribble(
  ~n, ~times, ~algorithms, ~shapes, ~linetypes, ~colours,
  1L, 0.000271833, "algo1", "x", "solid", "blue",
  11L, 0.000612195, "algo1", "x", "solid", "blue",
  1L, 0.000267802, "algo2", "x", "solid", "red",
  11L, 0.000644297, "algo2", "x", "solid", "red",
  1L, 0.000280468, "algo3", "x", "solid", "green",
  11L, 0.000816817, "algo3", "x", "solid", "green",
  1L, 0.000452015, "algo4", "x", "solid", "black",
  11L, 0.00271677, "algo4", "x", "solid", "black",
  1L, 0.000271255, "algo5", "o", "dashed", "blue",
  11L, 0.000622194, "algo5", "o", "dashed", "blue",
  1L, 0.000271107, "algo6", "o", "dashed", "red",
  11L, 0.000701686, "algo6", "o", "dashed", "red",
  1L, 0.000267631, "algo7", "o", "dashed", "green",
  11L, 0.000723341, "algo7", "o", "dashed", "green",
  1L, 0.000451016, "algo8", "o", "dashed", "black",
  11L, 0.00124079, "algo8", "o", "dashed", "black"
)

df %>%
  ggplot(aes(
    x = n, y = times,
    linetype = algorithms,
    shape = algorithms,
    colour = algorithms
  )) +
  geom_line() +
  # Comment out `geom_point` to check that the line type is 
  # as specified but is overplotted by the shape in the legend
  geom_point(size = 4) +
  xlab("n") +
  ylab(paste0("Execution time (ms)")) +
  ggtitle("asdf") +
  scale_color_manual(
    values = deframe(df %>% select(algorithms, colours))
  ) +
  scale_linetype_manual(
    values = deframe(df %>% select(algorithms, linetypes))
  ) +
  scale_shape_manual(
    values = deframe(df %>% select(algorithms, shapes))
  ) +
  theme(legend.position = "bottom")

Создано в 2019-10-30 пакетом Представить (v0.3.0)

...