library(tidyverse)
library(lubridate)


# Aufgabe 1
currency_list = read_csv('https://raw.githubusercontent.com/NikoStein/dma_data/main/currency_list.csv')
currency_prices = read_csv('https://raw.githubusercontent.com/NikoStein/dma_data/main/currency_price.csv')
gpu_list = read_csv('https://raw.githubusercontent.com/NikoStein/dma_data/main/gpu_list.csv')
gpu_prices = read_csv('https://raw.githubusercontent.com/NikoStein/dma_data/main/gpu_price.csv')

# a) Stellen Sie die Preisentwicklung der gelisteten Grafikkarten in einem geeigneten Diagramm dar.


# b)	Berechnen Sie die Preisänderung der einzelnen Grafikkarten im Vergleich zum ersten Listing und 
# speichern Sie diese in einer neuen Variablen.

# c) Offensichtlich unterliegen die Grafikkartenpreise teils großen Schwankungen. Berechnen Sie für jede 
# gelistete Grafikkarte geeignete Statistiken, um die Preisschwankungen zu aggregieren. 
# Welche Grafikkarte unterliegt den höchsten Schwankungen, welche den geringsten?


# d) Stellen Sie im nächsten Schritt die Preisentwicklung der gelisteten Kryptowährungen in einem geeigneten 
# Diagramm dar. Berechnen und visualisieren Sie zusätzlich die prozentualen Preisänderungen.


# e)	Verbinden Sie die beiden Datensätze und vergleichen Sie die Preisentwicklung der Kryptowährungen mit 
# der Preisentwicklung der Grafikkarten.


# Aufgabe 2
obesity = read_csv('https://raw.githubusercontent.com/NikoStein/dma_data/main/obesity.csv')

# a) Zeigen Sie die weltweite Entwicklung von Adipositas im Zeitverlauf mittels einer geeigneten Grafik.


# b) In wie vielen Ländern gibt es 2016 einen höheren Anteil an Adipositas als 1975, in wie vielen einen geringeren?


# c) Vergleichen Sie die Entwicklung von Adipositas in den G7 Staaten 
# (Deutschland, Frankreich, Italien, Japan, Kanada, Vereinigtes Königreich, USA).
g7_nations = c('Germany', 'France', 'Italy', 'Japan', 'Canada', 'United Kingdom of Great Britain and Northern Ireland', 'United States of America')


#d)	In wie vielen Ländern sind Frauen häufiger von Adipositas betroffen als Männer? 
# Wie hat sich die Verteilung über die Jahre verändert?


# e) In welchen Ländern hat Adipositas verhältnismäßig am stärksten zugenommen? Wie erklären Sie sich die Ergebnisse?