feat/norbert_plots #1
@ -41,4 +41,5 @@ ggplot(german_credit_risk, aes(x = Duration, y = Credit.amount, color = Sex)) +
|
|||||||
ggplot(german_credit_risk , aes(x = factor(Job), fill = Purpose)) +
|
ggplot(german_credit_risk , aes(x = factor(Job), fill = Purpose)) +
|
||||||
geom_bar() +
|
geom_bar() +
|
||||||
scale_x_discrete(breaks = 0:3, labels=c("Unskilled, non-resident", "Unskilled, resident","Skilled","Highly skilled")) +
|
scale_x_discrete(breaks = 0:3, labels=c("Unskilled, non-resident", "Unskilled, resident","Skilled","Highly skilled")) +
|
||||||
labs(title="Credit purposes for different job statuses", x="Duration", y = "Amount")
|
labs(title="Credit count and purpose for different job statuses", x="Job status", y = "Credit count") +
|
||||||
|
theme_minimal()
|
||||||
|
Loading…
Reference in New Issue
Block a user