LN
Добрый день!
Size: a a a
2020 March 14
AS
Спасибо, попробую.
A
2020 March 15
AK
В продолжение важной темы, написал небольшую заметку в фейсбуке по динамике COVID-19, ссылаться на себя не хорошо, поэтому ссылку на объяснялку не даю, но, возможно, кому-то будет интересно отслеживать изменения, поэтому вот код, который использовал для построения графиков (из них итак все понятно):
AK
devtools::install_github("RamiKrispin/coronavirus")
# Библиотеки
library(tidyverse)
library(coronavirus)
# Динамика заболевания в Китае
coronavirus %>%
mutate(type = factor(type, levels = c("confirmed", "recovered", "death"), labels = c("подтвержденных", "вылечившихся", "умерших"))) %>%
filter(Country.Region == "China") %>%
filter(cases != 0) %>%
ggplot(aes(x = date, y = cases))+
geom_col(aes(fill = type), position = "dodge")+
scale_fill_manual(values = c("steelblue", "orange", "red"), name = "Тип")+
labs(x = "Дата", y = "Наблюдения", title = "Динамика COVID-19 в Китае")+
theme_bw()
# Динамика заболевания COVID-19 в мире
coronavirus %>%
mutate(type = factor(type, levels = c("confirmed", "recovered", "death"), labels = c("подтвержденных", "вылечившихся", "умерших"))) %>%
filter(cases != 0) %>%
ggplot(aes(x = date, y = cases))+
geom_col(aes(fill = type), position = "dodge")+
scale_fill_manual(values = c("steelblue", "orange", "red"), name = "Тип")+
labs(x = "Дата", y = "Наблюдения", title = "Динамика COVID-19 в мире")+
theme_bw()
# Динамика заболевания COVID-19 в мире за исключением Китая
coronavirus %>%
mutate(type = factor(type, levels = c("confirmed", "recovered", "death"), labels = c("подтвержденных", "вылечившихся", "умерших"))) %>%
filter(Country.Region != "China") %>%
filter(cases != 0) %>%
ggplot(aes(x = date, y = cases))+
geom_col(aes(fill = type), position = "dodge")+
scale_fill_manual(values = c("steelblue", "orange", "red"))+
labs(x = "Дата", y = "Наблюдения", fill = "Тип", title = "Динамика COVID-19 в мире за исключением Китая")+
theme_bw()a
В продолжение важной темы, написал небольшую заметку в фейсбуке по динамике COVID-19, ссылаться на себя не хорошо, поэтому ссылку на объяснялку не даю, но, возможно, кому-то будет интересно отслеживать изменения, поэтому вот код, который использовал для построения графиков (из них итак все понятно):
Так вроде ж есть уже дашборды, например, здесь
AK
Так вроде ж есть уже дашборды, например, здесь
да, я в курсе)
AK
Больше дашбордов красивых и ярких! Тут другая идея, когда много графиков и различных настроек, в них легко запутаться. Иногда много не надо, только мешают сосредоточиться на значимом.
АК
Интересный кейс. Берётся документация к REST API и с помощью R-кода конструируется R-функция (генерируется R-код) для выполнения запросов к этому API.
https://colinfay.me/fun-from-api-doc/
https://colinfay.me/fun-from-api-doc/
AS
Всем привет. Кто-то может подсказать, почему dplyr::rename(srvc_name = `Название `) вызывает Error in .f(.x[[i]], ...) : object 'Название ' not found? Все остальные поля переименовались без проблем.
AS
Из-за пробела что ли?
AS
Понятно, что это можно было бы обойти, задав col_names напрямую в импорте файла, но так удобнее сравнивать с файлом в Excel по названиям полей.
a
ошибка же все сказала, такого столбца нет. Там аргументы такие: новое_имя = старое_имя
YS
Может в названии экселевского столбца не обычный пробел, а неразрывный
AS
ошибка же все сказала, такого столбца нет. Там аргументы такие: новое_имя = старое_имя
Есть. Я это из результатов glimpse() скопипастил.
AS
Yuriy Saraikin
Может в названии экселевского столбца не обычный пробел, а неразрывный
А вот это выглядит уже более похожим на правду.
YS
Проверьте в Эксель через КОДСИМВ
AS
Yuriy Saraikin
Проверьте в Эксель через КОДСИМВ
Выдал 202 (на MacOSx).
YS
Про MacOS не подскажу, а на windows обычный пробел 32, неразрывный 160
AS
Спасибо. Не могу разглядеть, какой из двух тут =).