contacts

f.sultonov@mail.de

Frankfurt, Germany

Shakhrisabz, Uzbekistan

sultanov.quarto.pub/blog

LinkedIn  

Xing  

YouTube  

Telegram  

Instagram  

Educated is who knows where to find what he does not know. — Georg Simmel

Briefly about myself: I am self-motivated, personable and has a passion for adapting to the new environment, new knowledge and new technologies. I am interested in data analysis, data visualization and topics in data science and is diligently learning the tools R and Python

Work experience

Business Customisation Administrator | Canada Life Europe | Neu-Isenburg, Germany

present - 07/2018

Administrator customer master data | Henry Schein Deutschland | Langen, Germany

03/2018 - 01/2018

Clerk Employee Compliance | Deutsche Boerse | Eschborn, Germany

12/2017 - 10/2017

Working student & internship | Autoliv | Holzgerlingen, Germany

02/2017 - 03/2016

Student job | Allianz Deutschland | Stuttgart, Germany

03/2016 - 01/2016

Working student | Mercedes-Benz Group | Esslingen, Germany

05/2015 - 12/2014

Internship | Boerse Stuttgart | Stuttgart, Germany

03/2014 - 10/2013

Upskilling

Data Science and Artificial Intelligence | Mohirdev | Certificate course, online
Tashkent, Uzbekistan

present - 10/2024

Data Science and Business Analytics | University Kempten | Certificate course, presence
Kempten, Germany

04/2020 - 11/2019

Academic Education

Economics, Bachelor of Science (B.Sc.) | Nuertingen Geislingen University (HfWU)
Nuertingen, Germany

08/2016 - 03/2011

German studies, Bachelor of Science (B.Sc.) | not completed
Uzbekistan State University of World Languages Tashkent, Uzbekistan

02/2009 - 09/2006

School Education

Preparatory college | HTWG Konstanz - University of Applied Sciences
Konstanz, Germany

02/2011 - 03/2010

Secondary school | Mittddle school, Nr. 56 | Shakhrisabz, Uzbekistan

06/2006 - 09/1995

IT skills

Code 
# required packages: tidyverse, ggimage, ggtext, here
# Mapping names for icons
map_it <- c(
  'xcel' = "exc", 'r' = "r", 'quarto' = "qmd", 'python' = "py", 'sql' = "sql", 
  'shiny' = "shiny", 'bi' = "bi")

ylabels <- c()
for(i in 1:length(map_it)){
  imgname <- names(map_it[i])
  ylabels <- c(ylabels, paste0("<img src='", path, map_it[[i]], ".png' width='34' hight ='34'/>"))
}

# add column with imagepath to df
plt_it <- 
  # Data prepare -------------------------------------------------------------------------------------------
  data_it |>                            
  mutate(name = as.factor(ylabels)) |> 
  mutate(name = fct_reorder(name, quant_val)) |> 
  # Plot body ----------------------------------------------------------------------------------------------
  ggplot(aes(x = quant_val, y=name)) +  
  geom_col(aes(x = qual_val), fill="#82aec0", width = 0.9) + 
  geom_col(width = 0.8, fill ="#44849c")+ 
  geom_text(aes(label = subname),x=0, hjust= - 0.05, size = 3.7, color = "#c3d5e2") + # #9FB6CD
  scale_x_continuous(expand = expansion(c(0.01, 0.0))) +
  labs(
    title = "IT skills",
    x = NULL,
    y = "Tools"
  ) +
  # Plot theme ---------------------------------------------------------------------------------------------
  theme_bw() +
  theme(
    panel.border = element_blank(),
    plot.title = element_text(size = 14, color = "steelblue", face = "bold", hjust = 0.5),
    axis.title.y = element_text(size = 12, color = "steelblue", face = "bold.italic"), 
    axis.text.y = element_markdown(hjust = 50),
    axis.text.x = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank(),
    plot.background = element_rect(fill = "#c4e1e9"), 
    panel.background = element_rect(fill = "#c3d5e2")
  )

# aspect ratio / Seitenverhältnis 
plt_it + theme(aspect.ratio = 0.7)

Languages

Code 
# Mapping names for icons
map_lang <- c('Uzbek' = "uz", 'German' = "de", 'Russian' = "ru", 'English' = "gb")
xlabels <- c()
for(i in 1:length(map_lang)){
  imgname <- names(map_lang[i])
  xlabels <- c(xlabels, paste0("<img src='", path, map_lang[[i]], ".png' width='36' hight ='34' />"))
}

# add column with imagepats to the df
df_lang_en <- cbind(data_lang_en, xlabels)

plt_lang_en <-
  df_lang_en |>
  # plot body ----------------------------------------------------------------------------------------------
  ggplot(
    aes(x = reorder(xlabels, lval), y = lval)) +
  geom_bar(width = 0.8, stat = "identity", fill = "#63a6c0" ) + # "#468499"
  scale_y_continuous(expand = expansion(c(0.01, 0.0))) +
  geom_text(aes(label = lsubname), 
            y = 0.5, hjust= 0.0, size = 5, color = "lightsteelblue1")+
  # titles, axis labels,..
  labs(
    title = "Language skills",
    x = "Languages",
    y = NULL
  ) +
  coord_flip(clip = "off", expand = TRUE) +
  # Plot theme ---------------------------------------------------------------------------------------------
  theme_bw() +
  theme(
    panel.border = element_blank(),
    plot.title = element_text(size = 14, color = "steelblue", face = "bold", hjust = 0.5),
    axis.title.y = element_text(size = 12, color = "steelblue", face = "bold.italic"),
    axis.text.y = element_markdown(),
    axis.text.x = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank(),
    plot.background = element_rect(fill = "#c0d6e4"),
    panel.background = element_rect(fill = "lightcyan2") 
  )

# aspect ratio / Seitenverhältnis 
#plt_lang + theme(aspect.ratio = 2.5/8) # apsolut
plt_lang_en + theme(aspect.ratio = 0.4)    # percent

Back to top