от
У меня есть кадр данных с русским
colnames
в UTF-8. Я выполняю некоторое линейное моделирование с помощью
purrr
и исследую
coefficients
с помощью
broom::tidy()
, затем получаю фрейм данных со смешанным IWLWC-сообщением об ошибке, которое я получаю, обращаясь к IW1W1, получая сообщения об ошибках, получая сообщения IWLW1W1, получая сообщения об ошибках, получая сообщения IWLW4, которые я получаю. Я пытался использовать
stringi::stri_enc_toutf8(colnames(df))
: не помогает `Кодирование (COLNAMES (DF))
rem %>% 
   group_by(МАГАЗИН, `ТИП МАГАЗИНА`, Дата) %>% 
   summarise(`Количество, шт` = sum(`Количество, шт`, na.rm = TRUE)) %>% 
   select(МАГАЗИН, `ТИП МАГАЗИНА`, `Количество, шт`, Дата) %>% 
   group_by(`ТИП МАГАЗИНА`, МАГАЗИН) %>% 
   nest() %>% 
   mutate(lm = map(data, ~lm(formula = `Количество, шт` ~ Дата, data = .x)),
          fit = map(lm, tidy)) %>% 
   unnest(fit) %>% 
   filter(term != "(Intercept)") %>% 
   colnames() %>% Encoding()
[1] "UTF

и чем, когда я готовлю это, я получаю это:

girafe_options(
   girafe( code = print(

     rem %>% 
       group_by(МАГАЗИН, `ТИП МАГАЗИНА`, Дата) %>% 
       summarise(`Количество, шт` = sum(`Количество, шт`, na.rm = TRUE)) %>% 
       select(МАГАЗИН, `ТИП МАГАЗИНА`, `Количество, шт`, Дата) %>% 
       group_by(`ТИП МАГАЗИНА`, МАГАЗИН) %>% 
       nest() %>% 
       mutate(lm = map(data, ~lm(formula = `Количество, шт` ~ Дата, data = .x)),
              fit = map(lm, tidy)) %>% 
       unnest(fit) %>% 
       filter(term != "(Intercept)") %>% 
       mutate(term = "Дата")  %>%
       ggplot(aes(x = reorder(МАГАЗИН, estimate), y = estimate,col = `ТИП МАГАЗИНА` , shape = `ТИП МАГАЗИНА` ))  
       geom_point_interactive(aes(tooltip = paste("Изменение: ", round(estimate, 6), "
", "Среднеквадратическое отклонение: ", round(std.error, 6), "
", "ВВероятность случайного изменения: ", round(p.value, 6)))) geom_errorbar(aes(x = reorder(МАГАЗИН, estimate), ymin = estimate на моделируемом наборе данных: x < все работает просто отлично, но все кодировки одинаковы stringi::stri_enc_mark(colnames(df)) [1] "native" "ASCII" "native"
Как я могу изменить кодировку, чтобы я мог построить ее?              

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
...