# Еникеев Эмиль ПМ18-2

#install.packages("xlsx")
library(xlsx)
setwd("O:\\Факультет ПМиИТ\\ПМ18-2\\Еникеев Эмиль Маратович - 184153") #установка текущей папки
getwd() #Вывод текущей папки
dir() #Вывод содержимого текущей папки

tabl = read.table("Билет98.txt", header = TRUE, sep = "\t", dec = ",")
#tabl[,1] = strptime(tabl[,1], format = "%d.%m.%Y")
#tabl

vector = c(0)
for(i in seq(from=2, to=nrow(tabl))){
  q = (tabl$Цена[i] - tabl$Цена[i-1])/tabl$Цена[i-1]
  vector = union(vector, c(q))
}
#vector

tabl["Доходность"] = vector
#tabl

vector2 = c()
for(i in seq(from=1, to=nrow(tabl))){
  q = log(tabl$Объем)
  vector2 = union(vector2, c(q))
}
#vector2
tabl["Логарифм_Объем"] = vector2
tabl
#########################################################################
x<-tabl[,1]
x <- strptime(x, format = "%d.%m.%Y")
plot(x,tabl[,4], lty="solid",lwd=1,type="l",main="Динамика Доходности",
     col="black", sub = "Еникеев Эмиль", xlab="начиная с 01.01.2010",
     ylab="Цена")

z <- mean(tabl[,4])
z
abline(h = z)
z1 <- max(tabl[,4])
z1
z2 <- min(tabl[,4])
z2
x2 <- which.max(tabl[,4])
x3 <- which.min(tabl[,4])
text(x[x2+18],z1,'Максимальная цена', col= 'green')
text(x[x3-15],z2,'Минимальная цена', col = 'red')
text(x[x2+18],z1-0.05,z1, col= 'green')
text(x[x3-45],z2,z2, col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(tabl[,4],breaks = 10, col = 'blue', main = 'Доходность',xlab = 'Доходность', ylab = 'Частота',sub = 'Еникеев Эмиль')

##########################################################################
x<-tabl[,1]
x <- strptime(x, format = "%d.%m.%Y")
plot(x,tabl[,2], lty="solid",lwd=1,type="l",main="Динамика Цены",
     col="black", sub = "Еникеев Эмиль", xlab="начиная с 01.01.2010",
     ylab="Цена")

z <- mean(tabl[,2])
z
abline(h = z)
z1 <- max(tabl[,2])
z1
z2 <- min(tabl[,2])
z2
x2 <- which.max(tabl[,2])
x3 <- which.min(tabl[,2])
text(x[x2-3*x3],z1,'Максимальная цена', col= 'green')
text(x[3*x3+x3],z2,'Минимальная цена', col = 'red')
text(x[x2-40],z1, z1, col= 'green')
text(x[x3+40],z2, z2, col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(tabl[,2],breaks = 10, col = 'blue', main = 'Цена',xlab = 'Цена', ylab = '',sub = 'Еникеев Эмиль')
##########################################################################
x<-tabl[,1]
x <- strptime(x, format = "%d.%m.%Y")
plot(x,tabl[,3], lty="solid",lwd=1,type="l",main="Динамика Объема",
     col="black", sub = "Еникеев Эмиль", xlab="начиная с 01.01.2010",
     ylab="Цена")
z <- mean(tabl[,3])
z
abline(h = z)
z1 <- max(tabl[,3])
z1
z2 <- min(tabl[,3])
z2
x2 <- which.max(tabl[,3])
x3 <- which.min(tabl[,3])
text(x[x2+15],z1,'Максимальная цена', col= 'green')
text(x[x3-12],z2,'Минимальная цена', col = 'red')
text(x[x2+40],z1,z1, col= 'green')
text(x[x3-35],z2,z2, col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(tabl[,3],breaks = 10, col = 'blue', main = 'Объем',xlab = 'Объем', ylab = 'Частота',sub = 'Еникеев Эмиль')
###########################################################################
x<-tabl[,1]
x <- strptime(x, format = "%d.%m.%Y")
plot(x,tabl[,5], lty="solid",lwd=1,type="l",main="Динамика НЛОТ",
     col="black", sub = "Еникеев Эмиль", xlab="начиная с 01.01.2010",
     ylab="Цена")

z <- mean(tabl[,5])
z
abline(h = z)
z1 <- max(tabl[,5])
z1
z2 <- min(tabl[,5])
z2
x2 <- which.max(tabl[,5])
x3 <- which.min(tabl[,5])
text(x[x2+15],z1,'Максимальная цена', col= 'green')
text(x[x3-12],z2,'Минимальная цена', col = 'red')
text(x[x2+45],z1,z1, col= 'green')
text(x[x3-45],z2,z2, col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(tabl[,5],breaks = 10, col = 'blue', main = 'Логарифм объема',xlab = 'Логарифм объема', ylab = 'Частота',sub = 'Еникеев Эмиль')