Этические высказывания о самоубийстве, но без высказываний

Что это за архив

Я нашел прикольный сайт университета Юты The Ethics of Suicide Digital Archive с высказываниями о самоубийстве.

здесь табличка!

library(tidyverse)
library(knitr)

authors <- tribble(
  ~Автор, ~`Год рождения`, ~`Год смерти`, ~Произведение,
  "Плиний Старший", 23, 79, "Natural History",
  "Иосиф Флавий", 37, 100, "The Jewish War",
  "Плутарх", 46, 120, "Moralia",
  "Эпиктет", 55, 135, "Discourses",
  "Тацит", 55, 117, "The Annals",
  "Плиний Младший", 62, 113, "Letters",
  "Иустин Мученик", 100, 165, "The Second Apology",
  "Климент Александрийский", 150, 215, "The Miscellanies (Stromata)",
  "Тертуллиан", 160, 220, "To the Martyrs",
  "Плотин", 204, 270, "The Enneads",
  "Лактанций", 240, 320, "The Divine Institutes",
  "Амвросий", 337, 397, "Of Virgins",
  "Августин", 354, 430, "The City of God"
)

Автор	Год рождения	Год смерти	Произведение
Плиний Старший	23	79	Natural History
Иосиф Флавий	37	100	The Jewish War
Плутарх	46	120	Moralia
Эпиктет	55	135	Discourses
Тацит	55	117	The Annals
Плиний Младший	62	113	Letters
Иустин Мученик	100	165	The Second Apology
Климент Александрийский	150	215	The Miscellanies (Stromata)
Тертуллиан	160	220	To the Martyrs
Плотин	204	270	The Enneads
Лактанций	240	320	The Divine Institutes
Амвросий	337	397	Of Virgins
Августин	354	430	The City of God

Уведомлениеnot a call out

Здесь должен быть callout-note!

Годы жизни авторов

ggplot(authors, aes(
  x = `Год рождения`,
  y = `Год смерти`,
  colour = Автор
)) +
  geom_point(size = 3) +
  labs(
    x = "Год рождения, н. э.",
    y = "Год смерти, н. э.",
    colour = "Автор"
  )

прекрасный Августин

Сандро Боттичелли. Святой Августин, 1480.

годы и авторы

На графике показаны годы рождения авторов.¹.

цитата

Но вот уже время идти отсюда: мне — чтобы умереть, вам — чтобы жить, а кто из нас идет к лучшему, это неведомо никому, кроме бога.

— Сократ

Сноски

1. Некоторые даты приблизительные. Для Амвросия взят 337 год из записи 337/340. Это годы рождения авторов