.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

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()

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