cavedave/Kelvin.r

## Kelvin.r
library(tidyverse)
library(ggthemes)
temp<-read_csv('Temperature.csv')
ggplot(data=temp, aes(x=Year, y=Kelvin, group=1)) +
    geom_line() +
    geom_point() +
    expand_limits(y=0) +
    xlab("Year") + ylab("Kelvin") +
    ggtitle("Lowest Temperature Achieved")+
    theme_minimal()+
  theme(plot.title = element_text(hjust = 0.5))+

  ggsave("temperature.png")

## Temperature.csv

          
            Year
             Name
             Celcius
             Kelvin

            
              1845
              Michael Faraday
              −130 °C
              143.15

            
              1877
              Louis Paul Cailletet and Raoul Pictet
              −195 °C
              78.15

            
              1883
              Zygmunt Wróblewski
              −218 °C
              55.15

            
              1898
              Dewar
              −252 °C
              21.15

            
              1908
              Onnes
              −269 °C
              4.15

            
              1909
              Onnes
              −272 °C
              1.6

            
              1937
              Pyotr Leonidovich Kapitsa
              −272
              2.2

            
              1949
              S.G. Sydoriak
              −273
              1.1

            
              1972
              David Lee
              −274
              0.002

            
              1995
              Eric Cornell and Carl Wieman
              −274
              0.000000170

            
              1999
              T.A. Knuuttila
              −274
              0.0000000001
	library(tidyverse)
	library(ggthemes)
	temp<-read_csv('Temperature.csv')
	ggplot(data=temp, aes(x=Year, y=Kelvin, group=1)) +
	geom_line() +
	geom_point() +
	expand_limits(y=0) +
	xlab("Year") + ylab("Kelvin") +
	ggtitle("Lowest Temperature Achieved")+
	theme_minimal()+
	theme(plot.title = element_text(hjust = 0.5))+

	ggsave("temperature.png")
Year	Name	Celcius	Kelvin
1845	Michael Faraday	−130 °C	143.15
1877	Louis Paul Cailletet and Raoul Pictet	−195 °C	78.15
1883	Zygmunt Wróblewski	−218 °C	55.15
1898	Dewar	−252 °C	21.15
1908	Onnes	−269 °C	4.15
1909	Onnes	−272 °C	1.6
1937	Pyotr Leonidovich Kapitsa	−272	2.2
1949	S.G. Sydoriak	−273	1.1
1972	David Lee	−274	0.002
1995	Eric Cornell and Carl Wieman	−274	0.000000170
1999	T.A. Knuuttila	−274	0.0000000001