607 Assignment 10B Dylan Gold

Approach

In this assignment we have to use the Noble Prize Developer Zone to collect data and answer some data driven questions. First I will test out the API call. It looks like we do not need an account for this call. Once I experiment with some calls I can see how it works and create some questions.

library(tidyverse)
library(httr)
library(jsonlite)
library(gt)

I will look at laureates api, there is also one

url <- "https://api.nobelprize.org/2.1/laureates" # Testing simple api call on the laureates endpoint

response <- GET(url)
data <- fromJSON(content(response, "text", encoding = "UTF-8"))
status_code(response)
[1] 200

Display data, use unnest to show more than the lists/dataframes nested inside.

laureates_df <- unnest(data$laureates)
Warning: `cols` is now required when using `unnest()`.
ℹ Please use `cols = c(knownName, givenName, familyName, fullName, birth,
  wikipedia, wikidata, sameAs, links, nobelPrizes, death)`.
head(laureates_df)
# A tibble: 6 × 40
  id    en       se    en1   se1   en2   se2   en3   se3   fileName gender date 
  <chr> <chr>    <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>    <chr>  <chr>
1 745   A. Mich… A. M… A. M… A. M… Spen… Spen… A. M… A. M… spence   male   1943…
2 745   A. Mich… A. M… A. M… A. M… Spen… Spen… A. M… A. M… spence   male   1943…
3 102   Aage N.… Aage… Aage… Aage… Bohr  Bohr  Aage… Aage… bohr     male   1922…
4 102   Aage N.… Aage… Aage… Aage… Bohr  Bohr  Aage… Aage… bohr     male   1922…
5 779   Aaron C… Aaro… Aaron Aaron Ciec… Ciec… Aaro… Aaro… ciechan… male   1947…
6 779   Aaron C… Aaro… Aaron Aaron Ciec… Ciec… Aaro… Aaro… ciechan… male   1947…
# ℹ 28 more variables: year <chr>, place <df[,6]>, slug <chr>, english <chr>,
#   id1 <chr>, url <chr>, sameAs <chr>, rel <chr>, href <chr>, action <chr>,
#   types <chr>, title <chr>, class <list>, awardYear <chr>, category <df[,3]>,
#   categoryFullName <df[,3]>, sortOrder <chr>, portion <chr>,
#   dateAwarded <chr>, prizeStatus <chr>, motivation <df[,3]>,
#   prizeAmount <int>, prizeAmountAdjusted <int>, affiliations <list>,
#   links <list>, residences <list>, date1 <chr>, place1 <df[,6]>

We can see Names and prize money here, we can see that unnesting it duplicated rows as they have the same ID. There are also dataframes still shown inside probably nested even deeper. I will have to fix this in the codebase but some inistial questions I can ask are could be based on money, something as simple as who made the most money? I could also ask something more complicated related to money like what was the average earning each year shown in a timeplot. Once I see more of the columns that are nested deeper like the place or category I could ask questions based on that as well.

Codebase

I will start off by loading in the data again.

library(tidyverse)
library(httr)
library(jsonlite)

This time I will look at the other endpoint,

url <- "https://api.nobelprize.org/2.1/nobelPrizes" # Testing simple api call on the laureates endpoint

response <- GET(url)
data <- fromJSON(content(response, "text", encoding = "UTF-8"))
status_code(response)
[1] 200

After looking at the data, I believe the nobelPrizes endpoint would be easier to work with and probably easier to formulate questions on.

I also noticed we were being cut off and only receiving 25 responses. Initially I was considering running loops for each of the categories and each of the years because in the documentation those are the ways you can modify the request but I decided to ask Chatgpt as well. I was surprised to find that you could actually just modify the request to give you more responses. Chatgpt recommended the following line of code
https://api.nobelprize.org/2.1/nobelPrizes?limit=25&offset=0 I modified this line to give me all the responses available.

url <- "https://api.nobelprize.org/2.1/nobelPrizes?limit=1000" # set the limit to 1000 to get all (682) rows
response <- GET(url)
data <- fromJSON(content(response, "text", encoding = "UTF-8"))
status_code(response)
[1] 200
df <- data$nobelPrizes
glimpse(df)
Rows: 682
Columns: 9
$ awardYear           <chr> "1901", "1901", "1901", "1901", "1901", "1902", "1…
$ category            <df[,3]> <data.frame[26 x 3]>
$ categoryFullName    <df[,3]> <data.frame[26 x 3]>
$ dateAwarded         <chr> "1901-11-12", "1901-11-14", "1901-12-10", "1901…
$ prizeAmount         <int> 150782, 150782, 150782, 150782, 150782, 141847,…
$ prizeAmountAdjusted <int> 10833458, 10833458, 10833458, 10833458, 10833458, …
$ links               <list> [<data.frame[1 x 4]>], [<data.frame[1 x 4]>], [<da…
$ laureates           <list> [<data.frame[1 x 7]>], [<data.frame[1 x 7]>], [<da…
$ topMotivation       <df[,2]> <data.frame[26 x 2]>

We now see that we have the data, all 682 rows. we can unnest the data and ask questions. I will follow through on my approach of asking questions relating to the prize amount and such.
I will use unnest_wider as we likely want to create more columns from the values as opposed to longer which would create more rows.
I will chain several unnest_wider calls on columns that are nested.
Because some have overlaping column names, we can use names_sep to attach the new column name to the original.

np_df <- df %>%
  unnest_wider(category, names_sep = "_") %>% # both categorys have overlap. names_sep needed
  unnest_wider(categoryFullName, names_sep = "_") %>%
  unnest_wider(links) %>%
  unnest_wider(laureates) %>%
  unnest_wider(topMotivation)

head(np_df)
# A tibble: 6 × 26
  awardYear category_en            category_no   category_se categoryFullName_en
  <chr>     <chr>                  <chr>         <chr>       <chr>              
1 1901      Chemistry              Kjemi         Kemi        The Nobel Prize in…
2 1901      Literature             Litteratur    Litteratur  The Nobel Prize in…
3 1901      Peace                  Fred          Fred        The Nobel Peace Pr…
4 1901      Physics                Fysikk        Fysik       The Nobel Prize in…
5 1901      Physiology or Medicine Fysiologi el… Fysiologi … The Nobel Prize in…
6 1902      Chemistry              Kjemi         Kemi        The Nobel Prize in…
# ℹ 21 more variables: categoryFullName_no <chr>, categoryFullName_se <chr>,
#   dateAwarded <chr>, prizeAmount <int>, prizeAmountAdjusted <int>, rel <chr>,
#   href <chr>, action <chr>, types <chr>, id <list<chr>>,
#   knownName <list<df[,2]>>, fullName <list<df[,1]>>, portion <list<chr>>,
#   sortOrder <list<chr>>, motivation <list<df[,3]>>, links <list<list>>,
#   orgName <list<df[,2]>>, nativeName <list<chr>>, acronym <list<chr>>,
#   en <chr>, se <chr>

We now have all our columns unnested. I will select columns that I think are useful because there are many columns that are not.
Many columns are redundant, like date awarded and year, category and categoryFullname.

columns <- c("awardYear", "category_en", "prizeAmount", "prizeAmountAdjusted", "fullName", "portion")
np_data <- np_df %>%
  select(all_of(columns))
head(np_data)
# A tibble: 6 × 6
  awardYear category_en         prizeAmount prizeAmountAdjusted fullName portion
  <chr>     <chr>                     <int>               <int> <list<d> <list<>
1 1901      Chemistry                150782            10833458  [1 × 1]     [1]
2 1901      Literature               150782            10833458  [1 × 1]     [1]
3 1901      Peace                    150782            10833458  [2 × 1]     [2]
4 1901      Physics                  150782            10833458  [1 × 1]     [1]
5 1901      Physiology or Medi…      150782            10833458  [1 × 1]     [1]
6 1902      Chemistry                141847            10191492  [1 × 1]     [1]

We also have cases where there are multiple laureates for a single award. I want to see if there are cases where each person is not awarded the some portion. I will filter on this column with unique for this. This will also be my first question that I try to answer, How many times was the prize money split unequally?
We get 39 noble prizes were split unequally.

# This function checks the unique amount, if its greater than 1, meaning we have not all equal proportions return True, else false
check_unique <- function(x) {
  return(length(unique(x)) > 1)
}

filtered_unequal <- np_data %>% filter(sapply(np_data$portion, check_unique))
head(filtered_unequal)
# A tibble: 6 × 6
  awardYear category_en         prizeAmount prizeAmountAdjusted fullName portion
  <chr>     <chr>                     <int>               <int> <list<d> <list<>
1 1903      Physics                  141358             9857642  [3 × 1]     [3]
2 1946      Chemistry                121524             3166301  [3 × 1]     [3]
3 1947      Physiology or Medi…      146115             3685518  [3 × 1]     [3]
4 1958      Physiology or Medi…      214559             3346838  [3 × 1]     [3]
5 1963      Physics                  265000             3590371  [3 × 1]     [3]
6 1964      Physics                  273000             3576149  [3 × 1]     [3]
nrow(filtered_unequal)
[1] 39

This makes making the data frame tidy a bit more difficult. We have to match each person to their proportion of the prize money rather than just divide by the number of people. We can still do this. We have 2 columns, one with names and another with their corresponding portions.
The rows need to be make into multiple rows so we use unnest longer.
I was not sure if I could unnest_longer while keeping corresponding rows together so I decided to use the LLM again, chatgpt.
I learn I can just give unnest_longer a list of columns and it will do exactly that.
I combine this with mutate to create new prizeAmounts and prizeAmountAdjusted.
The converting from fraction to numeric I also asked chatgpt to help.

tidy_np <- np_data %>%
  unnest_longer(c(fullName, portion), keep_empty = TRUE) %>% # Sometimes the prize has no laureates.
  unnest_wider(fullName) %>% # Got put into a vector again, unnest
    mutate(
    portion = map_dbl(portion, function(x) { # Generated Code modified slightly, converts fraction to numeric
      if (is.na(x)) return(1) # Returns 1 if na
      if (!grepl("/", x)) return(as.numeric(x)) # if whole number returns the number, ex 1 -> 1

      s <- strsplit(x, "/")[[1]] # Splits by / 
      as.numeric(s[1]) / as.numeric(s[2]) # Divides numerator and denominator
    }),
    prizeAmount = prizeAmount * portion, # Multiply by the portion we updated from fraction char to numeric.
    prizeAmountAdjusted = prizeAmountAdjusted * portion
    )
  
head(tidy_np)
# A tibble: 6 × 6
  awardYear category_en            prizeAmount prizeAmountAdjusted en    portion
  <chr>     <chr>                        <dbl>               <dbl> <chr>   <dbl>
1 1901      Chemistry                   150782            10833458 Jaco…     1  
2 1901      Literature                  150782            10833458 Sull…     1  
3 1901      Peace                        75391             5416729 Jean…     0.5
4 1901      Peace                        75391             5416729 Fréd…     0.5
5 1901      Physics                     150782            10833458 Wilh…     1  
6 1901      Physiology or Medicine      150782            10833458 Emil…     1  

We now have a tidy version of the data that we can ask more questions about. We already answered how many awards had multiple laureates.
My other questions will be what category has made the most adjusted prize money?
Who has made the most adjusted prize money?
And how has the total reward money changed each year for each category?

For the category that has made the most adjusted prize money we can see Chemisty, Peace, Physics, Physiology or Medicine, all made the same amount while literature is shortly after, and economic sciences being close to half the other cateogories. We will look at a graph in the last question that may answer this.

money_by_category <- tidy_np %>%
  group_by(category_en) %>%
  summarize(Total_Prize_Adjusted = sum(prizeAmountAdjusted)) %>%
  arrange(desc(Total_Prize_Adjusted)) %>%
  ungroup()
  
money_by_category
# A tibble: 6 × 2
  category_en            Total_Prize_Adjusted
  <chr>                                 <dbl>
1 Chemistry                         901155136
2 Peace                             901155136
3 Physics                           901155136
4 Physiology or Medicine            901155136
5 Literature                        900952440
6 Economic Sciences                 537198604

For the who has made the most money. We can see that much of the money did not have someone to claim it. Turns out also that not many people have won more than 1 nobel prize. I checked some people who have like Marie Curie and their adjusted total was summed up properly.

money_by_person <- tidy_np %>%
  group_by(en) %>%
  summarize(Total_Prize_Adjusted = sum(prizeAmountAdjusted)) %>%
  arrange(desc(Total_Prize_Adjusted)) %>%
  ungroup()

money_by_person %>%
  gt() %>%
      cols_label(
        'en' = "Laureates",
        'Total_Prize_Adjusted' = "Total Prize Money Adjusted"
      ) %>%
      tab_header(title = md("Individual Noble Prize Money Total")) %>%
      tab_options(container.height = 500, container.overflow.y = TRUE) # Set container height and container overflow to add scrolling for large tables.
Individual Noble Prize Money Total
Laureates Total Prize Money Adjusted
NA 429362061.3
Sir Vidiadhar Surajprasad Naipaul 15547541.0
Imre Kertész 15218228.0
James Earl Carter 15218228.0
John M. Coetzee 14930730.0
Shirin Ebadi 14930730.0
Elfriede Jelinek 14874529.0
Wangari Muta Maathai 14874529.0
Harold Pinter 14809494.0
Edmund S. Phelps 14608749.0
Orhan Pamuk 14608749.0
Roger D. Kornberg 14608749.0
Gao Xingjian 14331095.0
Kim Dae-jung 14331095.0
Doris Lessing 14291742.0
Gerhard Ertl 14291742.0
Barack Hussein Obama 13857393.0
Herta Müller 13857393.0
Jean-Marie Gustave Le Clézio 13817016.0
Martti Ahtisaari 13817016.0
Paul Krugman 13817016.0
Liu Xiaobo 13681477.0
Mario Vargas Llosa 13681477.0
Robert G. Edwards 13681477.0
Dan Shechtman 13335208.0
Tomas Tranströmer 13335208.0
Ahmed H. Zewail 12707531.0
Günter Blobel 12707531.0
Günter Grass 12707531.0
Robert A. Mundell 12707531.0
Louise Glück 12361835.0
Amartya Sen 12283299.0
José Saramago 12283299.0
Dario Fo 12105174.0
Stanley B. Prusiner 12105174.0
Abdulrazak Gurnah 12096939.0
Wisława Szymborska 12000958.0
Robert E. Lucas Jr. 11732784.0
Seamus Heaney 11732784.0
Marie Curie, née Skłodowska 11730739.5
George A. Olah 11696265.0
Kenzaburo Oe 11696265.0
Derek Walcott 11613791.0
Gary S. Becker 11613791.0
Georges Charpak 11613791.0
Rigoberta Menchú Tum 11613791.0
Rudolph A. Marcus 11613791.0
Kazuo Ishiguro 11603589.0
Richard H. Thaler 11603589.0
K. Barry Sharpless 11494737.2
Toni Morrison 11436789.0
Claudia Goldin 11314967.0
Jon Fosse 11314967.0
Narges Mohammadi 11314967.0
Abiy Ahmed Ali 11178104.0
Olga Tokarczuk 11178104.0
Peter Handke 11178104.0
Annie Ernaux 11162900.0
Svante Pääbo 11162900.0
Han Kang 11000000.0
László Krasznahorkai 11000000.0
Maria Corina Machado 11000000.0
Aung San Suu Kyi 10968389.0
Nadine Gordimer 10968389.0
Pierre-Gilles de Gennes 10968389.0
Richard R. Ernst 10968389.0
Ronald H. Coase 10968389.0
Emil Adolf von Behring 10833458.0
Jacobus Henricus van 't Hoff 10833458.0
Sully Prudhomme 10833458.0
Wilhelm Conrad Röntgen 10833458.0
Angus Deaton 10602571.0
Svetlana Alexievich 10602571.0
Jean Tirole 10596648.0
Patrick Modiano 10596648.0
Alice Munro 10578918.0
Mo Yan 10573021.0
Bob Dylan 10496956.0
Juan Manuel Santos 10496956.0
Yoshinori Ohsumi 10496956.0
Christian Matthias Theodor Mommsen 10191492.0
Hermann Emil Fischer 10191492.0
Ronald Ross 10191492.0
Bjørnstjerne Martinus Bjørnson 9857642.0
Niels Ryberg Finsen 9857642.0
Svante August Arrhenius 9857642.0
William Randal Cremer 9857642.0
Ivan Petrovich Pavlov 9822844.0
Lord Rayleigh (John William Strutt) 9822844.0
Sir William Ramsay 9822844.0
Baroness Bertha Sophie Felicita von Suttner, née Countess Kinsky von Chinic und Tettau 9629677.0
Henryk Sienkiewicz 9629677.0
Johann Friedrich Wilhelm Adolf von Baeyer 9629677.0
Philipp Eduard Anton von Lenard 9629677.0
Robert Koch 9629677.0
Giosuè Carducci 9384824.0
Henri Moissan 9384824.0
Joseph John Thomson 9384824.0
Theodore Roosevelt Jr. 9384824.0
Allvar Gullstrand 9266329.0
Count Maurice (Mooris) Polidore Marie Bernhard Maeterlinck 9266329.0
Wilhelm Wien 9266329.0
Albrecht Kossel 9016400.0
Johannes Diderik van der Waals 9016400.0
Otto Wallach 9016400.0
Paul Johann Ludwig Heyse 9016400.0
Emil Theodor Kocher 8958535.0
Ernest Rutherford 8958535.0
Gabriel Lippmann 8958535.0
Rudolf Christoph Eucken 8958535.0
Selma Ottilia Lovisa Lagerlöf 8958535.0
Wilhelm Ostwald 8958535.0
Max von Laue 8930767.0
Robert Bárány 8930767.0
Theodore William Richards 8930767.0
Albert Abraham Michelson 8894198.0
Charles Louis Alphonse Laveran 8894198.0
Eduard Buchner 8894198.0
Rudyard Kipling 8894198.0
Alfred Werner 8694275.0
Charles Robert Richet 8694275.0
Heike Kamerlingh Onnes 8694275.0
Henri La Fontaine 8694275.0
Rabindranath Tagore 8694275.0
Alexis Carrel 8540220.0
Elihu Root 8540220.0
Gerhart Johann Robert Hauptmann 8540220.0
Nils Gustaf Dalén 8540220.0
Elias James Corey 8003376.0
Mikhail Sergeyevich Gorbachev 8003376.0
Octavio Paz 8003376.0
Richard Martin Willstätter 7862394.0
Romain Rolland 7862394.0
Kofi Atta Annan 7773770.5
Daniel Kahneman 7609114.0
Kurt Wüthrich 7609114.0
Riccardo Giacconi 7609114.0
Vernon L. Smith 7609114.0
Clive W.J. Granger 7465365.0
Paul C. Lauterbur 7465365.0
Peter Agre 7465365.0
Robert F. Engle III 7465365.0
Roderick MacKinnon 7465365.0
Sir Peter Mansfield 7465365.0
Edward C. Prescott 7437264.5
Finn E. Kydland 7437264.5
Linda B. Buck 7437264.5
Richard Axel 7437264.5
Barry J. Marshall 7404747.0
J. Robin Warren 7404747.0
Mohamed ElBaradei 7404747.0
Robert J. Aumann 7404747.0
Roy J. Glauber 7404747.0
Thomas C. Schelling 7404747.0
Andrew Z. Fire 7304374.5
Craig C. Mello 7304374.5
George F. Smoot 7304374.5
John C. Mather 7304374.5
Muhammad Yunus 7304374.5
Daniel L. McFadden 7165547.5
Jack S. Kilby 7165547.5
James J. Heckman 7165547.5
Albert Arnold (Al) Gore Jr. 7145871.0
Albert Fert 7145871.0
Peter Grünberg 7145871.0
Charles Kuen Kao 6928696.5
Elinor Ostrom 6928696.5
Oliver E. Williamson 6928696.5
Linus Carl Pauling 6926106.0
Harald zur Hausen 6908508.0
Yoichiro Nambu 6908508.0
Ivan Alekseyevich Bunin 6845037.0
Sir Norman Angell (Ralph Lane) 6845037.0
Thomas Hunt Morgan 6845037.0
Andre Geim 6840738.5
Konstantin Novoselov 6840738.5
Irving Langmuir 6675842.0
John Galsworthy 6675842.0
Werner Karl Heisenberg 6675842.0
Christopher A. Sims 6667604.0
Ralph M. Steinman 6667604.0
Saul Perlmutter 6667604.0
Thomas J. Sargent 6667604.0
Camilo José Cela 6629077.0
The 14th Dalai Lama (Tenzin Gyatso) 6629077.0
Trygve Haavelmo 6629077.0
Erik Axel Karlfeldt 6623733.0
Otto Heinrich Warburg 6623733.0
Arthur Henderson 6534637.0
Harold Clayton Urey 6534637.0
Luigi Pirandello 6534637.0
Hans Fischer 6407146.0
Karl Landsteiner 6407146.0
Lars Olof Jonathan (Nathan) Söderblom 6407146.0
Sinclair Lewis 6407146.0
Sir Chandrasekhara Venkata Raman 6407146.0
Gerardus 't Hooft 6353765.5
Martinus J.G. Veltman 6353765.5
Carl von Ossietzky 6319387.0
Hans Spemann 6319387.0
James Chadwick 6319387.0
Carlos Saavedra Lamas 6213186.0
Eugene Gladstone O'Neill 6213186.0
Petrus (Peter) Josephus Wilhelmus Debye 6213186.0
Frank Billings Kellogg 6206272.0
Prince Louis-Victor Pierre Raymond de Broglie 6206272.0
Thomas Mann 6206272.0
Emmanuelle Charpentier 6180917.5
Jennifer A. Doudna 6180917.5
Paul R. Milgrom 6180917.5
Robert B. Wilson 6180917.5
Roger Penrose 6180917.5
David Trimble 6141649.5
John A. Pople 6141649.5
John Hume 6141649.5
Walter Kohn 6141649.5
Carl Gustaf Verner von Heidenstam 6127082.0
Jens C. Skou 6052587.0
Jody Williams 6052587.0
Myron S. Scholes 6052587.0
Robert C. Merton 6052587.0
Ardem Patapoutian 6048469.5
Benjamin List 6048469.5
David Card 6048469.5
David Julius 6048469.5
David W.C. MacMillan 6048469.5
Dmitry Andreyevich Muratov 6048469.5
Giorgio Parisi 6048469.5
Maria Ressa 6048469.5
Carlos Filipe Ximenes Belo 6000479.0
James A. Mirrlees 6000479.0
José Ramos-Horta 6000479.0
Peter C. Doherty 6000479.0
Rolf M. Zinkernagel 6000479.0
William Vickrey 6000479.0
Albert von Szent-Györgyi Nagyrápolt 5963742.0
Edgar Algernon Robert Gascoyne-Cecil, 1st Viscount Cecil of Chelwood 5963742.0
Roger Martin du Gard 5963742.0
Maurice Allais 5874628.0
Naguib Mahfouz 5874628.0
Frederick Reines 5866392.0
Joseph Rotblat 5866392.0
Martin L. Perl 5866392.0
Alfred G. Gilman 5848132.5
Bertram N. Brockhouse 5848132.5
Clifford G. Shull 5848132.5
Martin Rodbell 5848132.5
Edmond H. Fischer 5806895.5
Edwin G. Krebs 5806895.5
Rainer Weiss 5801794.5
Corneille Jean François Heymans 5745118.0
Enrico Fermi 5745118.0
Pearl Buck 5745118.0
Richard Kuhn 5745118.0
Douglass C. North 5718394.5
Frederik Willem de Klerk 5718394.5
Joseph H. Taylor Jr. 5718394.5
Kary B. Mullis 5718394.5
Michael Smith 5718394.5
Nelson Rolihlahla Mandela 5718394.5
Phillip A. Sharp 5718394.5
Richard J. Roberts 5718394.5
Robert W. Fogel 5718394.5
Russell A. Hulse 5718394.5
Arthur Ashkin 5690400.0
Denis Mukwege 5690400.0
Frances H. Arnold 5690400.0
James P. Allison 5690400.0
Nadia Murad Basee Taha 5690400.0
Paul M. Romer 5690400.0
Tasuku Honjo 5690400.0
William D. Nordhaus 5690400.0
Drew Weissman 5657483.5
Katalin Karikó 5657483.5
Adolf Otto Reinhold Windaus 5637915.0
Charles Jules Henri Nicolle 5637915.0
Owen Willans Richardson 5637915.0
Sigrid Undset 5637915.0
James Peebles 5589052.0
David Baker 5500000.0
Gary Ruvkun 5500000.0
Geoffrey Hinton 5500000.0
Joel Mokyr 5500000.0
John J. Hopfield 5500000.0
Victor Ambros 5500000.0
Bert Sakmann 5484194.5
Erwin Neher 5484194.5
Frédéric Passy 5416729.0
Jean Henry Dunant 5416729.0
Joseph Brodsky 5405582.0
Oscar Arias Sánchez 5405582.0
Robert M. Solow 5405582.0
Susumu Tonegawa 5405582.0
Ernest Orlando Lawrence 5346318.0
Frans Eemil Sillanpää 5346318.0
Gerhard Domagk 5346318.0
Arthur B. McDonald 5301285.5
Takaaki Kajita 5301285.5
Tu Youyou 5301285.5
John O'Keefe 5298324.0
Kailash Satyarthi 5298324.0
Malala Yousafzai 5298324.0
François Englert 5289459.0
Peter W. Higgs 5289459.0
Alvin E. Roth 5286510.5
Brian K. Kobilka 5286510.5
David J. Wineland 5286510.5
Lloyd S. Shapley 5286510.5
Robert J. Lefkowitz 5286510.5
Serge Haroche 5286510.5
Shinya Yamanaka 5286510.5
Sir John B. Gurdon 5286510.5
Bengt Holmström 5248478.0
David J. Thouless 5248478.0
Oliver Hart 5248478.0
Elie Wiesel 5182514.0
James M. Buchanan Jr. 5182514.0
Wole Soyinka 5182514.0
A. Michael Spence 5182513.7
Carl E. Wieman 5182513.7
Eric A. Cornell 5182513.7
George A. Akerlof 5182513.7
Joseph E. Stiglitz 5182513.7
Leland H. Hartwell 5182513.7
Sir Paul M. Nurse 5182513.7
Tim Hunt 5182513.7
Wolfgang Ketterle 5182513.7
Charles Albert Gobat 5095746.0
Hendrik Antoon Lorentz 5095746.0
Pieter Zeeman 5095746.0
Élie Ducommun 5095746.0
H. Robert Horvitz 5072742.7
John E. Sulston 5072742.7
Sydney Brenner 5072742.7
Alexei Alexeyevich Abrikosov 4976910.0
Anthony J. Leggett 4976910.0
Vitaly Lazarevich Ginzburg 4976910.0
Aaron Ciechanover 4958176.3
Avram Hershko 4958176.3
David J. Gross 4958176.3
Frank Wilczek 4958176.3
H. David Politzer 4958176.3
Irwin Rose 4958176.3
Charles Glover Barkla 4957724.0
Richard R. Schrock 4936498.0
Robert H. Grubbs 4936498.0
Yves Chauvin 4936498.0
Antoine Henri Becquerel 4928821.0
Frédéric Mistral 4911422.0
José Echegaray y Eizaguirre 4911422.0
Claude Simon 4860820.0
Franco Modigliani 4860820.0
Klaus von Klitzing 4860820.0
Desmond Mpilo Tutu 4782579.0
Jaroslav Seifert 4782579.0
Richard Stone 4782579.0
Robert Bruce Merrifield 4782579.0
Alan G. MacDiarmid 4777031.7
Alan J. Heeger 4777031.7
Arvid Carlsson 4777031.7
Eric R. Kandel 4777031.7
Hideki Shirakawa 4777031.7
Paul Greengard 4777031.7
Eric S. Maskin 4763914.0
Leonid Hurwicz 4763914.0
Mario R. Capecchi 4763914.0
Oliver Smithies 4763914.0
Roger B. Myerson 4763914.0
Sir Martin J. Evans 4763914.0
Barbara McClintock 4698151.0
Gerard Debreu 4698151.0
Henry Taube 4698151.0
Lech Wałęsa 4698151.0
William Golding 4698151.0
Camillo Golgi 4692412.0
Santiago Ramón y Cajal 4692412.0
Alfred Hermann Fried 4633164.5
Tobias Michael Carel Asser 4633164.5
Ada E. Yonath 4619131.0
Carol W. Greider 4619131.0
Elizabeth H. Blackburn 4619131.0
Jack W. Szostak 4619131.0
Thomas A. Steitz 4619131.0
Venkatraman Ramakrishnan 4619131.0
Martin Chalfie 4605672.0
Osamu Shimomura 4605672.0
Roger Y. Tsien 4605672.0
Akira Suzuki 4560492.3
Christopher A. Pissarides 4560492.3
Dale T. Mortensen 4560492.3
Ei-ichi Negishi 4560492.3
Peter A. Diamond 4560492.3
Richard F. Heck 4560492.3
Heinrich Otto Wieland 4544453.0
Henri Bergson 4544453.0
Julius Wagner-Jauregg 4544453.0
Auguste Marie François Beernaert 4479267.5
Fredrik Bajer 4479267.5
Guglielmo Marconi 4479267.5
Ilya Ilyich Mechnikov 4479267.5
Karl Ferdinand Braun 4479267.5
Klas Pontus Arnoldson 4479267.5
Paul Ehrlich 4479267.5
Paul Henri Benjamin Balluet d'Estournelles de Constant, Baron de Constant de Rebecque 4479267.5
Ernesto Teodoro Moneta 4447099.0
Louis Renault 4447099.0
Ellen Johnson Sirleaf 4445069.3
Leymah Gbowee 4445069.3
Tawakkol Karman 4445069.3
Andrei Dmitrievich Sakharov 4304697.0
Eugenio Montale 4304697.0
Paul Sabatier 4270110.0
Victor Grignard 4270110.0
Frederick Sanger 4260358.2
Heinrich Böll 4230781.0
Milton Friedman 4226835.0
Saul Bellow 4226835.0
William N. Lipscomb 4226835.0
Patrick White 4213275.0
Wassily Wassilyevich Leontief 4213275.0
Dennis Gabor 4200591.0
Earl W. Sutherland, Jr. 4200591.0
Gerhard Herzberg 4200591.0
Pablo Neruda 4200591.0
Simon Kuznets 4200591.0
Willy Brandt 4200591.0
Grazia Deledda 4138987.0
Jean Baptiste Perrin 4138987.0
Johannes Andreas Grib Fibiger 4138987.0
The (Theodor) Svedberg 4138987.0
Paul J. Flory 4126741.0
Charles M. Rice 4120611.7
Harvey J. Alter 4120611.7
Michael Houghton 4120611.7
Daniel C. Tsui 4094433.0
Ferid Murad 4094433.0
Horst L. Störmer 4094433.0
Louis J. Ignarro 4094433.0
Robert B. Laughlin 4094433.0
Robert F. Furchgott 4094433.0
Karl Manne Georg Siegbahn 4069717.0
Willem Einthoven 4069717.0
Władysław Stanisław Reymont 4069717.0
George Bernard Shaw 4060423.0
Richard Adolf Zsigmondy 4060423.0
Claude Cohen-Tannoudji 4035058.0
Steven Chu 4035058.0
William D. Phillips 4035058.0
Murray Gell-Mann 4023190.0
Samuel Beckett 4023190.0
Aleksandr Isayevich Solzhenitsyn 4018644.0
Luis F. Leloir 4018644.0
Norman Ernest Borlaug 4018644.0
Paul A. Samuelson 4018644.0
Fritz Pregl 4007513.0
Robert Andrews Millikan 4007513.0
William Butler Yeats 4007513.0
E. Donnall Thomas 4001688.0
Joseph E. Murray 4001688.0
David M. Lee 4000319.3
Douglas D. Osheroff 4000319.3
Richard E. Smalley 4000319.3
Robert C. Richardson 4000319.3
Robert F. Curl Jr. 4000319.3
Sir Harold W. Kroto 4000319.3
Francis William Aston 3978181.0
Fridtjof Nansen 3978181.0
Jacinto Benavente 3978181.0
Niels Henrik David Bohr 3978181.0
Sir William Henry Bragg 3931197.0
William Lawrence Bragg 3931197.0
Aaron Klug 3923237.0
Gabriel García Márquez 3923237.0
George J. Stigler 3923237.0
Kenneth G. Wilson 3923237.0
Christiane Nüsslein-Volhard 3910928.0
Edward B. Lewis 3910928.0
Eric F. Wieschaus 3910928.0
F. Sherwood Rowland 3910928.0
Mario J. Molina 3910928.0
Paul J. Crutzen 3910928.0
John C. Harsanyi 3898755.0
John F. Nash Jr. 3898755.0
Reinhard Selten 3898755.0
Shimon Peres 3898755.0
Yasser Arafat 3898755.0
Yitzhak Rabin 3898755.0
Ilya Romanovich Prigogine 3896009.0
Vicente Aleixandre 3896009.0
Ryoji Noyori 3886885.2
William S. Knowles 3886885.2
Jacques Dubochet 3867863.0
Jeffrey C. Hall 3867863.0
Joachim Frank 3867863.0
Michael Rosbash 3867863.0
Michael W. Young 3867863.0
Richard Henderson 3867863.0
Arne Wilhelm Kaurin Tiselius 3865528.0
Patrick Maynard Stuart Blackett 3865528.0
Paul Hermann Müller 3865528.0
Thomas Stearns Eliot 3865528.0
Lars Onsager 3859767.0
Luis Walter Alvarez 3859767.0
René Cassin 3859767.0
Yasunari Kawabata 3859767.0
Cecil Frank Powell 3857077.0
Earl (Bertrand Arthur William) Russell 3857077.0
Ralph Bunche 3857077.0
John B. Fenn 3804557.0
Koichi Tanaka 3804557.0
Masatoshi Koshiba 3804557.0
Raymond Davis Jr. 3804557.0
Mother Teresa 3778486.0
Odysseus Elytis 3778486.0
Aleksey Yekimov 3771655.7
Anne L’Huillier 3771655.7
Ferenc Krausz 3771655.7
Louis E. Brus 3771655.7
Moungi G. Bawendi 3771655.7
Pierre Agostini 3771655.7
Abhijit Banerjee 3726034.7
Akira Yoshino 3726034.7
Esther Duflo 3726034.7
Gregg L. Semenza 3726034.7
John B. Goodenough 3726034.7
M. Stanley Whittingham 3726034.7
Michael Kremer 3726034.7
Sir Peter J. Ratcliffe 3726034.7
William G. Kaelin Jr 3726034.7
Alain Aspect 3720966.7
Ales Bialiatski 3720966.7
Anton Zeilinger 3720966.7
Ben S. Bernanke 3720966.7
Carolyn R. Bertozzi 3720966.7
Douglas W. Diamond 3720966.7
John F. Clauser 3720966.7
Morten Meldal 3720966.7
Philip H. Dybvig 3720966.7
Hideki Yukawa 3705636.0
John Boyd Orr, Baron Boyd-Orr of Brechin Mearn 3705636.0
William Faulkner 3705636.0
William Francis Giauque 3705636.0
Elias Canetti 3704688.0
James Tobin 3704688.0
John L. Hall 3702373.5
Theodor W. Hänsch 3702373.5
André Paul Guillaume Gide 3685518.0
Sir Edward Victor Appleton 3685518.0
Sir Robert Robinson 3685518.0
Daron Acemoglu 3666666.7
Frederick J. Ramsdell 3666666.7
James A. Robinson 3666666.7
John Clarke 3666666.7
John M. Martinis 3666666.7
Mary E. Brunkow 3666666.7
Michel H. Devoret 3666666.7
Omar M. Yaghi 3666666.7
Richard Robson 3666666.7
Shimon Sakaguchi 3666666.7
Simon Henry Roberts Johnson 3666666.7
Susumu Kitagawa 3666666.7
Herbert A. Simon 3665192.0
Isaac Bashevis Singer 3665192.0
Peter D. Mitchell 3665192.0
Adolfo Pérez Esquivel 3654081.0
Czesław Miłosz 3654081.0
Lawrence R. Klein 3654081.0
Dag Hjalmar Agne Carl Hammarskjöld 3639892.0
Georg von Békésy 3639892.0
Ivo Andrić 3639892.0
Melvin Calvin 3639892.0
Fritz Haber 3600741.0
Max Karl Ernst Ludwig Planck 3600741.0
Hans Albrecht Bethe 3595829.0
Miguel Angel Asturias 3595829.0
Giorgos Seferis 3590371.0
John Steinbeck 3587462.0
Lev Davidovich Landau 3587462.0
Herbert Kroemer 3582773.8
Zhores I. Alferov 3582773.8
Dorothy Crowfoot Hodgkin 3576149.0
Jean-Paul Sartre 3576149.0
Martin Luther King Jr. 3576149.0
Aziz Sancar 3534190.3
Paul Modrich 3534190.3
Tomas Lindahl 3534190.3
Eric Betzig 3532216.0
Hiroshi Amano 3532216.0
Isamu Akasaki 3532216.0
Shuji Nakamura 3532216.0
Stefan W. Hell 3532216.0
William E. Moerner 3532216.0
Arieh Warshel 3526306.0
Eugene F. Fama 3526306.0
James E. Rothman 3526306.0
Lars Peter Hansen 3526306.0
Martin Karplus 3526306.0
Michael Levitt 3526306.0
Randy W. Schekman 3526306.0
Robert J. Shiller 3526306.0
Thomas C. Südhof 3526306.0
Alfred Kastler 3521287.0
Robert S. Mulliken 3521287.0
Mikhail Aleksandrovich Sholokhov 3519063.0
Robert Burns Woodward 3519063.0
Bernard L. Feringa 3498985.3
Jean-Pierre Sauvage 3498985.3
Sir J. Fraser Stoddart 3498985.3
George E. Smith 3464348.2
Willard S. Boyle 3464348.2
Françoise Barré-Sinoussi 3454254.0
Luc Montagnier 3454254.0
Makoto Kobayashi 3454254.0
Toshihide Maskawa 3454254.0
Erwin Schrödinger 3422518.5
Paul Adrien Maurice Dirac 3422518.5
Jaroslav Heyrovsky 3419788.0
Philip J. Noel-Baker 3419788.0
Salvatore Quasimodo 3419788.0
Juan Ramón Jiménez 3413609.0
Albert Camus 3411444.0
Daniel Bovet 3411444.0
Lester Bowles Pearson 3411444.0
Lord (Alexander R.) Todd 3411444.0
Léon Jouhaux 3396650.0
Max Theiler 3396650.0
Pär Fabian Lagerkvist 3396650.0
Axel Hugo Theodor Theorell 3390958.0
Halldór Kiljan Laxness 3390958.0
Vincent du Vigneaud 3390958.0
Albert John Lutuli 3369907.0
Donald Arthur Glaser 3369907.0
Saint-John Perse 3369907.0
Willard Frank Libby 3369907.0
Boris Leonidovich Pasternak 3346838.0
Georges Pire 3346838.0
Ernest Miller Hemingway 3338644.0
Edgar Douglas Adrian 3337921.0
Sir Charles Scott Sherrington 3337921.0
Adam G. Riess 3333802.0
Brian P. Schmidt 3333802.0
Bruce A. Beutler 3333802.0
Jules A. Hoffmann 3333802.0
Harold E. Varmus 3314538.5
J. Michael Bishop 3314538.5
Norman F. Ramsey 3314538.5
Sidney Altman 3314538.5
Thomas R. Cech 3314538.5
Carl Bosch 3311866.5
Friedrich Bergius 3311866.5
Jane Addams 3311866.5
Nicholas Murray Butler 3311866.5
Frits Zernike 3247029.0
George Catlett Marshall 3247029.0
Hermann Staudinger 3247029.0
Sir Winston Leonard Spencer Churchill 3247029.0
Albert Schweitzer 3220326.0
François Mauriac 3220326.0
Selman Abraham Waksman 3220326.0
Albert Einstein 3202773.0
Anatole France 3202773.0
Frederick Soddy 3202773.0
George de Hevesy 3187732.0
Otto Stern 3187732.0
Isidor Isaac Rabi 3174561.0
Johannes Vilhelm Jensen 3174561.0
Otto Hahn 3174561.0
Hermann Hesse 3166301.0
Hermann Joseph Muller 3166301.0
Percy Williams Bridgman 3166301.0
Artturi Ilmari Virtanen 3161325.0
Cordell Hull 3161325.0
Gabriela Mistral 3161325.0
Wolfgang Pauli 3161325.0
Frédéric Joliot 3159693.5
Irène Joliot-Curie 3159693.5
Carl David Anderson 3106593.0
Otto Loewi 3106593.0
Sir Henry Hallett Dale 3106593.0
Victor Franz Hess 3106593.0
Arthur Harden 3103136.0
Christiaan Eijkman 3103136.0
Hans Karl August Simon von Euler-Chelpin 3103136.0
Sir Frederick Gowland Hopkins 3103136.0
Andrea Ghez 3090458.8
Reinhard Genzel 3090458.8
Charles Edouard Guillaume 3028106.0
Knut Pedersen Hamsun 3028106.0
Léon Victor Auguste Bourgeois 3028106.0
Schack August Steenberg Krogh 3028106.0
Walther Hermann Nernst 3028106.0
John E. Walker 3026293.5
Paul D. Boyer 3026293.5
Guido W. Imbens 3024234.8
Joshua D. Angrist 3024234.8
Klaus Hasselmann 3024234.8
Syukuro Manabe 3024234.8
Carl Friedrich Georg Spitteler 3006134.0
Johannes Stark 3006134.0
Jules Bordet 3006134.0
Thomas Woodrow Wilson 3006134.0
Clinton Joseph Davisson 2981871.0
George Paget Thomson 2981871.0
Paul Karrer 2981871.0
Walter Norman Haworth 2981871.0
Barry C. Barish 2900897.2
Kip S. Thorne 2900897.2
Donna Strickland 2845200.0
George P. Smith 2845200.0
Gérard Mourou 2845200.0
Sir Gregory P. Winter 2845200.0
Didier Queloz 2794526.0
Michel Mayor 2794526.0
Demis Hassabis 2750000.0
John Jumper 2750000.0
Peter Howitt 2750000.0
Philippe Aghion 2750000.0
J. Georg Bednorz 2702791.0
K. Alexander Müller 2702791.0
Adolf Friedrich Johann Butenandt 2673159.0
Leopold Ruzicka 2673159.0
Harry M. Markowitz 2667792.0
Henry W. Kendall 2667792.0
Jerome I. Friedman 2667792.0
Merton H. Miller 2667792.0
Richard E. Taylor 2667792.0
William F. Sharpe 2667792.0
Satoshi Ōmura 2650642.8
William C. Campbell 2650642.8
Edvard I. Moser 2649162.0
May-Britt Moser 2649162.0
F. Duncan M. Haldane 2624239.0
J. Michael Kosterlitz 2624239.0
Ernst Ruska 2591257.0
Rita Levi-Montalcini 2591257.0
Stanley Cohen 2591257.0
John Bardeen 2548130.0
Henrik Pontoppidan 2478862.0
Karl Adolph Gjellerup 2478862.0
Pierre Curie 2464410.5
Herbert A. Hauptman 2430410.0
Jerome Karle 2430410.0
Joseph L. Goldstein 2430410.0
Michael S. Brown 2430410.0
Carlo Rubbia 2391289.5
Simon van der Meer 2391289.5
Subrahmanyan Chandrasekhar 2349075.5
William Alfred Fowler 2349075.5
Arthur Holly Compton 2272226.5
Charles Thomson Rees Wilson 2272226.5
Ferdinand Buisson 2272226.5
Ludwig Quidde 2272226.5
George Hoyt Whipple 2178212.3
George Richards Minot 2178212.3
William Parry Murphy 2178212.3
John Warcup Cornforth 2152348.5
Leonid Vitaliyevich Kantorovich 2152348.5
Tjalling C. Koopmans 2152348.5
Vladimir Prelog 2152348.5
Christian B. Anfinsen 2115390.5
Gerald M. Edelman 2115390.5
John R. Hicks 2115390.5
Kenneth J. Arrow 2115390.5
Rodney R. Porter 2115390.5
Baruch S. Blumberg 2113417.5
Burton Richter 2113417.5
D. Carleton Gajdusek 2113417.5
Elizabeth Williams 2113417.5
Mairead Corrigan 2113417.5
Samuel Chao Chung Ting 2113417.5
Brian David Josephson 2106637.5
Ernst Otto Fischer 2106637.5
Geoffrey Wilkinson 2106637.5
Henry Alfred Kissinger 2106637.5
Le Duc Tho 2106637.5
Aristide Briand 2069493.5
Gustav Stresemann 2069493.5
Antony Hewish 2063370.5
Eisaku Satō 2063370.5
Eyvind Johnson 2063370.5
Friedrich August von Hayek 2063370.5
Gunnar Myrdal 2063370.5
Harry Martinson 2063370.5
Seán MacBride 2063370.5
Sir Martin Ryle 2063370.5
Charles Gates Dawes 2030211.5
Gustav Ludwig Hertz 2030211.5
James Franck 2030211.5
Sir Austen Chamberlain 2030211.5
Derek H. R. Barton 2011595.0
Jan Tinbergen 2011595.0
Odd Hassel 2011595.0
Ragnar Frisch 2011595.0
Hannes Olof Gösta Alfvén 2009322.0
Louis Eugène Félix Néel 2009322.0
Frederick Grant Banting 2003756.5
John James Rickard Macleod 2003756.5
Archibald Vivian Hill 1989090.5
Otto Fritz Meyerhof 1989090.5
Alfonso García Robles 1961618.5
Alva Myrdal 1961618.5
George H. Hitchings 1958209.3
Gertrude B. Elion 1958209.3
Hartmut Michel 1958209.3
Jack Steinberger 1958209.3
Johann Deisenhofer 1958209.3
Leon M. Lederman 1958209.3
Melvin Schwartz 1958209.3
Robert Huber 1958209.3
Sir James W. Black 1958209.3
Bertil Ohlin 1948004.5
James E. Meade 1948004.5
Rosalyn Yalow 1948004.5
Kurt Alder 1928538.5
Otto Paul Hermann Diels 1928538.5
Allan M. Cormack 1889243.0
Georg Wittig 1889243.0
Godfrey N. Hounsfield 1889243.0
Herbert C. Brown 1889243.0
Sir Arthur Lewis 1889243.0
Theodore W. Schultz 1889243.0
António Caetano de Abreu Freire Egas Moniz 1852818.0
Walter Rudolf Hess 1852818.0
Kai M. Siegbahn 1852344.0
Kenichi Fukui 1852344.0
Roald Hoffmann 1852344.0
Roger W. Sperry 1852344.0
Bernardo Alberto Houssay 1842759.0
Menachem Begin 1832596.0
Mohamed Anwar al-Sadat 1832596.0
Pyotr Leonidovich Kapitsa 1832596.0
James Watson Cronin 1827040.5
Paul Berg 1827040.5
Val Logsdon Fitch 1827040.5
Robert Hofstadter 1819946.0
Rudolf Ludwig Mössbauer 1819946.0
Charles J. Pedersen 1801860.7
Donald J. Cram 1801860.7
Jean-Marie Lehn 1801860.7
Manfred Eigen 1797914.5
Eugene Paul Wigner 1795185.5
Giulio Natta 1795185.5
Karl Ziegler 1795185.5
John Cowdery Kendrew 1793731.0
Max Ferdinand Perutz 1793731.0
Charles Hard Townes 1788074.5
Feodor Lynen 1788074.5
Konrad Bloch 1788074.5
Charles Brenton Huggins 1760643.5
Nelly Sachs 1760643.5
Peyton Rous 1760643.5
Shmuel Yosef Agnon 1760643.5
Dudley R. Herschbach 1727504.7
John C. Polanyi 1727504.7
Yuan T. Lee 1727504.7
Arthur Kornberg 1709894.0
Emilio Gino Segrè 1709894.0
Owen Chamberlain 1709894.0
Severo Ochoa 1709894.0
Nikolay Nikolaevich Semenov 1706804.5
Sir Cyril Norman Hinshelwood 1706804.5
Chen Ning Yang 1705722.0
Tsung-Dao (T.D.) Lee 1705722.0
Edwin Mattison McMillan 1698325.0
Ernest Thomas Sinton Walton 1698325.0
Glenn Theodore Seaborg 1698325.0
Sir John Douglas Cockcroft 1698325.0
Polykarp Kusch 1695479.0
Willis Eugene Lamb 1695479.0
Peter Brian Medawar 1684953.5
Sir Frank Macfarlane Burnet 1684953.5
Joshua Lederberg 1673419.0
Max Born 1669322.0
Walther Bothe 1669322.0
Hans G. Dehmelt 1657269.2
Wolfgang Paul 1657269.2
Fritz Albert Lipmann 1623514.5
Hans Adolf Krebs 1623514.5
Archer John Porter Martin 1610163.0
Edward Mills Purcell 1610163.0
Felix Bloch 1610163.0
Richard Laurence Millington Synge 1610163.0
Christian Lous Lange 1601386.5
Karl Hjalmar Branting 1601386.5
César Milstein 1594193.0
Georges J.F. Köhler 1594193.0
Niels K. Jerne 1594193.0
Edward Adelbert Doisy 1593866.0
Henrik Carl Peter Dam 1593866.0
Herbert Spencer Gasser 1587280.5
Joseph Erlanger 1587280.5
Emily Greene Balch 1583150.5
James Batcheller Sumner 1583150.5
John Raleigh Mott 1583150.5
Aage Niels Bohr 1434899.0
Ben Roy Mottelson 1434899.0
David Baltimore 1434899.0
Howard Martin Temin 1434899.0
Leo James Rainwater 1434899.0
Renato Dulbecco 1434899.0
John Robert Schrieffer 1410260.3
Leon Neil Cooper 1410260.3
Karl von Frisch 1404425.0
Konrad Lorenz 1404425.0
Nikolaas Tinbergen 1404425.0
Albert Claude 1375580.3
Christian de Duve 1375580.3
George E. Palade 1375580.3
Alfred D. Hershey 1341063.3
Max Delbrück 1341063.3
Salvador E. Luria 1341063.3
Julius Axelrod 1339548.0
Sir Bernard Katz 1339548.0
Ulf von Euler 1339548.0
Bengt I. Samuelsson 1307745.7
John R. Vane 1307745.7
Sune K. Bergström 1307745.7
John Hasbrouck Van Vleck 1298669.7
Philip Warren Anderson 1298669.7
Sir Nevill Francis Mott 1298669.7
Gerd Binnig 1295628.5
Heinrich Rohrer 1295628.5
Har Gobind Khorana 1286589.0
Marshall W. Nirenberg 1286589.0
Robert W. Holley 1286589.0
Edward Calvin Kendall 1285692.3
Philip Showalter Hench 1285692.3
Tadeus Reichstein 1285692.3
Abdus Salam 1259495.3
Sheldon Lee Glashow 1259495.3
Steven Weinberg 1259495.3
Daniel Nathans 1221730.7
Hamilton O. Smith 1221730.7
Werner Arber 1221730.7
Baruj Benacerraf 1218027.0
George D. Snell 1218027.0
Jean Dausset 1218027.0
George Wald 1198609.7
Haldan Keffer Hartline 1198609.7
Ragnar Granit 1198609.7
Alan Lloyd Hodgkin 1196790.3
Andrew Fielding Huxley 1196790.3
Sir John Carew Eccles 1196790.3
Francis Harry Compton Crick 1195820.7
James Dewey Watson 1195820.7
Maurice Hugh Frederick Wilkins 1195820.7
André Lwoff 1173021.0
François Jacob 1173021.0
Jacques Monod 1173021.0
Julian Schwinger 1173021.0
Richard P. Feynman 1173021.0
Sin-Itiro Tomonaga 1173021.0
André Frédéric Cournand 1137869.7
Dickinson W. Richards 1137869.7
Walter Houser Brattain 1137869.7
Werner Forssmann 1137869.7
William Bradford Shockley 1137869.7
Igor Yevgenyevich Tamm 1115612.7
Il´ja Mikhailovich Frank 1115612.7
Pavel Alekseyevich Cherenkov 1115612.7
Frederick Chapman Robbins 1112881.3
John Franklin Enders 1112881.3
Thomas Huckle Weller 1112881.3
Stanford Moore 1057695.2
William H. Stein 1057695.2
Ernst Boris Chain 1053775.0
Sir Alexander Fleming 1053775.0
Sir Howard Walter Florey 1053775.0
Ivar Giaever 1053318.8
Leo Esaki 1053318.8
Andrew V. Schally 974002.2
Roger Guillemin 974002.2
Arthur Leonard Schawlow 926172.0
David H. Hubel 926172.0
Nicolaas Bloembergen 926172.0
Torsten N. Wiesel 926172.0
Carl Ferdinand Cori 921379.5
Gerty Theresa Cori, née Radnitz 921379.5
Arno Allan Penzias 916298.0
Robert Woodrow Wilson 916298.0
Walter Gilbert 913520.2
George Porter 898957.2
Ronald George Wreyford Norrish 898957.2
J. Hans D. Jensen 897592.8
Maria Goeppert Mayer 897592.8
Aleksandr Mikhailovich Prokhorov 894037.2
Nicolay Gennadiyevich Basov 894037.2
Edward Lawrie Tatum 836709.5
George Wells Beadle 836709.5
John Howard Northrop 791575.2
Wendell Meredith Stanley 791575.2

Finally I want to see the change in adjusted prize money each year for each category. We can see that all the values are actually ontop of eachother so the prize money is actually kept the same for most awards, we can see in a particular year the prize money of the literature reward was a little lower. This would also explain how our first question led many categories having the same amount, Economic Sciences also started later on as a category.

yearly_money <- tidy_np %>%
  group_by(awardYear, category_en) %>%
  summarize(Total_Prize_Adjusted = sum(prizeAmountAdjusted)) %>%
  ungroup() %>%
  mutate(awardYear = as.Date(paste0(awardYear, "-01-01")))

yearly_money %>%
ggplot(aes(x = awardYear, y = Total_Prize_Adjusted, group = category_en, color = category_en)) +
  geom_point(alpha = .3) + # Points overlap, make transparaent
  theme_minimal() +
  labs(
    title = "Nobel Prize Money Over Time by Category",
    x = "Year",
    y = "Adjusted Prize Money",
    color = "Category"
  )

Conclusion

In conclusion we were able to use the noble prize api to create and answer questions about our topic. We asked some questions that required filtering/grouping by. We also took advantage of tidyverses’ unnest_wider to unwrap nested layers in the json that was returned to us in an api response. By combining different functions like unnest_wider and unnest_longer I was able to create a tidy version of the api response. Through this dataframe I answered questions like how many prizes awarded had muliple people with unequal portions of the prize money, or how has the adjusted prize money changed from year to year. Some ways I could expand on this project are to look at the other api endpoint for more detailed data on the laureates or ask more questions about the api endpoint I used already.