load("datas/emotion.Rdata")
3 inclass2.qmd
library(ggplot2)
ggplot(emotion, aes(x = reorder(rownames(emotion), sum), y = sum)) +
geom_bar(stat = "identity", fill = "steelblue") +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
labs(x = "İlçeler", y = "Duygu Durum İndeksi", title = "İstanbul İlçelerine Göre Duygu Durum İndeksi")