R语言代码记录8

最新推荐文章于 2024-03-08 10:16:54 发布

亭午

最新推荐文章于 2024-03-08 10:16:54 发布

阅读量321

点赞数

分类专栏： R语言文章标签： r语言开发语言

本文链接：https://blog.csdn.net/m0_59179752/article/details/124886820

版权

R语言专栏收录该内容

9 篇文章 0 订阅

订阅专栏

该博客主要展示了如何使用R语言对苹果公司(AAPL)和其他科技公司的股票数据进行处理，包括提取特定时间段的数据，计算对数收益率和平方价格等指标。同时，利用ggplot2库创建了股票价格的时间序列图，并进行了行业分类。此外，还涉及了相关性模拟和相关性图的绘制，进一步探讨了数据之间的关系。

摘要由CSDN通过智能技术生成

setwd("C:/Users/烟雨潇潇/Desktop/大学作业/R语言数据分析")
mydata <- read.csv('all_stocks_5yr.csv')
mydata1 <- mydata[c('Name','date','close')]
colnames(mydata1)[c(2,3)] <- c('Date','Price')
AAPL <- mydata1[which(mydata1$Name=='AAPL'),]
AAPL <- AAPL[which(AAPL$Date >= '2015-01-01'),]
AAPL$log_p <- log(AAPL$Price)
AAPL$p_square <- (AAPL$Price)^2
AAPL$p_lag <- c(NA, AAPL$Price[-length(AAPL$Price)])
                
AAPL$return <- (AAPL$Price-AAPL$p_lag)/AAPL$p_lag*100
library('ggplot2')
ggplot(data=AAPL[c(2:length(AAPL$Name)),]) + 
  geom_line(aes(x=as.Date(Date), y=return), col='red') +
  labs(title='Apple', x='Date', y='Return')

mydata2 <- mydata1[which(mydata1$Name 
          %in% c('CSCO' ,'AAPL','GOOGL','AMZN')),]
mydata2$Sector <- NA
mydata2$Sector[which(mydata2$Name %in% c('AAPL','GOOGL'))] <- 'Tech'
mydata2$Sector[which(mydata2$Name %in% c('CSCO','AMZN'))] <- 'Indus'

ggplot(data=mydata2) +
  geom_line(aes(x=as.Date(Date), y=Price, col=Name)) +
  labs(title='Stock Prices', x='Date', y='Price')


# Bonus
r <- 0.618
n <- 10000
re <- sqrt(1-r*r)
x <- rnorm(n)
y <- x*r +rnorm(n)*re
y[x<0] <- -y[x<0]
plotdata <- data.frame(x,y)

ggplot(data=plotdata) +
  geom_point(aes(x=x,y=y),col='red',size=0.5) +
  annotate('text',x=0,y=1,label='老师只能帮你到这了',
           color='white',size=4,
           fontface='bold',angle=20) +
  theme_bw()

# PS: 如果不能显示中文 
install.packages('showtext')
library('showtext')
library('sysfonts')
library('showtextdb')
showtext_auto()