Nebaz.ru
vk.com/dhmaga Количество участников: 203
Название группы
Магистратура по Digital Humanities в Вышке
Описание
Официальная страничка магистратуры НИУ ВШЭ "Цифровые методы в гуманитарных науках". Тут мы постим всякое про магистратуру. Срочные вопросы лучше слать прямо Дане Скоринкину. 146% диджитал.
Сайт
hse.ru/ma/dh
Тип сообщества
Публичная страница
Тип деятельности
Университет
Записи сообщества:
Магистратура по Digital Humanities в Вышке
Магистратура по Digital Humanities в Вышке 8 нояб. 2021 в 10:05
Заходите на хакатон в субботу:
Магистратура по Digital Humanities в Вышке
Магистратура по Digital Humanities в Вышке 2 июля 2021 в 13:00
Встречайте первый выпуск! 🎉
Магистратура по Digital Humanities в Вышке
Магистратура по Digital Humanities в Вышке 17 июня 2021 в 12:49
Вчера защитился первый выпуск в истории нашей Digital Humanities магистратуры. Защиты дипломов стали просто праздником междисциплинарности и фейерверком разных цифровых методов. От компьютерного зрения в анализе экранизаций Толстого до GIS по псковской археологии, от исследования шуток нейросетями до майнинга политических записей в дневниках XX веке, от Python-библиотеки для конвертации TEI/XML во что угодно до количественного изучения языка протестных плакатов в Беларуси, от дореволюционных кинематографических либретто до фотофиксации зданий, подлежащих сносу по реновации. Спасибо студентам, которые устроили этот праздник и вообще первыми прошли весь этот двухлетний путь. Ура 🎉
Магистратура по Digital Humanities в Вышке
Магистратура по Digital Humanities в Вышке 1 апр. 2021 в 13:45
#dhhse
#dhhse_memes

⭐ Как делать мемы в R Studio ⭐

В жизни каждого человека рано или поздно наступает момент, когда хочется сделать свой мем. Однако ни для кого не секрет, что профессиональные графические редакторы дороги и сложны в использовании. Поэтому мы решили опубликовать урок по созданию мемов в бесплатном ПО RStudio при помощи библиотеки ggplot.

🔸 1. Подключение пакетов
Как обычно, вначале нужно установить и подключить нужные пакеты. Помимо ggplot нам потребуются модуль png для чтения графических файлов в формате .png, ggpubr для использования изображения в качестве фона графика и extrafont для дополнительных шрифтов.

💻 Код:
library(ggplot2)
library(png)
library(ggpubr)
library(extrafont)

🔸 2. Создание пустого датафрейма и графика
ggplot требует данных для генерации графика. Для этого мы создаем датафрейм при помощи стандартной функции data.frame(). Чтобы у ggplot были хоть какие-то ориентиры, задаем произвольные границы графика в xlim() и ylim().

💻 Код:
df <- data.frame()

ggplot(df) +
xlim(0,10) +
ylim(0,10)

🔸 3. Вставка графического фона
Теперь нужно выбрать изображение и прочитать его в переменную функцией readPNG(). Чтобы картинка не деформировалась, прописываем в theme значение aspect.ratio, которое задает отношение высоты к ширине графика. Не забудьте предварительно прописать путь к рабочей директории в `setwd()`.

💻 Код:
i <- png::readPNG('vl.png')

ggplot(df) +
background_image(i)+
xlim(0,10) +
ylim(0,10) +
theme(
aspect.ratio = 0.7)

🔸 4. Добавление надписей
Подписи осей задаются в xlab() и ylab(), а чтобы добавить текст внутрь самого графика можно использовать annotate(geom='text') с произвольными координатами.

💻 Код:
ggplot(df) +
background_image(i)+
xlim(0,10) +
ylim(0,10) +
xlab('не важно') +
ylab('важно') +
annotate(geom='text', x=6, y=3, label='КТО') +
theme(
aspect.ratio = 0.7)

🔸 5. Оформление
Осталось только задать оформление элементов. Темный фон с эффектом фильтра получается при использовании цвета gray14 в plot.background(). Цвет и шрифт подписей изменяется добавлением параметров size, color, family и face в annotate и axis.title. Чтобы значения шкал можно было прочитать, их цвет тоже меняется на белый в аргументах axis.text (вообще их можно убрать, но нам кажется, что они придают своеобразное очарание нашему мему).

💻 В результате код выглядит вот так:
ggplot(df) +
background_image(i)+
xlim(0,10) +
ylim(0,10) +
xlab('не важно') +
ylab('важно') +
annotate(geom='text', size=30, x=6, y=3, label='КТО', color='white', family = 'Times New Roman') +
theme(
aspect.ratio = 0.7,
axis.title.x = element_text(size=40, color = 'white', family='Times New Roman', face ='bold'),
axis.title.y = element_text(size=40, color = 'white', family='Times New Roman', face ='bold'),
plot.background = element_rect(fill = "gray14"),
axis.text.x=element_text(colour='white'),
axis.text.y=element_text(colour='white'))

Теперь вы можете сохранить ваш мем в панели Plots.
Приятного мемопроизводства!