feat/norbert_plots #1
12
projekt.R
12
projekt.R
@ -30,3 +30,15 @@ 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 purposes for different job statuses", x="Duration", y = "Amount")
|
Loading…
Reference in New Issue
Block a user