diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..5b6a065
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/projekt.R b/projekt.R
index 8fadae1..99f8414 100644
--- a/projekt.R
+++ b/projekt.R
@@ -30,3 +30,16 @@ ggplot(german_credit_risk, aes(x=Purpose, y=Age, fill=Sex)) +
   theme_minimal() +
   theme(legend.position="bottom")
 
+
+ggplot(german_credit_risk, aes(x = Duration, y = Credit.amount, color = Sex)) + 
+  geom_point(size = 1.5) + 
+  geom_smooth(se = FALSE, size = 1.5) +
+  labs(title="Credit amount for credit duration", x="Duration", y = "Amount") +
+  theme_minimal() +
+  theme(legend.position="bottom")
+
+ggplot(german_credit_risk , aes(x = factor(Job), fill = Purpose)) + 
+  geom_bar() +
+  scale_x_discrete(breaks = 0:3, labels=c("Unskilled, non-resident", "Unskilled, resident","Skilled","Highly skilled")) +
+  labs(title="Credit count and purpose for different job statuses", x="Job status", y = "Credit count") +
+  theme_minimal()
diff --git a/wizualizacja-danych.Rproj b/wizualizacja-danych.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/wizualizacja-danych.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX