s434742/wizualizacja-danych
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

violin plot updated

Browse Source
This commit is contained in:
patrycjalazna 2021-04-14 00:15:37 +02:00
parent b1b21eef1b
commit c3899ae34b
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
projekt.R
View File

@ -23,20 +23,10 @@ na.omit(german_credit_risk)
# violin plot # violin plot
ggplot(german_credit_risk, aes(x=Purpose, y=Age, fill=Sex)) + ggplot(german_credit_risk, aes(x=Purpose, y=Age, fill=Sex)) +
geom_violin(trim=TRUE) + geom_violin(trim=TRUE, position=position_dodge(1)) +
stat_summary(fun = mean, geom="point", shape=25, size=2, position=position_dodge(.9)) + stat_summary(fun = mean, geom="point", shape=25, size=2) + #position=position_dodge(.9)
labs(title="Credit purpose by age", x="Purpose", y = "Age") + labs(title="Credit purpose by age", x="Purpose", y = "Age") +
scale_fill_brewer(palette="Accent") + scale_fill_brewer(palette="Accent") +
theme_minimal() + theme_minimal() +
theme(legend.position="bottom") theme(legend.position="bottom")
ggplot(german_credit_risk, aes(x=Purpose, y=Credit.amount, fill=Credit.amount)) +
geom_density_ridges(scale = 4) +
xlab('Purpose') +
ylab('Credit amount') +
labs('?') +
scale_fill_manual(values = wes_palette("Moonrise3")) +
theme_minimal()