From a4b0afcc6dad94f4e0740b189af8152c7eec8451 Mon Sep 17 00:00:00 2001
From: Wojciech Smolak <s333949@instalka-Standard-PC-i440FX-PIIX-1996>
Date: Fri, 3 Apr 2020 20:37:12 +0200
Subject: [PATCH] cwiczenia 1

---
 cw1.R | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 cw1.R

diff --git a/cw1.R b/cw1.R
new file mode 100644
index 0000000..27a18ce
--- /dev/null
+++ b/cw1.R
@@ -0,0 +1,59 @@
+library("sf")
+library("raster")
+library("spData")
+library("spDataLarge")
+library(dplyr)
+library(ggplot2)
+
+names(world)
+class(world)
+plot(world)
+
+summary(world)
+summary(world["lifeExp"]) 
+
+world_mini <- world[1:2,1:3]
+world_mini
+
+
+# Wyświetlcie mapę krajów Europejskich  wg liczby ludności
+world %>%
+  filter(continent == "Europe") %>%
+  select(pop) %>%
+  plot()
+
+
+world %>%
+  filter(continent == "Europe") %>%
+  select(pop) -> europe_pop
+
+plot(europe_pop)
+
+
+# Który kraj posiada najmniejszą liczbę ludności i ile wynosi?
+world %>%
+  arrange(pop) %>%
+  select(name_long,pop) %>%
+  top_n(-10,wt=pop)
+
+
+# Ile krajów znajduje się w Azji?
+world %>%
+  filter(continent == "Asia") %>%
+  count() 
+
+# Wyświetlcie histogram powierzchni  wszystkich niezależnych krajów (Sovereign Country)
+world %>%
+  filter(type == "Sovereign country") %>%
+  ggplot(aes(area_km2)) +
+  geom_histogram(bins = 150)
+
+# Wyświetlcie wykres punktowy relacji pomiędzy lifeExp, a gdpPercap
+
+world %>%
+  ggplot(aes(x = lifeExp, y = gdpPercap)) +
+  geom_smooth()
+           
+
+
+