Fix bad labels

This commit is contained in:
nlitkowski 2021-04-14 01:11:00 +02:00
parent 96408834ac
commit 0b015c14db

View File

@ -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)) +
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")
labs(title="Credit count and purpose for different job statuses", x="Job status", y = "Credit count") +
theme_minimal()