alpercode

barchartt1.R

companies1 <- c("BİST100","USD","ALTIN","ISDMR1","ISDMR")
cash1<-c(17626,28650,38122,75699,62652)
cash1<-cash1[order(cash1)]
df1<-data.frame(companies1)


barplot(cash1, names.arg= companies1, 
        main = "Şirket değerleri",col=rainbow(3)
        ,xlab = "Şirket isimleri", ylab = "değeri")

barrchartt.R

companies <- c("BİST100","USD","TOASO-T","ALTIN","TOASO-")
cash<-c(26345,39624,50118,58797,62826)
cash<-cash[order(cash)]
df<-data.frame(companies)
# df <- as.list(df) # Equivalent



barplot(cash, names.arg= companies, 
        main = "Şirket değerleri",col=rainbow(3)
        ,xlab = "Şirket isimleri", ylab = "değeri")

dolargraph.R

install.packages("readxl")

library(readxl)
library(ggplot2)
my_data <- read_excel("/home/deniz/Masaüstü/veri_gorsellestirme_odevi/gsyh.xls")
str(my_data)


#verisetine buradan ulaşabilirsin :https://github.com/SirmaXX/veri_gorsellestirme_odevi/blob/main/datasets/gsyh.xls



ggplot(data =my_data , aes(x =Seneler, y =Value_dolar  , group = 1))+
  geom_point()+
  geom_line(color = "red", size = 0.5) +
  geom_smooth(se=FALSE,span = 0.1,method="loess",size=0.5) +
  labs(x = "Yıllar", y = "Gelir($)")+
  ggtitle("Kişi Başına Düşen Gayrisafi Milli Hasıla") +
  theme_classic() 

tlgraph.R

library(readxl)
library(ggplot2)
my_data <- read_excel("/home/deniz/Masaüstü/veri_gorsellestirme_odevi/gsyh.xls")
str(my_data)


#verisetine buradan ulaşabilirsin :https://github.com/SirmaXX/veri_gorsellestirme_odevi/blob/main/datasets/gsyh.xls



ggplot(data =my_data , aes(x =Seneler, y =Value_TRY  , group = 1))+
  geom_point()+
  geom_line(color = "red", size = 0.5) +
  geom_smooth(se=FALSE,span = 0.1,method="loess",size=0.5) +
  labs(x = "Yıllar", y = "Gelir(TRY)")+
  ggtitle("Kişi Başına Düşen Gayrisafi Milli Hasıla") +
  theme_classic() 

tufe.R

#veriseti :https://github.com/SirmaXX/veri_gorsellestirme_odevi/blob/main/datasets/tufepivot.xls

#
library(readxl)
library(ggplot2)
my_data <- read_excel("tufepivot.xls")
str(my_data)



ggplot(data =my_data , aes(x =seneler, y =ocak  , group = 1))+
  geom_point()+
  geom_line(color = "red", size = 0.5) +
  geom_smooth(se=FALSE,span = 0.1,method="loess",size=0.5) +
  labs(x = "Yıllar", y = "Endeks miktarı")+
  ggtitle("Ocak Aylarına Ait Yıllık Tüketici Fiyat Endeksi (2003=100)") +
  theme_classic()