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


tabl <- read.xlsx("Билет98.xlsx", sheetIndex = 1,
                  encoding = "UTF-8", header = T, startRow = 1)
tabl

# Цена акций ВТБ ао
x<-tabl[,1]
x
y<-tabl[,2]
y
plot(x,y, lty="solid",lwd=1,type="l",main="Динамика цены",
     col="green", 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(y)
x3 <- which.min(y)
text(x[x2-3*x3],z1,'Максимальная цена', col= 'green')
text(x[3*x3+x3],z2,'Минимальная цена', col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(y,breaks = 10, col = 'lightblue', main = 'Цена',xlab = 'Цена', ylab = '',sub = 'Ибрагимов Расул')


###ОБЪЕМ
x<-tabl[,1]
x
y<-tabl[,3]
y
plot(x,y, lty="solid",lwd=1,type="l",main="Динамика объема",
     col="green", 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(y)
x3 <- which.min(y)
text(x[x2+15],z1,'Максимальная цена', col= 'green')
text(x[x3-12],z2,'Минимальная цена', col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(y,breaks = 10, col = 'lightblue', main = 'Объем',xlab = 'Объем', ylab = 'Частота',sub = 'Ибрагимов Расул')


###ЛОГАРИФМ ОБЪЕМА

vec2 = c()
for(i in seq(from=1, to=nrow(tabl))){
  q = log(tabl$Объем)
  vec2 = union(vec2,c(q))
}
tabl['Логарифм_Объема'] = vec2
tabl

x<-tabl[,1]
x
y<-tabl[,4]
y
plot(x,y, lty="solid",lwd=1,type="l",main="Логарифм объема",
     col="green", 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(y)
x3 <- which.min(y)
text(x[x2+15],z1,'Максимальная цена', col= 'green')
text(x[x3-12],z2,'Минимальная цена', col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(y,breaks = 10, col = 'lightblue', main = 'Логарифм объема',xlab = 'Логарифм объема', ylab = 'Частота',sub = 'Ибрагимов Расул')


###Доходность


vec2 = c(0)
for(i in seq(from=2, to=nrow(tabl))){
  q = (tabl$Цена[i] - tabl$Цена[i-1])/tabl$Цена[i-1]
  vec2 = union(vec2,c(q))
}
tabl['Доходность'] = vec2
tabl


x<-tabl[,1]
x
y<-tabl[,5]
y
plot(x,y, lty="solid",lwd=1,type="l",main="Доходность",
     col="green", 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(y)
x3 <- which.min(y)
text(x[x2+15],z1,'Максимальная цена', col= 'green')
text(x[x3-12],z2,'Минимальная цена', col = 'red')
points(x[x2],z1)
points(x[x3],z2)
hist(y,breaks = 10, col = 'lightblue', main = 'Доходность',xlab = 'Доходность', ylab = 'Частота',sub = 'Ибрагимов Расул')