#Проказнов никита
install.packages("xlsx")
library("xlsx")
setwd("O:\\Факультет ПМиИТ\\ПМ18-2\\Tasks\\Программирование в R")
dir()
read.xlsx
tabl <- read.xlsx("Билет98.xlsx" , sheetIndex = 1,
                  encoding = "UTF-8", header = T, startRow = 1)
tabl
x<-tabl[,1]
y<-tabl[,2]
plot(x,y,lty="solid", lwd=1, type="l", main = "Динамика цены акций компаний",
     col = "black", xlab="Номер месяцев с даты 01.02.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 = 20,freq = T, col = "lightblue",xlab="",ylab = "",main = "Цена")
###################################################################

x1<-tabl[,1]
y1<-tabl[,3]
plot(x1,y1,lty="solid", lwd=1, type="l", main = "Объем торгов",
     col = "black", xlab="Номер месяцев с даты 01.02.2010",
     ylab = "Объем торгов")
z <- mean(tabl[,3])
z
abline(h = z)
z1 <- max(tabl[,3])
z1
z2 <- min(tabl[,3])
z2
x2 <- which.max(y1)
x3 <- which.min(y1)
points(x[x2],z1,col="green")
points(x[x3],z2,col = "red")

hist(y1,breaks = 20,freq = F, col = "lightblue",xlab="",ylab = "",main = "Гистограмма по объему")

###################################################################

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
x<-tabl[,1]
y<-tabl[,4]
plot(x,y,lty="solid", lwd=1, type="l", main = "Динамика доходности",
     col = "black", 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')
text(x[x2+15],z1-0.05,z1, col= 'green')
text(x[x3-50],z2,z2, col = 'red')
points(x[x2],z1,col="green")
points(x[x3],z2,col = "red")

hist(y,breaks = 20,freq = T, col = "lightblue",xlab="",ylab = "",main = "Доходность")

###################################################################

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]
y<-tabl[,5]
plot(x,y,lty="solid", lwd=1, type="l", main = "Динамика логарифма объема",
     col = "black", 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)
points(x[x2],z1,col="green")
points(x[x3],z2,col = "red")

hist(y,breaks = 20,freq = T, col = "lightblue",xlab="",ylab = "",main = "Логарифм объема")