2 inclass1.qmd

Author

Cem Deniz SAYINER

Published

Invalid Date

library(readxl)
library(dplyr)


Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

emotion_by_area <-read_excel("datas/1-vdym-ilce-baznda-hanelerdeki-duygu-durum-istatistikleri.xlsx")
df <- t(emotion_by_area)

df <- as.data.frame(df)

# first row as column names
colnames(df) <- df[1,]
df <- df[-1,]
# index as row names

# write max value for each column and index name
max_value <- function(df){
  for (i in 1:ncol(df)){
    print(paste0( colnames(df)[i], " ilçesi için en yüksek değer alan değerlendirme ", rownames(df)[which.max(df[,i])]))
  }
}

# call max_value function
max_value(df)

[1] "ADALAR ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "ARNAVUTKÖY ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "ATAŞEHİR ilçesi için en yüksek değer alan değerlendirme Üzüntü_Ne Fazla Ne Az"
[1] "AVCILAR ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BAĞCILAR ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BAHÇELİEVLER ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "BAKIRKÖY ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BAŞAKŞEHİR ilçesi için en yüksek değer alan değerlendirme Üzüntü_Ne Fazla Ne Az"
[1] "BAYRAMPAŞA ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BEŞİKTAŞ ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BEYKOZ ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BEYLİKDÜZÜ ilçesi için en yüksek değer alan değerlendirme Huzur_Ne Fazla Ne Az"
[1] "BEYOĞLU ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "BÜYÜKÇEKMECE ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "ÇATALCA ilçesi için en yüksek değer alan değerlendirme Kaygı_Çok Fazla"
[1] "ÇEKMEKÖY ilçesi için en yüksek değer alan değerlendirme Üzüntü_Ne Fazla Ne Az"
[1] "ESENLER ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "ESENYURT ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "EYÜPSULTAN ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "FATİH ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "GAZİOSMANPAŞA ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "GÜNGÖREN ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "KADIKÖY ilçesi için en yüksek değer alan değerlendirme Üzüntü_Ne Fazla Ne Az"
[1] "KAĞITHANE ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "KARTAL ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "KÜÇÜKÇEKMECE ilçesi için en yüksek değer alan değerlendirme Kaygı_Ne Fazla Ne Az"
[1] "MALTEPE ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "PENDİK ilçesi için en yüksek değer alan değerlendirme Huzur_Fazla"
[1] "SANCAKTEPE ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "SARIYER ilçesi için en yüksek değer alan değerlendirme Huzur_Ne Fazla Ne Az"
[1] "SİLİVRİ ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "SULTANBEYLİ ilçesi için en yüksek değer alan değerlendirme Huzur_Fazla"
[1] "SULTANGAZİ ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "ŞİLE ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "ŞİŞLİ ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"
[1] "TUZLA ilçesi için en yüksek değer alan değerlendirme Huzur_Ne Fazla Ne Az"
[1] "ÜMRANİYE ilçesi için en yüksek değer alan değerlendirme Huzur_Ne Fazla Ne Az"
[1] "ÜSKÜDAR ilçesi için en yüksek değer alan değerlendirme Mutluluk_Ne Fazla Ne Az"
[1] "ZEYTİNBURNU ilçesi için en yüksek değer alan değerlendirme Yaşam Memnuniyeti_Ne Fazla Ne Az"

mutluluk <- df[grepl("Mutluluk", rownames(df)),]
üzüntü <- df[grepl("Üzüntü", rownames(df)),]

rownames(mutluluk) <- 1:nrow(mutluluk)
rownames(üzüntü) <- 1:nrow(üzüntü)

# row names as column
mutluluk$power <- rownames(mutluluk)
üzüntü$power <- rownames(üzüntü)
# multiply each row with power
mutluluk$power <- as.numeric(mutluluk$power)
üzüntü$power <- as.numeric(üzüntü$power)
# make each col as numeric
mutluluk <- mutate_if(mutluluk, is.character, as.numeric)
üzüntü <- mutate_if(üzüntü, is.character, as.numeric)
for (i in 1:ncol(mutluluk)){
  mutluluk[,i] <- mutluluk[,i] * mutluluk$power
}
for (i in 1:ncol(üzüntü)){
  üzüntü[,i] <- üzüntü[,i] * üzüntü$power* (-1)
}

# create emotion data frame
emotion <- data.frame(
  mutluluk = colSums(mutluluk),
  üzüntü = colSums(üzüntü)
)
emotion <- as.data.frame(emotion)
# row sum
emotion$sum <- emotion$mutluluk + emotion$üzüntü

# to Rdata
save(emotion, file = "datas/emotion.Rdata")