【応用】年代別 科学者

光学を支えてきた多くの科学者がいます。年代順に表示してみます。

グラフはRで作成しました。そのコードは、下記のとおりです。

library(tidyverse)
library(ggplot2)

dat <-matrix( c(
  "ガリレオ", 1564, 1642,
  "ケプラー", 1571, 1630,
  "スネル", 1591, 1626,
  "フェルマー", 1607, 1665,
  "ホイヘンス", 1629, 1695,
  "レーフェンフック", 1632, 1723,
  "フック", 1635, 1703,
  "ニュートン", 1643, 1727,
  "ダランベール", 1717, 1783,
  "ラプラス",1749, 1827,
  "ヤング", 1773, 1829,
  "マリュス",1775, 1812,
  "リッター",1776, 1810,
  "ガウス", 1777, 1855,
  "フラウンホーファー", 1787, 1826,
  "フレネル",1788, 1827,
  "レンツ",1804, 1865,
  "フィゾー",1819, 1896,
  "ザイデル", 1821, 1896,
  "マクスウェル", 1831, 1879,
  "アッベ", 1840, 1905,
  "レントゲン", 1845, 1923,
  "リーギ", 1850, 1920,
  "フィッツジェラルド", 1851, 1901,
  "マイケルソン", 1852, 1931,
  "プランク", 1858, 1947
), ncol=3, byrow = TRUE)

chronological_dat <- dat %>% 
  as.data.frame() %>% 
  rename("name"=V1, "b_year"=V2, "d_year"=V3) %>% 
  mutate(b_year=as.numeric(b_year), d_year=as.numeric(d_year)) %>% 
  arrange(desc(b_year)) %>% 
  mutate(cap=paste(name, "(", b_year, "-", d_year, ")")) %>% 
  pivot_longer(!c(name, cap), names_to="fname", values_to="fyear") %>% 
  ggplot() +
  geom_line(aes(fyear, fct_inorder(name, fyear), group = name), color = 'black', size = 2) +
  geom_point(aes(fyear, fct_inorder(name, fyear)), size = 3) +
  theme(axis.title.x=element_blank(), axis.title.y=element_blank())

chronological_dat

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です