именование граней в facet_wrap

Question

У меня возникают проблемы при попытке назвать набор графиков, созданных с помощью функции facet_wrap.Я специально пытаюсь обернуть заголовки в несколько строк.Я внимательно изучил эту проблему при переполнении стека и не могу найти ошибку, которую я генерирую.Код ниже.Переменная a2 $ - это столбец символьных строк (для группировки), a2 $ ma_3 и a2 $ ma_12 - скользящие средние, которые я пытаюсь построить.Сгенерированная ошибка:

Ошибка в as.integer (n): невозможно привести тип 'closure' к вектору типа 'integer'

p1=a2 %>%
    ggplot(aes(x = date, color = variable)) +
    geom_line(aes(y = ma_12), color = "aquamarine3", alpha = 0.5,size=.7) +
    geom_line(aes(y = ma_3), color = "gray40", alpha = 0.5,size=.7) +
    facet_wrap(~ variable, ncol = 3, scale = "free_y",label_wrap_gen(width=10))

Заранее спасибо.

Answer 1

Ты рядом.Чтобы изменить метки facet_wrap, мы используем аргумент labeller:

library(tibble)
library(ggplot2)

mtcars %>%
  rownames_to_column() %>%
  head() %>%

ggplot(aes(x = mpg, color = cly)) +
  geom_point(aes(y = wt), color = "aquamarine3", alpha = 0.5,size=5) +
  geom_point(aes(y = qsec), color = "gray40", alpha = 0.5,size=5) +
  facet_wrap(~ rowname, ncol = 3, scale = "free_y",
             labeller = label_wrap_gen(width = 10))

Выход:

Answer 2

Я бы предложил отформатировать переменную перед отправкой в ​​ggplot, например:

library(tidyverse)

mtcars %>%
  rownames_to_column() %>%
  head() %>%
  mutate(carname = stringr::str_wrap(rowname, 10)) %>%

  ggplot(aes(x = mpg, color = cly)) +
  geom_point(aes(y = wt), color = "aquamarine3", alpha = 0.5,size=5) +
  geom_point(aes(y = qsec), color = "gray40", alpha = 0.5,size=5) +
  facet_wrap(~ carname, ncol = 3, scale = "free_y")