Bu çalışmada Anıtkabir kitaplık bilgilerinde yer alan ve Atatürk’ün üzerine not aldığı 195 kitabın bilgilerini içeren veri seti kullanılarak Atatürk’ün okuduğu kitaplar ve bunların zaman içindeki dağılımına dair ufak bir fikir sahibi olunması amaçlanmıştır.
Bu çalışmadaki veri seti ve aynı zamanda bu çalışmanın ilham kaynağı Journo’da Dilek Atlı’nın hazırlamış olduğu ve bu bağlantıdan ulaşabileceğiniz haberdir. Kendisinin emeğine tekrar çok teşekkürler.
Bu çalışmada ggplot2, ggthemes,
dplyr ve plotly paketleri kullanılmıştır.
library(ggplot2)
library(plotly)
library(ggthemes)
library(readxl)
library(dplyr)
ataturk<-read_excel("ataturkun_kitaplari.xlsx")
head(ataturk)## # A tibble: 6 x 7
## `Yazar Adı` `Kitap Adı` Yayın~1 Dil Konu ~2 Konu ~3 Anıtk~4
## <chr> <chr> <dbl> <chr> <chr> <chr> <chr>
## 1 Jean-Antoine Guer Moeurs et usages~ 1746 Fran~ Siyase~ Osmanlı 1. cil~
## 2 Montesquieu Oeuvres 1750 Fran~ Sanat <NA> 10-12.~
## 3 Oseph de Guignes Histoire général~ 1756 Fran~ Tarih Yakın ~ 1. cil~
## 4 Mehmet Vakanüvis Subhî Tarih-i Samî ve ~ 1782 Türk~ Tarih Genel ~ <NA>
## 5 François Tott Mémoires du baro~ 1784 Fran~ Anı <NA> 1. kıs~
## 6 J.B. Morin Dictionnaire éty~ 1809 Fran~ Yunan ~ Fransı~ <NA>
## # ... with abbreviated variable names 1: `Yayın Yılı`, 2: `Konu 1`,
## # 3: `Konu 2`, 4: `Anıtkabir Kütüphanesi notu`p<- ggplot(ataturk,aes(x= Yıl))+geom_bar(stat = "count",fill = "darkred")+
geom_vline(xintercept = "1923" ,size = 1.2,color="black")+theme_fivethirtyeight()+
labs(title = "Atatürk'ün Not Aldığı Kitapların Yıllara Göre Dağılımı",
subtitle = "Kaynak: Anıtkabir | @OzancanOzdemir")+
theme(rect = element_rect(fill ="white"),
legend.position = "none",
axis.text.x = element_text(angle = 90),
axis.text = element_text(face ="bold"))
ggplotly(p)## Warning: `gather_()` was deprecated in tidyr 1.2.0.
## i Please use `gather()` instead.
## i The deprecated feature was likely used in the plotly package.
## Please report the issue at <https://github.com/plotly/plotly.R/issues>.Veri setinde yer alan 195 kitabın basım yıllarını incelediğmizde, Atatürk’ün not aldığı kitapların çoğunun 1920-1930 yılları arasında basıldığını görüyoruz. Öte yandan 1930-1935 arasında neredeyse eşit bir dağılım varken, belki de o dönem ki sağlık durumunun etkisiyle ve tabii veri setininden de kaynaklı olabilir, 1935 sonrası basılan ve not aldığı kitap sayısının düştüğünü görüyoruz.
p1<- ggplot(ataturk,aes(x= `Konu 1`))+geom_bar(stat = "count",fill = "darkred")+
geom_vline(xintercept = "1923" ,size = 1.2,color="black")+theme_fivethirtyeight()+
labs(title = "Atatürk'ün Not Aldığı Kitapların Konulara Göre Dağılımı",
subtitle = "Kaynak: Anıtkabir | @OzancanOzdemir")+
theme(rect = element_rect(fill ="white"),
legend.position = "none",
axis.text.x = element_text(angle = 90),
axis.text = element_text(face ="bold"))
ggplotly(p1)Atamızın okuduğu ve üstüne not düştüğü kitapları ilk konularına göre incelediğimizde ise arkeolojiden siyaset bilimine, tıptan tiyatroya 25 farklı ana konu görüyoruz. Konuarın sıklık durumuna baktığımızda ise Atatürk’ün okumayı en çok sevdiği kitap türünün Tarih konulu kitaplar olduğunu söylesek haksız sayılmayız. (195 kitaptan 105’i (54%) Tarih).
p2<- ggplot(ataturk,aes(x= Dil))+geom_bar(stat = "count",fill = "darkred")+
theme_fivethirtyeight()+
labs(title = "Atatürk'ün Not Aldığı Kitapların Yazıldığı Dile Göre Dağılımı",
subtitle = "Kaynak: Anıtkabir | @OzancanOzdemir")+
theme(rect = element_rect(fill ="white"),
legend.position = "none",
axis.text.x = element_text(angle = 90),
axis.text = element_text(face ="bold"))
ggplotly(p2)Atatürk’ün okuyup not aldığı kitaplar Almanca, Fransızca, İngilizce, İtalyanca ve Türkçe dillerinde yazılmıştır. Kitapların bu dillere göre dağılımına baktığımızda ise, yarısından çoğunun Fransızca (195 kitabın 123’ü) olduğunu görüyoruz. 195 kitabın ise 59’u Türkçe, 8’i İngilizce, 3’ü İtalyanca ve 1’i Almanca.
ataturk_yazar <- ataturk %>% group_by(`Yazar Adı`)%>%summarise(Sayı = n())%>%arrange(desc(Sayı))%>%head(11)%>%filter(!row_number() %in% 1)
p3<- ggplot(ataturk_yazar,aes(x=reorder(`Yazar Adı`,Sayı),y=Sayı,fill = Sayı))+geom_bar(stat = "identity")+
theme_fivethirtyeight()+
labs(title = "Atatürk'ün Not Aldığı Kitapların Yazarlara Göre Dağılımı",
subtitle = "Kaynak: Anıtkabir | @OzancanOzdemir")+
theme(rect = element_rect(fill ="white"),
legend.position = "none",
axis.text.x = element_text(angle = 90),
axis.text = element_text(face ="bold"))
ggplotly(p3)Atatürk’ün okuyup not aldığı 195 kitabı yazarlarına göre incelediğimizde Ata’nın en fazla tercih ettiği yazarın İngiliz James Churchward olduğunu görüyoruz. İlk 10’da yer alan yazarlara baktığımızda ise Ahmet Refik Altınay, Ahmet Cevat Emre ve Abdülhak Hamiy Tarhan’ın ise en bu listede yer alan Türk yazarlar olduğunu söylemek mümkün. Tam listeyi sayfanın en altında inceleyebilirsiniz.
Son olarak kitapların türlerinin yıllara ve dillerine göre dağılımını, yazar ve kitap isim bilgileri ile, interaktif bir şekilde aşağıda yer alan grafikten inceleyebilirsiniz.
p4<-ggplot(ataturk,aes(x = Yıl, y= `Konu 1`,colour = Dil,
text =paste("Kitap:",`Kitap Adı`,"\n Yazar:",`Yazar Adı`)))+
geom_point(size = 2.5)+theme_fivethirtyeight()+scale_color_manual(values = c("Orange", "Darkblue", "Steelblue","Darkgreen","Darkred"))+
labs(title = "Atatürk'ün Not Aldığı Kitapların Konuları ve Yıllara Göre Dağılımı",
caption = "Kaynak: Anıtkabir | @OzancanOzdemir")+
theme(rect = element_rect(fill ="white"),
legend.position = "bottom",
axis.text.x = element_text(angle = 90),
axis.text = element_text(face ="bold",size = 9),
plot.title = element_text(size = 17),
plot.caption = element_text(face ="bold",size = 8),
legend.text =element_text(face ="bold",size = 8),
legend.title = element_text(face ="bold",size = 8))
ggplotly(p4)## Warning: plotly.js does not (yet) support horizontal legend items
## You can track progress here:
## https://github.com/plotly/plotly.js/issues/53Soru, görüş ve öneriler için ozancan@metu.edu.tr
Yazar Listesi
knitr::kable(ataturk_yazar <- ataturk %>% group_by(`Yazar Adı`)%>%summarise(Sayı = n())%>%arrange(desc(Sayı))%>%filter(!row_number() %in% 1))| Yazar Adı | Sayı |
|---|---|
| James Churchward | 5 |
| Giorgio Quartara | 4 |
| Avram Galanti Bodrumlu | 3 |
| Charles Aimond | 3 |
| Eugène Cavaignac | 3 |
| Abdulhak Hamit Tarhan | 2 |
| Ahmet Cevat Emre | 2 |
| Ahmet Refik Altınay | 2 |
| Albert Malet | 2 |
| Bartolomeo Nogara | 2 |
| Bedros Kerestedjian | 2 |
| Ernest Renan | 2 |
| Falih Rıfkı Atalay | 2 |
| Gustav Le Bon | 2 |
| Herbert Gowen | 2 |
| Hüseyin Kazım Kadri | 2 |
| Joseph Freiherr von Hammer-Purgstall | 2 |
| Necip Âsım Yazıksız | 2 |
| René Dussaud | 2 |
| René Grousset | 2 |
| Rıza Nur | 2 |
| Abdurrahman Şeref | 1 |
| Abdülhamid Ziya Paşa | 1 |
| Abel Jean Baptiste Marie Michel Pavet de Courteille | 1 |
| Afet İnan | 1 |
| Ahmet Hâmit Ongunsu | 1 |
| Ahmet Hilmi Şebenderzade | 1 |
| Ahmet Zeki Velidi Togan | 1 |
| Albert Kammerer | 1 |
| Albert Vandal | 1 |
| Alexandre Georges Davy Moret | 1 |
| Alexandre Moret | 1 |
| Alfred Cort Haddon | 1 |
| Alfred Ernout, Antoine Meillet | 1 |
| Alfred Nicolas Rambaud | 1 |
| Alfred Stern | 1 |
| Ali Reşat | 1 |
| Amédée Jean Le Faure | 1 |
| Amédée Simon Dominique Thierry | 1 |
| Antonin Debidor | 1 |
| Armand Dayot (Pierre Marie) | 1 |
| Auguste François Victor Arde | 1 |
| Augustin Marrast | 1 |
| Bulgurluzade Rıza | 1 |
| Carlyle Thomas | 1 |
| Charles-Léon Flot Maquet | 1 |
| Charles Bally | 1 |
| Charles Diehl | 1 |
| Charles Etienne | 1 |
| Charles François Ernest Babelon | 1 |
| Charles Leonard Woolley, | 1 |
| Charles Seignobos | 1 |
| Clement Huart | 1 |
| Cumhuriyet Halk Fıkrası | 1 |
| Danimarka | 1 |
| David Leon Cahun | 1 |
| Dêmêtrios Geôrgiadês | 1 |
| Ebülgazi Bahadır Han | 1 |
| Edip Kemal Ergin | 1 |
| Edmord Perrier | 1 |
| Edouard Driault | 1 |
| Eduard Karloviç Pekarskiy | 1 |
| Eduard Mayer | 1 |
| Emile Faguet | 1 |
| Emilio Castelar (y Ripoll) | 1 |
| Emmanuel Martonne | 1 |
| Ernest Lavisse | 1 |
| Ernest Lavisse, Alfred Rambaud | 1 |
| Eugène Pittard | 1 |
| F. York-T.F. Tout Powoll | 1 |
| Farid Mohamed | 1 |
| Ferdinand Lot | 1 |
| François Lenormant | 1 |
| François Pierre Guillauma, Guizot | 1 |
| François Tott | 1 |
| François Valentin | 1 |
| Gabriel Hanotaux | 1 |
| Gaston Camille Charles Maspéro | 1 |
| Gaston Des Godins de Souhesmés | 1 |
| Georg Moritz Ebers | 1 |
| George Montandon | 1 |
| Georges-Amquetil | 1 |
| Georges Blondel | 1 |
| Georges Duhamel | 1 |
| Georges Maspéro | 1 |
| Geza Feher | 1 |
| Gustav Glotz | 1 |
| Gustave Léon Schlumberger | 1 |
| H. F. Kvergic | 1 |
| Henri Martin | 1 |
| Henry Binder | 1 |
| Henry Hubert | 1 |
| Henry Morgenthau | 1 |
| Herbert George Wells | 1 |
| Hilaire de Barenton | 1 |
| İbnürrefik Ahmet Nuri | 1 |
| İbrahim Alâettin Bey | 1 |
| J.B. Morin | 1 |
| Jacques Jean Maris de Morgan | 1 |
| james Churchward | 1 |
| Jean-Antoine Guer | 1 |
| Jean Brunhes | 1 |
| Jean Pierre Guillaume Pauthier | 1 |
| John William Draper | 1 |
| Josef Ksiaze Lubomirski | 1 |
| Joseph Arthur Comte de Gobineau | 1 |
| Joseph de Guignes | 1 |
| Jules Sion | 1 |
| Kamil Su | 1 |
| L. Feullet | 1 |
| Leono Caetani | 1 |
| Louis Couturat | 1 |
| Louis Halphen | 1 |
| Louis Joseph Delaporte | 1 |
| Louis Marie Quicherat | 1 |
| Louis Pierre Anquetil | 1 |
| Louis Pierre Eugène Amélie Sédillot | 1 |
| Louise de La Vallée-Poussin | 1 |
| Lucien Bouva | 1 |
| Lucien Paul Victor Febure | 1 |
| Lütfi Simavi | 1 |
| Marcel Brion | 1 |
| Maxime Petit | 1 |
| Mehmet Fuat Köprülü | 1 |
| Mehmet Memduh Paşa | 1 |
| Mehmet Vakanüvis Subhî | 1 |
| Montesquieu | 1 |
| Mustafa Celalettin | 1 |
| Mustafa Necib | 1 |
| Necip Âsım Yazıksız - Mehmet Arif | 1 |
| Nikolay Katanov | 1 |
| Oseph de Guignes | 1 |
| Osman Cevdet Çubukçu | 1 |
| Ömer Hayyam | 1 |
| Paul-Maurice Zimmermann Privat-Deschanel | 1 |
| Philippe Le Bas | 1 |
| Piere Larousse | 1 |
| Platon Mihayloviç Melioranskiy | 1 |
| Raoul Blanchard, Grenard Fernand | 1 |
| Rauf Yekta | 1 |
| Raymond Colrat | 1 |
| Renato Bova Scoppa | 1 |
| Selim Sırrı Tarcan | 1 |
| Sergey Mihajloviç Solovev | 1 |
| Seura Helsingfors Suomalais-Ugrilainen | 1 |
| Stanley Lane-Poole | 1 |
| Süleyman Fikri Erten | 1 |
| Şeyh Süleyman Buhari | 1 |
| Tahir Karaoğuz | 1 |
| Tarama Dergisi | 1 |
| Tevfik Ebüzziya | 1 |
| Théophile Sebastien Lavallée | 1 |
| Türk Tetkik Cemiyeti | 1 |
| Vasiliy İvanoviç Verbitskiy | 1 |
| Velet Çelebi Izbudak | 1 |
| Vital Cuinet | 1 |
| William Shakespeare | 1 |
| Yusuf Ziya Ortaç | 1 |
| Ziya Gökalp | 1 |